* $$ JOB JNM=MV05103A,SYSID=1 * $$ LST DISP=H,CLASS=B,FNO=2P14,COPY=1,LST=SYSLST // JOB MV05103A 10 RECEIVE TCA DATA // PAUSE * *** STEP 1 *** // DLBL SORTIN1,'MVAGFO1.TC.DATA',0,SD // EXTENT SYS002,PERM19,1,0,6638,6 // DLBL SORTOUT,'CPU--==.MV.MERGED.TC.DATA',2 // EXTENT SYS001,SCRTCH,1,0,1,20 * *** STD LABELS USED FOR SORTWK1 *** // EXEC SORT,SIZE=200K SORT FIELDS=(8,1,A),FORMAT=CH,WORK=1,SIZE=1200,FILES=1 RECORD TYPE=F,LENGTH=80 *INPFIL SYSIPT,BLKSIZE=4000 INPFIL BLKSIZE=4000 OUTFIL BLKSIZE=4000 END /* EOD CCBQ 01 * *** STEP 2 *** // DLBL SORTIN1,'CPU--==.MV.MERGED.TC.DATA',2 // EXTENT SYS002,SCRTCH,1,0,1,20 // DLBL SORTOUT,'MVAGFO1.TC.DATA',0,SD // EXTENT SYS001,PERM19,1,0,6638,6 * *** STD LABELS USED FOR SORTWK1 *** // EXEC DYL280,SIZE=350K OPTION RESTORE MVNR0101 FIN /* * *** STEP 3 *** // EXEC TDYNASN // ASSGN SYS001,DUMMY /* // DLBL MVAGFO1,'MVAGFO1.TC.DATA',0,SD // EXTENT SYS020,PERM19,1,0,6638,6 // TLBL SYS001,'MV8GFO5,U' // EXEC MAXBACK,SIZE=350K SET LIST=ON ; DUMP MVAGFO1(SAM) ; /* * DELETING WORK DISK FILE(S) // UPSI 00000000 RESET UPSI FOR DYNUTIL // EXEC DYNUTIL,SIZE=250K DELETE 'CPU--==.MV.MERGED.TC.DATA' POOL=SCRTCH /* /& * $$ EOJ STOP
Return to the Sample Job Stream List
//MV05103A JOB (MV05103A),' ', // CLASS=A, // MSGCLASS=X, // MSGLEVEL=(1,1), // REGION=6M //* //JOBLIB INCLUDE MEMBER=JOBLIB //* //* *** STEP 1 *** //* *** STD LABELS USED FOR SORTWK1 *** //* //* STEP0010 PGM=SORT //* //STEP0010 EXEC PGM=SORT //* MODULE SORT PROCESSED BY PLUG-IN JCLTSORT //* SD I SYS002 UA SORTIN1 'MVAGFO1.TC.DATA' //SORTIN DD DSN=VTMV.DICSZGFO.BXXXX.TC.DATA, // DISP=SHR //* SD O SYS001 UA 'CPU--==.MV.MERGED.TC.DATA' //SORTOUT DD DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA, // DISP=(NEW,CATLG,DELETE), // DATACLAS=LARGE, // SPACE=(TRK,(20,5),RLSE), // UNIT=SYSDA //* PR O //SYSOUT DD SYSOUT=* //* CD I //SYSIN DD * SORT FIELDS=(8,1,A),FORMAT=CH RECORD TYPE=F,LENGTH=80 *INPFIL SYSIPT,BLKSIZE=4000 *INPFIL BLKSIZE=4000 *OUTFIL BLKSIZE=4000 END /* //* //* *** STEP 2 *** //* *** STD LABELS USED FOR SORTWK1 *** //* //* STEP0020 PGM=DYL280 //* //STEP0020 EXEC PGM=DYL280 //* MODULE DYL280 PROCESSED BY PLUG-IN LCP280 //* SD I SYS002 UA 'CPU--==.MV.MERGED.TC.DATA' MVNR0101 //SORTIN1 DD DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA, // DISP=OLD //* SD VS W WORKCAT S IJSYS04 '%DOS.WORKFILE.SYS004' //SYS004 DD DSN=&&SYS004, // SPACE=(TRK,(9,2)), // UNIT=SYSDA //* SD O SYS001 UA 'MVAGFO1.TC.DATA' MVNR0101 //SORTOUT DD DSN=VTMV.DICSZGFO.BXXXX.TC.DATA, // DISP=(NEW,CATLG,DELETE), // SPACE=(TRK,(6,1),RLSE), // UNIT=SYSDA //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * OPTION RESTORE MVNR0101 FIN /* //* //* *** STEP 3 *** //* //* --> PGM=TDYNASN <-- DELETED //* //* STEP0030 PGM=ADRDSSU MAXBACK //* //STEP0030 EXEC PGM=ADRDSSU //* MODULE MAXBACK PROCESSED BY PLUG-IN JCLTDUSP //* SD I MVAGFO1 'MVAGFO1.TC.DATA' BACKUP //#BACKUP DD DUMMY,DSN=VTMV.DICSZGFO.BXXXX.TC.DATA //* MT O 'MV8GFO5,U' BACKUP //SYS001 DD DSN=VTMV.DICSZGFO.BXXXX.TC.DATA.BACKUP(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=TAPE //* PR O //SYSPRINT DD SYSOUT=* //* CD I //SYSIN DD * DUMP - DATASET( - INCLUDE( - VTMV.DICSZGFO.BXXXX.TC.DATA - )) - SPHERE - SHARE - OUTDD(SYS001) /* //* //* DELETING WORK DISK FILE(S) //* //* --> PGM=DYNUTIL <-- DELETED //* //SCRATCH EXEC PGM=IEFBR14 //* //DEL001 DD DSN=VTMV.$TEMP$.MV.MERGED.TC.DATA,DISP=(MOD,DELETE) //
Return to the Sample Job Stream List