//DTSRQ513 JOB (UI,4300,3400,T),CFO-MTHLY,CLASS=A,MSGCLASS=X,           00000010
//           USER=#DOADTS,
//          NOTIFY=ECNTSUP
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//*
//*  CFO MTHLY REPORT IDENTIFYING PENALTY AND INTEREST COLLECTED
//*
//   SET LVLNODE='PROD'                       /PROGRAMS
//   SET MSTNODE='PROD'                       /MASTER FILES
//   SET GEN='(0)'                            /SRTMONTH.RPT GDG GEN
//*
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB                       00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
//*                                             BKP ONLY WHEN NEEDED    00001700
//*
//STEP0300 EXEC PGM=DTSBD513,
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//CAIMRPTS DD  SYSOUT=*
//RPT513R1 DD  SYSOUT=0
//**
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR                                      00001600
//DTSFVRI1 DD  DSN=DOESTAX.&MSTNODE..SRTMONTH.RPT&GEN.,DISP=SHR
//DTSFREF  DD  DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//*
//**
//DTSF513  DD  DSN=ECNTSUP.DOESTAX.&LVLNODE..FTP.BX513,
//**           DISP=(NEW,CATLG,CATLG),
//             DISP=(OLD,KEEP,KEEP),
//             UNIT=SYSDA,
//             SPACE=(800,(1000,1000),RLSE),
//             DCB=(RECFM=FB,LRECL=80,BLKSIZE=80)
//*
//***                              SEND DATA TO SERVER FOR UPLOAD
//STEP0300 EXEC PGM=FTP            TO DATA VALIDATION DATABASE
//SYSPRINT DD  SYSOUT=*
//SOUTOUT  DD  SYSOUT=*
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//SYSGET   DD  *,DCB=BLKSIZE=80
//INPUT    DD  DSN=DOESTAX.PROD.APPL.PARMLIB(DTSFT513),DISP=SHR
//***