15 lines
424 B
Plaintext
15 lines
424 B
Plaintext
//****
|
|
//* 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
|
|
//**
|