75 lines
3.1 KiB
Plaintext
75 lines
3.1 KiB
Plaintext
//DTSRQ715 JOB (UI,4300,3400,T),PROD.RPT715, 00000010
|
|
// CLASS=P,MSGCLASS=X, 00000010
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP,
|
|
// REGION=0M
|
|
//* 00001700
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET TPSYRQ='YR2025' <<<< SET YEAR TO PREVIOUS YEAR (OUT FILE)
|
|
// SET LHOLD='YES'
|
|
//* 00001700
|
|
//*******************************************************************
|
|
//* ON REQUEST REPORT DTSBX715 -
|
|
//* CREATE TPS STATUS DETERMINATION RECORDS
|
|
//****
|
|
//**** INPUT FILE IS CREATED BY ETA581 PROGRAM BE770
|
|
//**** NEED TO COMBINE ALL 4 QTRS TPS.STATUS.QTR? BEFORE RUNNING ZL1
|
|
//*******************************************************************
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//* 00001700
|
|
//*****************************************************************
|
|
//STEP0101 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUTDD01 DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
|
|
// DISP=(,CATLG,DELETE),
|
|
//* DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(5,5),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
|
|
//*
|
|
//INDD01 DD DSN=DOESTAX.PROD.TPS.STATUS.QTR1,DISP=SHR
|
|
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR2,DISP=SHR
|
|
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR3,DISP=SHR
|
|
// DD DSN=DOESTAX.PROD.TPS.STATUS.QTR4,DISP=SHR
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
|
/*
|
|
//* 00001700
|
|
//STEP0300 EXEC PGM=DTSBX715, /* TPS
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//TPSSTAT DD DSN=DOESTAX.&LVLNODE..TPS.STATUS.&TPSYRQ.,
|
|
//* DISP=(,CATLG,DELETE),
|
|
// DISP=(OLD,KEEP,KEEP),
|
|
// SPACE=(CYL,(5,5),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=56,BLKSIZE=28000)
|
|
//*
|
|
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..PER.RPT(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(16394,(900,900),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//* REPORT RECORD SORT
|
|
//STEP0250 EXEC DTSRSORT
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSTPRPT
|
|
//*TEP0100.RPT715R1 DD DISP=SHR
|
|
//STEP0100.RPT716R1 DD DUMMY
|
|
//STEP0100.RPT717R1 DD DUMMY
|
|
//STEP0100.RPT718R1 DD DUMMY
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT720R1 DD DUMMY
|
|
//STEP0100.RPT720R2 DD DUMMY
|
|
//STEP0100.RPT722R1 DD DUMMY
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS
|
|
//*
|
|
//**********************************************************************01190000
|