//IODEF36 JOB (), // 'CORNERSTONE', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // NOTIFY=, // TIME=1440, // USER= //* /*JCTRL*/ //* //************************************************************* //* //* LIB: CORNERST.ZOS140.BASE.LIB(IODEF35) //* DOC: THIS JOB MIGRATES AN MVSCP DECK TO HCD. //* //************************************************************* //* //* ENSURE THE WORK IODF TO BE USED FOR MIGRATE IS DELETED //* //DEL1 EXEC PGM=IDCAMS,REGION=1024K //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE (SYS1.IODF36.CLUSTER) CLUSTER DELETE (SYS1.IODF36.WORK.CLUSTER) CLUSTER DELETE (CSUSER.BC2MCC.HCD.PROFILE) NONVSAM SCRATCH SET LASTCC = 0 SET MAXCC = 0 //* //* ALLOCATE THE WORK IODF TO BE USED FOR MIGRATE //* //ALOC2 EXEC PGM=IDCAMS,REGION=4096K //SYSPRINT DD SYSOUT=* //SYSIN DD * DEFINE CLUSTER ( - NAME (SYS1.IODF36.WORK.CLUSTER) - LINEAR - RECORDS (720 1) - VOLUMES (BC2MCC) - ) - DATA (NAME (SYS1.IODF36.WORK)) DEFINE CLUSTER ( - NAME (SYS1.IODF36.CLUSTER) - LINEAR - RECORDS (720 1) - VOLUMES (BC2MCC) - ) - DATA (NAME (SYS1.IODF36)) /* //* //* INITIODF THE WORK IODF //* //INITW3 EXEC PGM=CBDMGHCP,REGION=4096K, // PARM='INITIODF SIZE=720,ACTLOG=NO', // COND=(0,NE) //STEPLIB DD DSN=SYS1.LINKLIB, // DISP=SHR // DD DSN=SYS1.NUCLEUS, // DISP=SHR //HCDIODFT DD DSN=SYS1.IODF36.WORK, // DISP=(OLD,KEEP) //HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //HCDPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //* //* INITIALIZE THE TARGET IODF //* //INIT4 EXEC PGM=CBDMGHCP,REGION=4096K, // PARM='INITIODF SIZE=720,ACTLOG=NO', // COND=(0,NE) //STEPLIB DD DSN=SYS1.LINKLIB, // DISP=SHR // DD DSN=SYS1.NUCLEUS, // DISP=SHR // DD DSN=SYS1.LPALIB, // DISP=SHR //HCDIODFT DD DSN=SYS1.IODF36, // DISP=(OLD,KEEP) //HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //HCDPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //* //* //* CREATE A DATASET TO HOLD THE HCD PROFILE //* //* WARNING: IF RERUNNING THE IODEF JOB DO NOT DELETE THIS STEP. //* //GENE5 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT2 DD DSN=CSUSER.BC2MCC.HCD.PROFILE, // DISP=(NEW,CATLG),DCB=(RECFM=FB,LRECL=80), // UNIT=SYSALLDA,SPACE=(TRK,1) //SYSIN DD DUMMY //SYSUT1 DD DATA,DLM=XX UIM_LIBNAME=* XX //* //* //* MIGRATE INPUT DECK INTO THE WORK IODF //* SOURCE: CORNERST.ZOS140.BASE.BACKUP.LIB(MVSIO36) //* //MIGR5 EXEC PGM=CBDMGHCP,REGION=4096K, // PARM=('MIGR,B,BC1B,MVS,BC1B', // '2066-0A1,LPAR'), // COND=(0,NE) //STEPLIB DD DSN=SYS1.LINKLIB, // DISP=SHR // DD DSN=SYS1.NUCLEUS, // DISP=SHR // DD DSN=SYS1.SCBDHENU, // DISP=SHR // DD DSN=SYS1.LPALIB, // DISP=SHR //HCDLIB DD DSN=SYS1.MACLIB, // DISP=SHR //HCDIN DD DSN=CORNERST.ZOS140.BASE.BACKUP.LIB(MVSIO35), // DISP=SHR,UNIT=SYSALLDA //HCDIODFT DD DSN=SYS1.IODF36.WORK, // DISP=SHR //HCDPROF DD DSN=CSUSER.BC2MCC.HCD.PROFILE,DISP=(OLD,DELETE,DELETE) //HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //HCDPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //HCDASMP DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //* //* CREATE A PRODUCTION IODF FROM THE WORK IODF //* TARGET: SYS1.IODF36 //* //PROD6 EXEC PGM=CBDMGHCP,REGION=4096K, // PARM='PRODIODF', // COND=(4,LT) //STEPLIB DD DSN=SYS1.LINKLIB, // DISP=SHR // DD DSN=SYS1.NUCLEUS, // DISP=SHR // DD DSN=SYS1.SCBDHENU, // DISP=SHR // DD DSN=SYS1.LPALIB, // DISP=SHR //HCDIODFS DD DSN=SYS1.IODF36.WORK, // DISP=SHR //HCDIODFT DD DSN=SYS1.IODF36, // DISP=SHR //HCDMLOG DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //HCDPRINT DD SYSOUT=*,DCB=(RECFM=FBA,LRECL=133,BLKSIZE=6650) //*