//****
//*   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
//**