View previous topic :: View next topic
|
Author |
Message |
karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
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 |
|
|
karthikr44
Active User
Joined: 25 Aug 2007 Posts: 235 Location: Chennai
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
Can you clarify who abends? The job that is submitted, or the rexx that is submitting the jobs? |
|
Back to top |
|
|
|
|