//XMITTDC1 JOB  (UI,4300,3400,T),'PRD2TDEC.UIEXTRCT',
//         MSGCLASS=X,
//         NOTIFY=ECNTSUP,CLASS=P
/*ROUTE PRINT U@PRT65               -  BY Z/OS UPGRADE
//***      NOTIFY=ECNTSUP
//****
//******** this job is no longer needed replaced by job dtsft202   zl1
//****
//*    THIS JCL EXTRACTS EMPLOYER NUMBERS FROM THE TAX FILE,
//*    THIS JOB RUNS WEEKLY, ON MONDAY, IN THE AM.
//****
//  SET MSTNODE='PROD'
//  SET PGMNODE='devl'
//  SET LVLNODE='PROD'
//  SET  UINODE='prod'
//****
//PROCLIB  JCLLIB ORDER=DOESTAX.&LVLNODE..PROCS.BATCH.LIB
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//****
//STEP0100 EXEC  PGM=TDECTAX,REGION=1024K
//SYSCOUNT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSDBOUT DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//*
//DTSIMSTR INCLUDE MEMBER=DTSIMSTR
//*
//OUTFILE  DD  DSN=DOESTAX.CONV.TDECEXT,
//***             DISP=(NEW,CATLG,DELETE),  /*1ST TIME ONLY.
//             DISP=SHR,
//             UNIT=SYSDA,SPACE=(TRK,(05,01)),
//             DCB=(RECFM=FB,LRECL=06,BLKSIZE=3000)
//****
//***************************************************************
//** 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
//INPUT    DD  *
10.57.110.147
dutasrc
Today728rc!
pwd
ASCII
PUT 'DOESTAX.CONV.TDECEXT' TDEC.TAXFILE
QUIT
/*
//****