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/DESOLABK
+++ b/Procs/DESOLABK
@ -0,0 +1,18 @@
+//*****                                                                 00010000
+//*    UI TAX OLA VSAM FILE BACKUP TO DASD FOR IMMEDIATE USE.           00030001
+//*****                                                                 00052005
+//DESOLABK PROC LVLNDIN='PROD',LVLNDOUT='PROD',                         00060005
+//           BKUPGEN='(+1)'                                             00070005
+//****                                                                  00100001
+//STEP0170 EXEC PGM=IDCAMS,                       /* SPEC OLA BACKUP    00570001
+//             COND=(0,LT)                                              00580000
+//SYSPRINT DD  SYSOUT=*                                                 00590000
+//INDD01   DD  DSN=DOESTAX.&LVLNDIN..VSAM.OLA,DISP=SHR,                 00600002
+//             AMP=('BUFNI=5,BUFND=30')                                 00610000
+//OUTDD01  DD  DSN=DOESTAX.&LVLNDOUT..BKP.EMTOLA&BKUPGEN.,              00620002
+//             DISP=(,CATLG,DELETE),                                    00630000
+//             UNIT=SYSDA,                                              00640002
+//             SPACE=(32760,(1000,1000),RLSE),                          00650004
+//             DCB=(SYS3.MODEL,RECFM=VB,LRECL=4096,BLKSIZE=32760)       00670000
+//SYSIN    DD  DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSRONE),DISP=SHR     00680000
+//****                                                                  00690002