DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSPGOV2.jcl

@@ -0,0 +1,21 @@
+//DTSPGOV2 JOB (TP),GOVONE,MSGCLASS=X,CLASS=A,MSGLEVEL=(1,1),
+//         NOTIFY=TOPFF0,USER=#DOADTS,REGION=4M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//********************************************************************
+//*      TRIGEERED IN BY DTSRQEXT JOB TO SEND FILE TO GOV1           *
+//*                   RUNS ON DOES CA/7                              *
+//*      FTP'S JOB DTSPODC5 TO OS12 TO START PUT PROCESS TO GOV1     *
+//********************************************************************
+//JS010    EXEC PGM=FTP,REGION=2M,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//FTPJOB   DD  DISP=SHR,DSN=DOESTAX.PROD.JOBLIB(DTSPODC5)
+//INPUT    DD  *
+10.27.12.1
+FTG1DOS1
+DESUSR
+SITE FILETYPE=JES
+PUT 'DOESTAX.PROD.JOBLIB(DTSPODC5)'
+QUIT
+/*