* $$ 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