//****
//*          DTSBCHGT - LOAD QTRLY CHARGE DATA FROM FISC AGNTS
//*                                (FROM F.A. CART.)
//****
//STEP0100 EXEC PGM=IDCAMS,
//             COND=(0,LT)
//SYSPRINT DD  SYSOUT=*
//STEP0100.INDD01 DD DSN=&FAFILE.,
//***      UNIT=CART,
//         UNIT=CART90,
//**       UNIT=700,
//**       UNIT=530,
//         VOL=SER=&TVOLSER.,
//         LABEL=(&LABEL.,,,EXPDT=98000),
//         DCB=RECFM=FB,LRECL=&RECL,BLKSIZE=&BLKIN.,
//         DISP=SHR
//**