19 lines
496 B
Plaintext
19 lines
496 B
Plaintext
//****
|
|
//* 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')
|
|
//**
|