//TRELOAD JOB 'COPY TRELATIONAL TAPE TO DASD',MSGLEVEL=1, // CLASS=C,MSGCLASS=X,REGION=4M,NOTIFY=&SYSUID /*JOBPARM LINES=9999 //* //******************************************************* //* STEP 1 COPIES THE NATLOAD DATASET TO DASD //******************************************************* //STEP1 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //* //SYSUT1 DD DSN=TRE.V421.NATLOAD, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(1,SL), // VOL=(,RETAIN,,,SER=TRE421) //* //SYSUT2 DD UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5)), // DSN=TSI.TRE.V421.NATLOAD //* //SYSIN DD DUMMY //* //******************************************************* //* STEP 2 COPIES THE TREDICT DATASET TO DASD //******************************************************* //STEP2 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //* //SYSUT1 DD DSN=TRE.V421.TREDICT, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(2,SL), // VOL=(,RETAIN,,,SER=TRE421) //* //SYSUT2 DD UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(1,1)), // DSN=TSI.TRE.V421.TREDICT //* //SYSIN DD DUMMY //* //******************************************************* //* STEP 3 COPIES THE TRETRANS DATASET TO DASD //******************************************************* //STEP3 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //* //SYSUT1 DD DSN=TRE.V421.TRETRANS, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(3,SL), // VOL=(,RETAIN,,,SER=TRE421) //* //SYSUT2 DD UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(1,1)), // DSN=TSI.TRE.V421.TRETRANS //* //SYSIN DD DUMMY //* //******************************************* //* STEP 4 PRE-ALLOCATES THE TREJCL DATASET * //******************************************* //STEP4 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //TREJCL DD DSN=TSI.TRE.V421.TREJCL,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(1,1,10),RLSE),UNIT=SYSDA,DSORG=PO, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=6480) //* //******************************************************* //* STEP 5 COPIES THE TREJCL MEMBERS TO THE DATASET ALLOCATED //* IN STEP 4 //******************************************************* //STEP5 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN5 DD DSN=TRE.V421.TREJCL, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(4,SL), // VOL=(,RETAIN,,,SER=TRE421) //OUT5 DD DSN=TSI.TRE.V421.TREJCL,DISP=SHR //SYSIN DD * COPY INDD=IN5,OUTDD=OUT5 //* //********************************************* //* STEP 6 PRE-ALLOCATES THE TRA LOAD DATASET * //********************************************* //STEP6 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //TRALOAD DD DSN=TSI.TRA.V201.LOAD,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(5,1,10),RLSE),UNIT=SYSDA,DSORG=PO, // DCB=(RECFM=U,LRECL=0,BLKSIZE=32760) //* //******************************************************* //* STEP 7 COPIES THE TRA LOAD MEMBERS TO THE DATASET ALLOCATED //* IN STEP 6 //******************************************************* //STEP7 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN7 DD DSN=TRA.V201.LOAD, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(5,SL), // VOL=(,RETAIN,,,SER=TRE421) //OUT7 DD DSN=TSI.TRA.V201.LOAD,DISP=SHR //SYSIN DD * COPY INDD=IN7,OUTDD=OUT7 //* //********************************************* //* STEP 8 PRE-ALLOCATES THE TRA CNTL DATASET * //********************************************* //STEP8 EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //TRALOAD DD DSN=TSI.TRA.V201.CNTL,DISP=(NEW,CATLG,DELETE), // SPACE=(CYL,(1,1,10),RLSE),UNIT=SYSDA,DSORG=PO, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=6480) //* //******************************************************* //* STEP 9 COPIES THE TRA CNTL MEMBERS TO THE DATASET ALLOCATED //* IN STEP 8 //******************************************************* //STEP9 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN9 DD DSN=TRA.V201.CNTL, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(6,SL), // VOL=(,RETAIN,,,SER=TRE421) //OUT9 DD DSN=TSI.TRA.V201.CNTL,DISP=SHR //SYSIN DD * COPY INDD=IN9,OUTDD=OUT9 /* //******************************************************* //* STEP 10 COPIES THE README DATASET TO DASD //******************************************************* //STEP10 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //* //SYSUT1 DD DSN=TRE.V421.README, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(7,SL), // VOL=(,RETAIN,,,SER=TRE421) //* //SYSUT2 DD UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(1,1)), // DSN=TSI.TRE.V421.README //* //SYSIN DD DUMMY //* //******************************************************* //* STEP 11 COPIES THE FIXES NATLOAD DATASET TO DASD //******************************************************* //STEP11 EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //* //SYSUT1 DD DSN=TRE.V421.NATLOAD.FIX, // DISP=(OLD,KEEP), // UNIT=TAPE,LABEL=(8,SL), // VOL=(,RETAIN,,,SER=TRE421) //* //SYSUT2 DD UNIT=SYSDA, // DISP=(NEW,CATLG,DELETE),SPACE=(CYL,(5,5)), // DSN=TSI.TRE.V421.NATLOAD.FIX //* //SYSIN DD DUMMY /* //* END OF JOB