//COPCNV JOB MSGLEVEL=(1,1),MSGCLASS=X,TIME=1440,NOTIFY=&SYSU //* //* CHANGE KCDXX TO THE SOURCE HI-LEVEL //* CHANGE KCDYY TO THE TARGET HI-LEVEL //* //COPY EXEC PGM=ADRDSSU,REGION=0M,TIME=1440 PARM='TYPRUN=NO //SYSPRINT DD SYSOUT=* //I1 DD DISP=SHR,UNIT=3390,VOL=SER=CNV034 //I2 DD DISP=SHR,UNIT=3390,VOL=SER=CNV035 //O01 DD DISP=SHR,UNIT=3390,VOL=SER=CNV001 //* OUTDDNAME(DASD1,DASD2,DASD3,DASD4) - //* CATALOG //* KCI02.DMNSNDSK.** - //SYSIN DD * COPY DATASET(INCLUDE( - KCI02.DMNSNDSK.GLKMSTR - )) - LOGINDD(I1,I2) OUTDD(O01) - SELECTMULTI(ANY) WAIT(0,0) SPHERE - RECATALOG(CATALOG.MVSICF1.VCNV001) DELETE PURGE /*