jaydeb
New User
.jpg)
Joined: 17 Oct 2005
Posts: 9
Location: Pune
|
|
|
|
Hi All,
I am trying with a simple REXX which pulls a dataset name on disk and submits a jcl to bring it on tape.
Submitting the JCL separately is working fine but when I am trying to submit the same jcl using REXX, its giving error as below:
DATA SET UTILITY - GENERATE
IEB319I INVALID SYSPRINT/SYSIN BLOCKSIZE
The rexx code is as below:
QUEUE "//CPYTAPE1 JOB (),'COPY',CLASS=b,MSGCLASS=a,"
QUEUE "// REGION=0M,NOTIFY=&SYSUID"
QUEUE "//STEP1 EXEC PGM=IEBGENER"
QUEUE "//SYSOUT DD SYSOUT=*"
QUEUE "//SYSPRINT DD SYSOUT=*"
QUEUE "//SYSUT1 DD DSN="DDIN",DISP=SHR"
QUEUE "//SYSUT2 DD DSN="DDIN".NEW,"
QUEUE "// DISP=(NEW,CATLG,DELETE),"
QUEUE "// DATACLAS=MEDIUM,"
QUEUE "// UNIT=CART"
QUEUE "//SYSIN DD *"
"ALLOC F(JCL) SYSOUT WRITER(INTRDR)"
"EXECIO" QUEUED() "DISKW JCL (FINIS"
"FREE F(JCL)"
DDIN is the dataset name I am pulling using rexx.
Could anybody help me with this.
Warm Regards,
Jaydeb |
|
