DUTAS re-platformed to Raincode - Initial Source Code

JCL/DTSFTMTB.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
+//*********************************************************************
+//** GET M&T WAGE DATA FILE EACH QUARTER
+//*                                                                     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.199.21.73
+DCGOV
+D1C2G3O4
+CD \DCGOV\HRM_OT\DIST
+GET 'M&THRFILE.TXT' 'DOESTAX.CONV.UC30MTB.WAGES' (REP
+QUIT
+/*
+//