Initial commit of DUTAS source code

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