//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
//*
//*         testing rc   zl1
//*================================================================|
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//***
//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)
//***