//****
//*         UPDATE FQTR RECORD WITH CHARGE RUN DATE
//*         AND SELF-INSURED TAX DUE DATE
//****
//DTSUXCGU PROC
//STEP0100 EXEC PGM=CHGBD310,          /*  UPDATE FQTR
//             COND=(0,LT),
//             REGION=4096K
//SYSOUT   DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSABEND DD  SYSOUT=*
//**
//CHGPARM  DD  DSN=DOESTAX.&LVLNODE..CHG.PARM.&QTRLY,
//             DISP=SHR
//**
//DTSFREF  DD  DSN=DOESTAX.&LVLNODE..VSAM.REF,DISP=SHR,
//             AMP=('BUFNI=5,BUFND=10')
//**