//**** //* DTSUC30A - LOAD QTRLY CONTRIBUTION/WAGE DATA FROM ADP //* (SPEC FROM ADP BECAUSE OF DSN!) //**** //STEP0100 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //STEP0100.INDD01 DD DSN='100.DC.RATES.REQ', // UNIT=CART, // VOL=SER=&TVOLSER., // LABEL=&LVLABEL., //*** LABEL=(1,SL,EXPDT=98000), // DISP=SHR //**