19 lines
587 B
Plaintext
19 lines
587 B
Plaintext
//****
|
|
//* DTSUC30C - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM FISC AGNTS
|
|
//* (FROM F.A. CART.)
|
|
//****
|
|
//STEP0100 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//STEP0100.INDD01 DD &FAFILE.,
|
|
// UNIT=CART,
|
|
// VOL=SER=&TVOLSER.,
|
|
// DCB=(RECFM=FB,LRECL=100,BLKSIZE=10000), //* CERIDIAN
|
|
//** DCB=(RECFM=FB,LRECL=80,BLKSIZE=800),
|
|
//**
|
|
//**** LABEL=(1,SL,EXPDT=98000),
|
|
//**** LABEL=(2,BLP,EXPDT=98000),
|
|
// LABEL=&LVLABEL.,
|
|
// DISP=SHR
|
|
//**
|