* $$ JOB JNM=BBCCONLY,CLASS=9
* $$ LST CLASS=S,DISP=K,USER=BNKPRT1
// JOB BBCCONLY CASH CONCENTRATION SPREAD PGM.
*
* JOB BBBACKUP UNLOAD BB DATA BASES
* *********************************************************************
* BB001-M FOR MORNING RUN, BB001-A FOR 2:PM RUN, BB001-L FOR 4:PM RUN *
* !!!NOTE!!!: BB001-L IS ONLY PRODUCED ON THE LAST DAY OF THE MONTH *
* *********************************************************************
// ASSGN SYSLST,IGN
// LIBDEF PHASE,SEARCH=MACKLIB.CMTVSE
// EXEC MTPBATCH,SIZE=64K
CICS INVCICS
DLOC STOP ALL
CLOS BB0209
/*
// PAUSE MOUNT SCRATCH & ASSGN SYS001 (BB001-M, A, OR L)
// TLBL COPYOUT,'BB001'
// EXEC FAVER2,SIZE=AUTO
STORE DSN=(BB018* -
BB020-* -
BB060-* -
BB100-* -
BB110-* -
BB130-* -
BB16* -
BB245-1 -
IN400* -
IN435-1 -
RSB404-1 -
TR001-1 -
TR216-1) -
CAT(TREAS.UCAT.BB)
/*
* JOB BB018CC UPDATE TRANS DB WITH CASH CONCENTRATION DATA
// UPSI 00000011
// ASSGN SYS011,IGN
// DLBL IJSYSUC,'TREAS.UCAT.BB',,VSAM
// DLBL BB020,'BB020-1.DATA',,VSAM
// DLBL BB020X,'BB020-2',,VSAM
// DLBL SYS022,'BB018CC',,VSAM
// ASSGN SYS001,DISK,VOL=TREAS3,SHR
// DLBL SORTWK1,'BB018-S',0,VSAM,DISP=(,DATE),RECSIZE=38, X
RECORDS=(9000,1000)
// EXTENT SYS001,TREAS3
// EXEC DLZRRC00,SIZE=512K
DLI,BB018CCT,BBZ01P
020300
/*
* JOB BB035CC UPDATE BANK DATABASE WITH CASH CONCENTRATION DATA
// DLBL BB020,'BB020-1.DATA',,VSAM,CAT=BBCAT
// DLBL BB020X,'BB020-2',,VSAM,CAT=BBCAT
// DLBL BB100,'BB100-1.DATA',,VSAM,CAT=BBCAT
// DLBL BB100X,'BB100-2',,VSAM,CAT=BBCAT
// EXEC DLZRRC00,SIZE=512K
DLI,BB035CC,BBZ01P
/*
* JOB BBDELDEF DELETE/DEFINE ESDS FILE
// EXEC IDCAMS,SIZE=AUTO
DEL (BB018CC) CL CAT (TREAS.UCAT.BB BBCAT) PURGE
DEF CL (NAME(BB018CC) NONINDEXED RECSZ(40 40) -
CISZ (4096) SHR (2) RECORDS (6000 600) VOL(TREAS3)) -
DATA(NAME(BB018CC.ESDS)) -
CAT(TREAS.UCAT.BB)
/*
// LIBDEF PHASE,SEARCH=MACKLIB.CMTVSE
// EXEC MTPBATCH,SIZE=64K
CICS INVCICS
DLOC STRT ALL
OPEN BB0209
/*
/&
* $$ EOJ
Return to the Sample Job Stream List
//BBCCONLY JOB (BBCCONLY),' ',
// CLASS=A,
// MSGCLASS=X,
// MSGLEVEL=(1,1),
// REGION=6M
//*
//JOBLIB INCLUDE MEMBER=JOBLIB
//*
//*
//* JOB BBBACKUP UNLOAD BB DATA BASES
//* *********************************************************************
//* BB001-M FOR MORNING RUN, BB001-A FOR 2:PM RUN, BB001-L FOR 4:PM RUN *
//* !!!NOTE!!!: BB001-L IS ONLY PRODUCED ON THE LAST DAY OF THE MONTH *
//* *********************************************************************
//*
//* STEP0010 PGM=MTPBATCH
//*
//STEP0010 EXEC PGM=MTPBATCH
//* MODULE MTPBATCH PROCESSED BY PLUG-IN MTPBATCH
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS INVCICS
DLOC STOP ALL
CLOS BB0209
/*
//*
//* STEP0020 PGM=ADRDSSU FAVER2
//*
//STEP0020 EXEC PGM=ADRDSSU
//* MODULE FAVER2 PROCESSED BY PLUG-IN JCLTFAV2
//* VS I BBCAT A 'BB018*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB018*'
//* VS I BBCAT A 'BB020-*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB020-*'
//* VS I BBCAT A 'BB060-*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB060-*'
//* VS I BBCAT A 'BB100-*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB100-*'
//* VS I BBCAT A 'BB110-*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB110-*'
//* VS I BBCAT A 'BB130-*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB130-*'
//* VS I BBCAT A 'BB16*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.BB16*'
//* VS I BBCAT A 'BB245-1' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.BB245-1
//* VS I BBCAT A 'IN400*' BACKUP
//#BACKUP DD DUMMY,DSN='MVS.IN400*'
//* VS I BBCAT A 'IN435-1' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.IN435-1
//* VS I BBCAT A 'RSB404-1' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.RSB404-1
//* VS I BBCAT A 'TR001-1' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.TR001-1
//* VS I BBCAT A 'TR216-1' BACKUP
//#BACKUP DD DUMMY,DSN=MVS.TR216-1
//* MT O 'BB001' BACKUP
//COPYOUT DD DSN=MVS.BB001,
// DISP=(NEW,CATLG,DELETE),
// UNIT=TAPE
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DUMP -
DATASET( -
INCLUDE( -
MVS.BB018* -
MVS.BB020-* -
MVS.BB060-* -
MVS.BB100-* -
MVS.BB110-* -
MVS.BB130-* -
MVS.BB16* -
MVS.BB245-1 -
MVS.IN400* -
MVS.IN435-1 -
MVS.RSB404-1 -
MVS.TR001-1 -
MVS.TR216-1 -
)) -
SPHERE -
SHARE -
OUTDD(COPYOUT)
/*
//*
//* JOB BB018CC UPDATE TRANS DB WITH CASH CONCENTRATION DATA
//*
//* STEP0030 PGM=BB018CCT DLZRRC00
//*
//STEP0030 EXEC PGM=DFSRRC00,PARM=(DLI,BB018CCT,BBZ01P)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
// INCLUDE MEMBER=IMSFILES
//* VS U RMASTR /2041/2048 OPT=Y RMASDBD
//* VS U RINXSSN /12/1024 OPT=Y RX1DBD
//* VS U RINXANO /14/1024 OPT=Y RX3DBD
//* VS U RINXNAM /34/1024 OPT=Y RX2DBD
//* VS I RMASTR /2041/2048 OPT=Y RMASDBD
//* VS I RINXSSN /12/1024 OPT=Y RX1DBD
//* VS I RINXANO /14/1024 OPT=Y RX3DBD
//* VS I RINXNAM /34/1024 OPT=Y RX2DBD
//* VS U RHIST /2041/2048 OPT=Y RHISDBD
//* VS U RINXHS /16/1024 OPT=Y RX9DBD
//* VS U REMPL /2041/2048 OPT=Y REMRDBD
//* VS U RINXEMR /8/1024 OPT=Y RX6DBD
//* DA U RCNTL /500/4096 OPT=Y RCTLDBD
//* VS U RCURNT /2041/2048 OPT=Y RCURDBD
//* VS U RINXCUR /16/1024 OPT=Y RX5DBD
//* VS U RFORMR /2041/2048 OPT=Y RFRMDBD
//* VS U RINXDAT /20/1024 OPT=Y RX40DBD
//* VS VS I BBCAT 'BB020-1.DATA'
//BB020 DD DSN=MVS.BB020-1.DATA,
// DISP=SHR
//* VS VS I BBCAT 'BB020-2'
//BB020X DD DSN=MVS.BB020-2,
// DISP=SHR
//* VS VS I BBCAT 'BB018CC'
//SYS022 DD DSN=NCDST.BB018CC,
// DISP=SHR
//SYSOUT INCLUDE MEMBER=SYSOUT
//* CD I SYSIPT 00C
//SYSIN DD *
020300
/*
//*
//* JOB BB035CC UPDATE BANK DATABASE WITH CASH CONCENTRATION DATA
//*
//* STEP0040 PGM=BB035CC DLZRRC00
//*
//STEP0040 EXEC PGM=DFSRRC00,PARM=(DLI,BB035CC,BBZ01P)
//* MODULE DLZRRC00 PROCESSED BY PLUG-IN JCLTDLI
// INCLUDE MEMBER=IMSFILES
//* VS U RMASTR /2041/2048 OPT=Y RMASDBD
//* VS U RINXSSN /12/1024 OPT=Y RX1DBD
//* VS U RINXANO /14/1024 OPT=Y RX3DBD
//* VS U RINXNAM /34/1024 OPT=Y RX2DBD
//* VS I RMASTR /2041/2048 OPT=Y RMASDBD
//* VS I RINXSSN /12/1024 OPT=Y RX1DBD
//* VS I RINXANO /14/1024 OPT=Y RX3DBD
//* VS I RINXNAM /34/1024 OPT=Y RX2DBD
//* VS U RHIST /2041/2048 OPT=Y RHISDBD
//* VS U RINXHS /16/1024 OPT=Y RX9DBD
//* VS U REMPL /2041/2048 OPT=Y REMRDBD
//* VS U RINXEMR /8/1024 OPT=Y RX6DBD
//* DA U RCNTL /500/4096 OPT=Y RCTLDBD
//* VS U RCURNT /2041/2048 OPT=Y RCURDBD
//* VS U RINXCUR /16/1024 OPT=Y RX5DBD
//* VS U RFORMR /2041/2048 OPT=Y RFRMDBD
//* VS U RINXDAT /20/1024 OPT=Y RX40DBD
//* VS VS I BBCAT 'BB020-1.DATA'
//BB020 DD DSN=MVS.BB020-1.DATA,
// DISP=SHR
//* VS VS I BBCAT 'BB020-2'
//BB020X DD DSN=MVS.BB020-2,
// DISP=SHR
//* VS VS I BBCAT 'BB100-1.DATA'
//BB100 DD DSN=MVS.BB100-1.DATA,
// DISP=SHR
//* VS VS I BBCAT 'BB100-2'
//BB100X DD DSN=MVS.BB100-2,
// DISP=SHR
//SYSOUT INCLUDE MEMBER=SYSOUT
//*
//* JOB BBDELDEF DELETE/DEFINE ESDS FILE
//*
//* STEP0050 PGM=IDCAMS
//*
//STEP0050 EXEC PGM=IDCAMS
//* MODULE IDCAMS PROCESSED BY PLUG-IN JCLTAMS
//* VS I BBCAT A 'BB018CC' DELETE
//#DELETE DD DUMMY,DSN=NCDST.BB018CC
//* VS VS ES O BBCAT A 'BB018CC' DEFCL
//#DEFCL DD DUMMY,DSN=NCDST.BB018CC
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I
//SYSIN DD *
DEL (NCDST.BB018CC) CL PURGE
IF LASTCC=8 THEN IF MAXCC=8 THEN SET MAXCC=0
DEF CL (NAME(NCDST.BB018CC) NONINDEXED RECSZ(40 40) -
CISZ (4096) SHR (2) RECORDS (6000 600) VOL(TREAS3))
/*
//*
//* STEP0060 PGM=MTPBATCH
//*
//STEP0060 EXEC PGM=MTPBATCH
//* MODULE MTPBATCH PROCESSED BY PLUG-IN MTPBATCH
//* PR O
//SYSPRINT DD SYSOUT=*
//* CD I SYSIPT 00C
//SYSIN DD *
CICS INVCICS
DLOC STRT ALL
OPEN BB0209
/*
//
Return to the Sample Job Stream List