18 lines
482 B
Plaintext
18 lines
482 B
Plaintext
//****
|
|
//* 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
|
|
//**
|