DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSZTMTB.jcl

@@ -0,0 +1,32 @@
+//DTSFTMTB JOB (UI,4300,3400,T),FPT-GET-MTBDATA,CLASS=S,
+//         MSGCLASS=X,
+//***      USER=#DOADTS,
+//         NOTIFY=ECNTSUP,
+//         REGION=0M
+/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
+//*                                                                     00001700
+//PROCLIB  JCLLIB ORDER=DOESTAX.PROD.PROCLIB                            00001600
+//LOADLIBS INCLUDE MEMBER=DTSIJLIB                                      00001600
+//*                                                                     00001700
+//*********************************************************************
+//** THIS IS THE OLD M&T WAGE FTB JOB
+//*                                                                     00001700
+//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
+//** TO TURN OFF LINE NUMBER TYPE "NONUM"
+//**  FTP COMMANDS ARE CASE SENSATIVE
+//*********************************************************************
+//*                                                                     00001700
+//FTPXFER  EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
+//SYSPRINT DD  SYSOUT=*
+//OUTOUT   DD  SYSOUT=*
+//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
+//SYSGET   DD  *,DCB=BLKSIZE=80
+//INPUT    DD  *
+10.200.20.161
+EHRMFTP
+2BSECURE
+PWD
+GET 'TMNTHRM.ESSSOQZZ.DCFILE(0)' 'DOESTAX.CONV.UC30MTB.WAGES' (REP
+QUIT
+/*
+//