//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
/*
//