JCL-备份MEMBER IEBGENER

备份MEMBER

//CPMEM JOB CLASS=A,NOTIFY=FORM49,MSGCLASS=H,MSGLEVEL=(1,1)
//*******************************************************************
//COPY MEMBER
//******************************************************************
//CPMEM EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=FORM49.BAT.JCL.EXAM(STEP01),DISP=SHR
//SYSUT2 DD DSN=FORM49.BAT.JCL(TET2),DISP=SHR,UNIT=3390,
// SPACE=(TRK,(5,2)),DCB=(LRECL=80,RECFM=FB,BLKSIZE=27920)
//SYSIN DD *