//CPY#BC2A JOB (9999,IPO,10,10), // 'CORNERSTONE', // CLASS=B, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=, // TIME=1440, // USER= //CRESYSIN EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSIN DD DUMMY //SYSUT2 DD DISP=(,PASS),SPACE=(TRK,1),RECFM=F,LRECL=80 //SYSUT1 DD *,LRECL=80 COPY FULL INDDNAME(IPACK) OUTDDNAME(OPACK) COPYVOLID /* //COPYPACK PROC IVOL=IIIIII,OVOL=OOOOOO //DFDSS EXEC PGM=ADRDSSU,REGION=0M,TIME=1440 //SYSIN DD DISP=(OLD,PASS),DSN=*.CRESYSIN.SYSUT2 //IPACK DD DISP=OLD,UNIT=3390,VOL=SER=&IVOL //OPACK DD DISP=OLD,UNIT=3390,VOL=SER=&OVOL //SYSPRINT DD SYSOUT=* // PEND //BC2SP2 EXEC COPYPACK,IVOL=BC2SP2,OVOL=SP190B //CTSC01 EXEC COPYPACK,IVOL=CTSC01,OVOL=SP190C //CTSC02 EXEC COPYPACK,IVOL=CTSC02,OVOL=SP190D //LOGR1C EXEC COPYPACK,IVOL=LOGR1C,OVOL=SP190E //LOGR2C EXEC COPYPACK,IVOL=LOGR2C,OVOL=SP190F //OAMC01 EXEC COPYPACK,IVOL=OAMC01,OVOL=SP1910 //TSOC01 EXEC COPYPACK,IVOL=TSOC01,OVOL=SP1911 //TSOC02 EXEC COPYPACK,IVOL=TSOC02,OVOL=SP1912 //TSOC03 EXEC COPYPACK,IVOL=TSOC03,OVOL=SP1913