56 lines
1.6 KiB
Plaintext
56 lines
1.6 KiB
Plaintext
//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..PROCLIB
|
|
//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.82.193.144
|
|
tdecftp
|
|
Cf65ou*13!c
|
|
pwd
|
|
ASCII
|
|
PUT 'DOESTAX.CONV.TDECEXT' TDEC.TAXFILE
|
|
QUIT
|
|
/*
|
|
//****
|