63 lines
2.2 KiB
Plaintext
63 lines
2.2 KiB
Plaintext
//DTSRQ444 JOB (UI,4300,3400,T),RQ443,CLASS=S,MSGCLASS=X, 00000010
|
|
// NOTIFY=ECNTSUP,
|
|
// USER=#DOADTS,
|
|
//* TYPRUN=SCAN,
|
|
// REGION=0M
|
|
//******************************************************************
|
|
// SET MSTNODE='PROD'
|
|
// SET LVLNODE='PROD'
|
|
//******************************************************************
|
|
//* |
|
|
//* JOB : AGING OF ACCOUNTS RECEIVABLE -----WEEKLY ZL1*
|
|
//* |
|
|
//******************************************************************
|
|
//* |
|
|
//* 1. RUN RIGHT AFTER THE LAST SUCCESSFUL DAILY RUN
|
|
//* IN A QUARTER
|
|
//*
|
|
//* 2. THE CICS FILES MUST BE CLOSED FOR THIS RUN ALSO
|
|
//*
|
|
//*
|
|
//*================================================================|
|
|
//***
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
|
//***
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//*
|
|
//* STD BACKUP BEFORE DATA FILE UPDATE
|
|
//*TEP0100 EXEC DTSUTVSM,
|
|
//* BKUPGEN='(+1)'
|
|
//*
|
|
//*********************************************************************
|
|
//STEP0150 EXEC DTSRQ444, BD400 PERIODIC EXTRACT
|
|
// RUNTYPE='OR',
|
|
// PREBACK='Y'
|
|
//STEP0100.EXTPARM DD *
|
|
444,
|
|
/*
|
|
//STEP0100.DTSFBTCO DD DUMMY
|
|
//*** SORT REPORT RECORDS
|
|
//STEP0200 EXEC DTSRSORT
|
|
//**
|
|
//* REPORT GENERATION
|
|
//STEP0300 EXEC DTSRQRPT
|
|
//STEP0100.RPT443R1 DD HOLD=YES
|
|
//*
|
|
//X444MAIL EXEC PGM=IEBGENER,COND=(0,LT),
|
|
// REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:CANDIS.CHANEY@DC.GOV',
|
|
// 'TO:HAWI.ALEMU@DC.GOV',
|
|
//* 'TO:TIMOTHY.PERLOW@DC.GOV',
|
|
//* 'CC:JOY.DIGGS@DC.GOV',
|
|
//* 'CC:YINKA.OLAREWAJU-ALO@DC.GOV',
|
|
// 'SUBJECT: WEEKLY COLLECTION A/R REPORT',
|
|
// 'FILENAME:WEEKLY_COLL_AR_REPORT.CSV'),
|
|
// MAILFROM=DUTAS@DC.GOV
|
|
//SYSUT1 DD DSN=DOESTAX.PROD.DTSBE444.QTRAR,DISP=SHR
|
|
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
|
//SYSIN DD DUMMY
|
|
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
|
//***
|