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