11 lines
257 B
Plaintext
11 lines
257 B
Plaintext
//****
|
|
//* DTSUC30F - LOAD QTRLY CHARGE DATA FROM FISC AGNTS
|
|
//* (UPLOADED FLOPPY FILE)
|
|
//****
|
|
//STEPP100 EXEC PGM=IDCAMS,
|
|
// COND=(0,LT)
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD &FAFILE.,
|
|
// DISP=SHR
|
|
//**
|