The following is the sample of a JCL statement to execute this utility program.
//GP4ABC JOB (RR, 1235,,,,8,,U),’MR. XYZ’,CLASS=S,
// MSGCLASS=G,MSGLEVEL=1,NOTIFY=GP4ABC
//*
//***********************************************************
//* THIS PROGRAM COPIES ONE FILE TO ANOTHER.
//***********************************************************
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=TSGBAXC.SACRED.DATA,DISP=SHR
//SYSUT2 DD DSN=TSGBAXC.NEWCOPY.DATA,
// DISP=(,CATLG,DELETE),
// UNIT=DISK,
// SPACE=(CYL,(20,2),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//SYSIN DD DUMMY
No comments:
Post a Comment