(no subject)

Nov 15, 2023 11:40


//COPYJOB  JOB 'COPY WERT.2311.MONTHLY',CLASS=A,MSGLEVEL=(1,1)

//STEP1    EXEC PGM=IEBCOPY

//SYSUT1   DD DSN=WERT.2311.MONTHLY,DISP=SHR

//SYSUT2   DD DSN=NEW.LIBRARY1,DISP=(NEW,CATLG,DELETE),

//         SPACE=(TRK,(1,1)),UNIT=SYSALLDA

//SYSUT3   DD DSN=NEW.LIBRARY2,DISP=(NEW,CATLG,DELETE),

//         SPACE=(TRK,(1,1)),UNIT=SYSALLDA

//SYSUT4   DD DSN=NEW.LIBRARY3,DISP=(NEW,CATLG,DELETE),

//         SPACE=(TRK,(1,1)),UNIT=SYSALLDA

//SYSIN    DD *

COPY OUTDD=SYSUT2

COPY OUTDD=SYSUT3

COPY OUTDD=SYSUT4

/*
Previous post Next post
Up