//DTSRQ442 JOB (UI,4300,3400,T),RQ442,CLASS=A,MSGCLASS=X,               00000010
//       USER=#DOADTS,
//       NOTIFY=ECNTSUP,
//****   TYPRUN=SCAN,
//       REGION=0M
//******************************************************************
// SET MSTNODE='PROD'
// SET LVLNODE='PROD'
// SET LHOLD='YES'
//******************************************************************
//*                                                                |
//* JOB       : AGING OF ACCOUNTS RECEIVABLE
//*                                                                |
//******************************************************************
//*                                                                |
//*       1. RUN RIGHT AFTER THE LAST SUCCESSFUL MONTHLY RUN
//*
//*
//*                      TESTING RC  ZL1
//*================================================================|
//***
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB
//***
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//*********************************************************************
//STEP0150 EXEC DTSBE442,                   BD400 PERIODIC EXTRACT
//          RUNTYPE='OR',
//          PREBACK='Y'
//STEP0100.EXTPARM  DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSRQ442),
//            DISP=SHR
/*
//STEP0100.DTSFBTCO DD  DUMMY
//***                                       SORT REPORT RECORDS
//STEP0200 EXEC DTSRSORT
//**
//*                                         REPORT GENERATION
//STEP0300 EXEC DTSRQRPT
//
//STEP0400 EXEC PGM=FTP
//SYSPRINT DD  SYSOUT=*
//OUTOUT   DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFT442),DISP=SHR
/*
//***