DUTAS re-platformed to Raincode - Initial Source Code

JCL/FTPJOB1.jcl

@@ -0,0 +1,24 @@
+//dtseftg1 JOB (TOS00),'GOVONE FTP',CLASS=A,MSGCLASS=X,
+//      USER=#DOADTS
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//PROCLIB JCLLIB ORDER=PROD.PROCLIB    BY Z/OS
+//*
+//*
+//FTPXFER  EXEC PGM=FTP,REGION=6M,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTPUT   DD  SYSOUT=*
+//INPUT    DD  *
+10.27.12.1
+FTG1DOS1
+DESUSR
+ebcdic
+mode block
+site tr pri=300 sec=200 unit=work
+put 'DOESTAX.HDVL.EFTEXT' DOESTAX.HDVL.EFTEXT
+dir
+quit
+/*
+//*-------------------------------------------------------------------*
+//* A trailer step should be added here to demand the SYADG1P1 job    *
+//* at ODC2                                                           *
+//*-------------------------------------------------------------------*