//PARMTMP0 EXEC PGM=PARMIN,
// PARM='$$DD01 COPY IF=(195,GT,C''20090923'')'
//SYSIN DD DSN=&&CTL00,
// DISP=(,PASS),
// UNIT=SYSDA,
// SPACE=(80,3)
//*
// PARM='$$DD01 COPY IF=(195,GT,C''20090923'')'
//SYSIN DD DSN=&&CTL00,
// DISP=(,PASS),
// UNIT=SYSDA,
// SPACE=(80,3)
//*
//STEP010 EXEC PGM=FILEAID
//SYSPRINT DD SYSOUT=* //DD01 DD DSN=PCCCN.CN2125DP.RECYCLE.CHGO.DTLS,
// DISP=SHR
//DD01O DD DSN=&&TEMP1,
// DISP=(,PASS),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE),
// DCB=RECFM=FB
//SYSIN DD DSN=&&CTL00,
// DISP=(OLD,PASS)
This copies the data from input to output based on the condition in CTL00 parm, where temporary internal parmlib is used.
No comments:
Post a Comment