//****
//*   DTSUC30T - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM FISC AGNTS
//*                          (FROM F.A. TAPE)
//****
//STEP0100 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//STEP0100.INDD01 DD &FAFILE.,
//         UNIT=DCTAPE,
//         VOL=SER=&TVOLSER.,
//         DCB=(RECFM=FB,LRECL=80,BLKSIZE=&LBLKSZ.),
//         LABEL=(2,BLP,EXPDT=98000),            /* TRW SUPERUSER ONLY
//**         LABEL=(1,SL,EXPDT=98000),             /* THE REST OF US
//         DISP=SHR
//**