ds390 Beginner
Joined: 23 Jan 2007 Posts: 82 Topics: 39
|
Posted: Fri Jul 06, 2007 7:04 pm Post subject: iebcopy in a jcl procedure |
|
|
Hi,
Here is my JCL
Code: | //CMPLNK JOB CLASS=B,MSGLEVEL=(1,1),MSGCLASS=B,
// NOTIFY=&SYSUID
//CMPPRC PROC
//STEP1 EXEC IGYWCL,PGMLIB=TEST.SRC.OBJ,GOPGM=&TNAME
//COBOL.SYSIN DD DSN=TEST.SRC.COBOL(&TNAME),DISP=SHR
//COBOL.SYSLIB DD DUMMY
//COBOL.STEPLIB DD DSNAME=IGY330.SIGYCOMP,DISP=SHR
//STEP2 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//DDI1 DD DSN=TEST.SRC.OBJ,DISP=SHR
//DDO1 DD DSN=TEST.RUN.OBJ,DISP=SHR
//SYSIN DD *
COPY OUTDD=DDO1,INDD=DDI1
SELECT MEMBER=(&TNAME)
/*
// PEND
//RUNCMP EXEC CMPPRC,TNAME='T030' |
When submit, it says 31 IEFC601I INVALID JCL STATEMENT. Line 31 is SYSIN DD *. What's the solution? |
|