14 lines
357 B
Plaintext
14 lines
357 B
Plaintext
//****
|
|
//* DTSUC30X - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM SPECIAL CASE
|
|
//* (SPEC BECAUSE OF DSN/LRECL!)
|
|
//****
|
|
//STEP0100 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//STEP0100.INDD01 DD &FAFILE.,
|
|
// UNIT=CART,
|
|
// VOL=SER=&TVOLSER.,
|
|
// LABEL=&LVLABEL.,
|
|
// DISP=SHR
|
|
//**
|