连续数据集
//RAY68P JOB MSGCLASS=A,CLASS=A,NOTIFY=RAY68
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=RAY68.TEST.MM,DISP=SHR
//SYSUT2 DD DSN=RAY68.TEST.NN,DISP=OLD
//SYSIN DD DUMMY
//
分取数据集
//RAY68C JOB MSGCLASS=A,CLASS=A,NOTIFY=RAY68
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=RAY68.TEST.JCL,DISP=SHR
//SYSUT2 DD DSN=RAY68.TEST.JCL2,DISP=(NEW,KEEP),
// SPACE=(TRK,(20,20,40))
//
只复制特定member
//RAY68C2 JOB MSGCLASS=A,CLASS=A,NOTIFY=RAY68
//STEP1 EXEC PGM=IEBCOPY
//SYSPRINT DD SYSOUT=*
//IN DD DSN=RAY68.TEST.JCL,DISP=SHR
//OUT DD DSN=RAY68.TEST.JCL4,DISP=(NEW,KEEP),
// SPACE=(TRK,(10,10,20))
//SYSIN DD *
COPY INDD=IN,OUTDD=OUT
SELECT MEMBER=COPY2
/*
