My requirement is to override SYSUT1 in PROC2 from existing YPRT.WIRE20.JCL(INPUT) to YPRT.WIRE20.JCL(NEWIN) in JCL itself. Can some one help me out. PROC1 and PROC2 should not be touched.
JCL
Code: Select all
//JCLCARD1 JOB (00400),'SAB8932',CLASS=B,MSGCLASS=Z,
// REGION=5M,NOTIFY=&SYSUID
//PROC JCLLIB ORDER=(YPRT.WIRE20.JCL,YPRT.WIRE20.PROC)
//STPCARD1 EXEC GCALLPRC
//*
PROC1
Code: Select all
//GCALLPRC PROC
//START000 EXEC GCALLPR2
Code: Select all
//GCALLPR2 PROC
//IEBGEN1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=YPRT.WIRE20.JCL(INPUT),DISP=SHR
//SYSUT2 DD DSN=YPRT.WIRE.PRC.TSTL,
// DISP=(,CATLG,DELETE),
// UNIT=TESTDA,
// SPACE=(TRK,(100,50),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=0)
//SYSOUT DD SYSOUT=*
//SYSIN DD DUMMY
//*
------------
REGARDS
KRISHNA