DUTAS re-platformed to Raincode - Initial Source Code

2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
--- a/Procs/DTSBCHGT
+++ b/Procs/DTSBCHGT
@ -0,0 +1,17 @@
+//****
+//*          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
+//**