//****
//*          DTSBCHGX - 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,
//         VOL=SER=&TVOLSER.,
//         LABEL=(2,BLP,EXPDT=98000),
//         DCB=(SYS3.MODEL,RECFM=FB,LRECL=80,BLKSIZE=&LBLOCKS.),
//         DISP=SHR
//**