//DTSFT202 JOB  (UI,4300,3400,T),'PRD2TDEC.UIEXTRCT',
//         MSGCLASS=X,
//         USER=#DOADTS,
//         NOTIFY=ECNTSUP,CLASS=P
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//****
//*    THIS job ftp server data to tdec an a daily basis,
//****
//  SET MSTNODE='PROD'
//  SET LVLNODE='PROD'
//  SET  UINODE='PROD'
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//*
//***************************************************************
//** FTP JCL CANNOT HAVE LINE NUMBER ON COLS 72 80
//** TO TURN OFF LINE NUMBER TYPE "NONUM"
//** FTP COMMANDS MUST be in lower case
//***************************************************************
//*STEP0200 EXEC PGM=FTP,PARM='(EXIT TIMEOUT 120'
//*SYSPRINT DD  SYSOUT=*
//*OUTOUT   DD  SYSOUT=*
//*SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133
//*SYSGET   DD  *,DCB=BLKSIZE=80
//**PUT    DD  DSN=DOESTAX.CONV.PARMLIB(DTSDR202),DISP=SHR
//*INPUT    DD  DSN=DOESTAX.CONV.USER.PARMLIB(DTSFT202),DISP=SHR
/*
//*     TDEC BBACKUP TEST SERVER 
//********************************************************************
//* //            CODEPAGE=1252,AUTOENCODE=YES, 
//*FILES MUST CONVERT TO BINARY FOR RAINCODE TO PROCESS ZL1
//**
//STEP001 EXEC PGM=FTP,PARM='(EXIT'                                  
//INPUT    DD *                                                       
50.76.21.195                                                         
tdec_dcw_5
14cw0d8Y                                                        
ascii
PUT 'DOESTAX.CONV.TDEC.VERIF' verification_file.txt
PUT 'DOESTAX.CONV.TDEC.EMPNAME' employer_no_file.txt                                                               
QUIT                                                                  
//SYSPRINT DD  SYSOUT=*                                               
//OUTOUT   DD  SYSOUT=*                                               
//SYSPUT   DD  SYSOUT=*,DCB=BLKSIZE=133                               
//SYSGET   DD  *,DCB=BLKSIZE=80                                       
//*

//****