DUTAS re-platformed to Raincode - Initial Source Code

JCL/XMITOTR2.jcl

@@ -0,0 +1,66 @@
+//XMITOTR2 JOB (TD,0000,0000,T),PROD.QTR.OTRDATA,                       00010011
+//         MSGCLASS=X,CLASS=P,                                          00010011
+//         NOTIFY=ECNTSUP,MSGLEVEL=(1,1),       //**** PROD VERSION     00010011
+//         USER=#DOADTS,                                                00010011
+//         REGION=4M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//*****                     **-->> CHANGE ALL 034 TO 041  (YRQ)         00010011
+//      SET LVLNODE='PROD'
+//      SET MSTNODE='CONV'
+//*****                                                                 00010011
+//**       OTR = OFF.O.TAX & REV PRIOR QTR TRANSACTION WAGE DATA        00010011
+//**  THIS JOB IS DESIGNED TO RUN AT DOESJES2 AND XMIT 3 FILES          00010011
+//**  TO PROCESS AT ODC2 (BY OTR).  THEY ARE USUALLY CREATED            00010011
+//**  ON THE FIFTH BUSINESS DAY OF A QTR BY DTSBX465.                   00010011
+//****
+//JOBLIB   DD  DSN=DOESTAX.PROD.BATCH.LOADLIB,DISP=SHR
+//         DD  DSN=UI.PROD.DOCS.LOADLIB,DISP=SHR
+//         DD  DSN=SYS1.CXR.SCXRRUN,DISP=SHR
+//**//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB
+//**//LOADLIBS INCLUDE MEMBER=DTSIJLIB
+//* Z/OS 1.4 LLIB ORDER=SYS2.OS390V26.LP5ESV1P.PROCLIB.SYS2OVER
+//****                              //* DOWNLOAD EXTRACT FILE
+//**              CHECK TXMTO12 FOR THE ENCRYPTION STEP
+//STEP0150 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
+//           PARM='(EXIT TIMEOUT 60'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  *
+10.27.13.1
+FTDEOTR2
+DOES2OTR
+BINARY
+SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
+PUT 'DOESTAX.PROD.UI.OTR.FED' 'FRDWH.PRD.RS21.DOESUI.OTR.FED'
+QUIT
+/*
+//****                              //* DEL THE INTERIM FILE
+//STEP0250 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
+//           PARM='(EXIT TIMEOUT 60'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  *
+10.27.13.1
+FTDEOTR2
+DOES2OTR
+BINARY
+SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
+PUT 'DOESTAX.PROD.UI.OTR.DCG' 'FRDWH.PRD.RS21.DOESUI.OTR.DCG'
+QUIT
+/*
+//****                              //* DEL THE INTERIM FILE
+//STEP0350 EXEC PGM=FTP,REGION=4M,COND=(0,LT),
+//           PARM='(EXIT TIMEOUT 600'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  *
+10.27.13.1
+FTDEOTR2
+DOES2OTR
+BINARY
+SITE RECFM=FB LRECL=47 BLKSIZE=28200 UNIT=CART
+PUT 'DOESTAX.PROD.UI.OTR.BUS' 'FRDWH.PRD.RS21.DOESUI.OTR.BUS'
+QUIT
+/*
+//****                              //* END OF OTR FTP WAGES