Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Problem in passing member name from REXX to JCL

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Fri Jun 27, 2008 12:06 pm    Post subject: Problem in passing member name from REXX to JCL
Reply with quote

Hi,

I tried follwoing Rexx code for submitting job. The job submitted successfully.

But everytime i want the o/p is to be created on separate member. Also the sysin card changed according to member name.

/* REXX */
MEM.0=2
MEM.1=DEFDXECL
MEM.2=DEFDX396
DO I=1 TO MEM.0
MEMBER=MEM.I
QUEUE "//DCPDU39N JOB (040T,1580),C03526,NOTIFY=&SYSUID,"
QUEUE "// CLASS=S,MSGCLASS=X"
QUEUE "// SET MEMBERP=MEMBER"
QUEUE "//***************************************"
QUEUE "//ADSORPTS EXEC PGM=ADSORPTS,REGION=0M "
QUEUE "//***************************************"
QUEUE "//STEPLIB DD DSN=IDMS.S51.LOAD,DISP=SHR"
QUEUE "// DD DSN=IDMS.USAG.LOAD,DISP=SHR"
QUEUE "// DD DSN=IDMS.COMN.LOAD,DISP=SHR"
QUEUE "//SYSIDMS DD DSN=DEV2.SYSIDMS.PARMS(EG1DDICT),DISP=SHR"
QUEUE "//SYSCTL DD DSN=IDMS.S51.SYSCTL,DISP=SHR"
QUEUE "//SYSPRINT DD SYSOUT=*"
QUEUE "//SYSLST DD DSN=DEV2.C737245.DP.MSGS.DDICT(&MEMBERP),DISP=SHR"
QUEUE "//SYSIPT DD *"
QUEUE " DIALOGS=&MEMBERP,VERSIONS=1,"
QUEUE " REPORTS=(SUMMARY,PROCESSES,RECORDS)"
QUEUE "/*"
QUEUE "//*"
QUEUE "$$"
O = OUTTRAP("OUTPUT.",,"CONCAT")
"SUBMIT * END($$)"
O = OUTTRAP(OFF)
SAY 'JOB SUBMITTED SUCCESSFULLY'
END



But the JCL i got from output is

//***************************************
//ADSORPTS EXEC PGM=ADSORPTS,REGION=0M
//***************************************
.
.
.
//SYSLST DD DSN=DEV2.C737245.DP.MSGS.DDICT(&MEMBERP),DISP=SHR
//SYSIPT DD *
DIALOGS=&MEMBERP,VERSIONS=1,
REPORTS=(SUMMARY,PROCESSES,RECORDS)
/*
//*

So everytime o/p is created on DEV2.C737245.DP.MSGS.DDICT(MEMBER).


How to solve this...

Thanks
R KARTHIK
Back to top
View user's profile Send private message

enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10374
Location: italy

PostPosted: Fri Jun 27, 2008 12:13 pm    Post subject: Reply to: Problem in passing member name from REXX to JCL
Reply with quote

please review Your understanging of rexx concatanation rules

I would change ...

delete the line with the set member stuff
strip the member in order to make sure that it has no blanks

create directly the other two lines where member is referenced

Code:
MEMBER=strip(MEM.I)
.........
QUEUE "//SYSLST DD DSN=DEV2.C737245.DP.MSGS.DDICT(" || MEMBER || "),DISP=SHR"
.........
QUEUE " DIALOGS=" || MEMBER || ",VERSIONS=1,"
....
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Fri Jun 27, 2008 12:36 pm    Post subject: Reply to: Problem in passing member name from REXX to JCL
Reply with quote

HI enricho,

Thanks for ur reply...Its working now..

But when i pass that member name in jobcard, i get maxcc=0 for first job and SOC1 abend for remaining jobs.

QUEUE "//" || MEMBER || " JOB (040T,1580),C03526,NOTIFY=&SYSUID,"

Also when i used fixed job name like QUEUE "//SUBJCL JOB (040T,1580),C03526,NOTIFY=&SYSUID," i dont get any abend.

Kinldy may i know the reason,

Thanks
R KARTHIK
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10374
Location: italy

PostPosted: Fri Jun 27, 2008 12:46 pm    Post subject: Reply to: Problem in passing member name from REXX to JCL
Reply with quote

really I do not see any reason why the job name should influence the
program behavior !

can You post a bit more details ?
Back to top
View user's profile Send private message
karthikr44

Active User


Joined: 25 Aug 2007
Posts: 235
Location: Chennai

PostPosted: Fri Jun 27, 2008 1:04 pm    Post subject:
Reply with quote

Hi enrico-sorichetti,

In spool no other details were displayed other than
ABEND=S0C1 U0000 REASON=00000001 061 .

But i executed REXX for 50 members with job name. It went fine.

Thanks enrico....
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Fri Jun 27, 2008 9:54 pm    Post subject: Reply to: Problem in passing member name from REXX to JCL
Reply with quote

Can you clarify who abends? The job that is submitted, or the rexx that is submitting the jobs?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 12 Sun Nov 19, 2017 7:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us