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/JCL/ODC1ODC2.jcl
+++ b/JCL/ODC1ODC2.jcl
@ -0,0 +1,19 @@
+//ODC1ODC2 JOB (UI,4300,3400,T),CREATE-FTP-FILE,CLASS=P,
+//*            TYPRUN=SCAN,
+//             MSGCLASS=X,
+//*            USER=OPCSUB,
+//             NOTIFY=TOPFM0,
+//             REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//*
+//*-------------------------------------------------------------------*
+//* FTP STEP TO TRANSFER FILE FROM ODC1 TO ODC2 FOR DOES PROCESSING   *
+//* FOR APR/CHECKWRITE                                                *
+//*-------------------------------------------------------------------*
+//*
+//STEP0300 EXEC PGM=FTP,REGION=8M,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  DISP=SHR,DSN=DOESTAX.PROD.JOBLIB(OD1TOOD2)
+//*