Initial commit of DUTAS source code
This commit is contained in:
14
Procs/DTSUC30A
Normal file
14
Procs/DTSUC30A
Normal file
@ -0,0 +1,14 @@
|
||||
//****
|
||||
//* DTSUC30A - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM ADP
|
||||
//* (SPEC FROM ADP BECAUSE OF DSN!)
|
||||
//****
|
||||
//STEP0100 EXEC PGM=IDCAMS,
|
||||
// COND=(0,LT)
|
||||
//SYSPRINT DD SYSOUT=*
|
||||
//STEP0100.INDD01 DD DSN='100.DC.RATES.REQ',
|
||||
// UNIT=CART,
|
||||
// VOL=SER=&TVOLSER.,
|
||||
// LABEL=&LVLABEL.,
|
||||
//*** LABEL=(1,SL,EXPDT=98000),
|
||||
// DISP=SHR
|
||||
//**
|
||||
Reference in New Issue
Block a user