72 lines
2.2 KiB
Plaintext
72 lines
2.2 KiB
Plaintext
//DTSRQ721 JOB (UI,4300,3400,T),PROD.BE720,
|
|
// CLASS=A,MSGCLASS=X,
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
// USER=#DOADTS,
|
|
// REGION=0M
|
|
//*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
|
|
//**
|
|
// SET TPSYRQ='DUMMY' <<<< LEAVE ASIS FOR THIS JOB
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
// SET LHOLD='YES'
|
|
//**
|
|
//* ON REQUEST REPORT DTSBR721 - *
|
|
//* DB/BILLINGS SI EMPLYRS (REIMBURSEMENTS)
|
|
//* (RPT721)
|
|
//**
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//** NO BACKUP NEEDED BEFORE THIS REPORT
|
|
//**
|
|
//**DD01 DD DSN=DOESTAX.&MSTNODE..PER.RPT(+0)
|
|
//** PER FILE FROM JOB DTSRQ433
|
|
//**
|
|
//STEP0100 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=DOESTAX.&MSTNODE..PER.RPT(+0),DISP=SHR
|
|
//INDD02 DD DSN=&&RPT433,
|
|
// DISP=(,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(INDD02)
|
|
/*
|
|
//***************************************************************
|
|
//*
|
|
//STEP0200 EXEC PGM=DTSBE721,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//*
|
|
//DTSFVRI1 DD DSN=&&RPT433,
|
|
// DISP=(OLD,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(8192,(1000,1000),RLSE),
|
|
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//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
|
|
//STEP0100.RPT715R1 DD DUMMY
|
|
//STEP0100.RPT716R1 DD DUMMY
|
|
//STEP0100.RPT717R1 DD DUMMY
|
|
//STEP0100.RPT718R1 DD DUMMY
|
|
//STEP0100.RPT719R1 DD DUMMY
|
|
//STEP0100.RPT722R1 DD DUMMY
|
|
//DOESLBLP.DOESLBL1 DD DUMMY LABELS 00630200
|
|
//*
|