Initial commit of DUTAS source code
This commit is contained in:
10
Procs/DTSUC30F
Normal file
10
Procs/DTSUC30F
Normal file
@ -0,0 +1,10 @@
|
||||
//****
|
||||
//* 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
|
||||
//**
|
||||
Reference in New Issue
Block a user