//**** //* DTSBCHGF - LOAD QTRLY CHARGE DATA FROM FISC AGNTS //* (UPLOADED FLOPPY FILE) //**** //STEPP100 EXEC PGM=IDCAMS, // COND=(0,LT) //SYSPRINT DD SYSOUT=* //INDD01 DD DSN=&FAFILE., // DISP=SHR //**