//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.PROCS.BATCH.LIB                            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
/*
//