91 lines
3.1 KiB
Plaintext
91 lines
3.1 KiB
Plaintext
//DTSBXPFL JOB (UI,4300,3400,T),RUNRQ460,CLASS=S,MSGCLASS=X,
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTZL1,
|
|
//**** TYPRUN=SCAN,
|
|
//**** TYPRUN=HOLD,
|
|
// REGION=0M
|
|
//**
|
|
// SET LVLNODE='PROD'
|
|
// SET MSTNODE='PROD'
|
|
//**
|
|
//**
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB
|
|
//*
|
|
//**********SEE NOTE BELOW TO TRANSFER FILE TO UAT SERVER************
|
|
//*
|
|
//* CITYWIDE CLEAN HANDS EXTRACT -TESTING ONLY TO OCFO UAT SERVER*
|
|
//**** RUN JOB DTSFT460 FROM OS19 TO TRANSFER FILE.....01/23/20 ZL1 *
|
|
//*
|
|
//* CHANGED PROGRAM TO ZXPFL, OLD PROGRAM BXPFL HAD ISSIES 8/31/23 ZL1
|
|
//*
|
|
//*******************************************************************
|
|
//*
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
|
|
//**
|
|
//* NO BACKUP NEEDED BEFORE THIS REPORT
|
|
//**
|
|
//STEP0010 EXEC PGM=SORT,PARM='VLTEST=0' SORT REPORT RECORDS
|
|
//SYSOUT DD SYSOUT=(*)
|
|
//SYSPRINT DD SYSOUT=(*)
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
|
|
// DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(24,9,CH,A)
|
|
OMIT COND(24,9,CH,EQ,C'060726487')
|
|
//**
|
|
//STEP0100 EXEC PGM=DTSZXPFL,
|
|
// COND=(0,LT),
|
|
// REGION=4096K
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//TAXFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.TAXPFL.BE459,DISP=SHR
|
|
//*
|
|
//*FLFILE1 DD DSN=ECNTSUP.DOESTAX.CONV.FTP.PFLOTR,DISP=SHR
|
|
//PFLFILE1 DD DUMMY
|
|
//*
|
|
//TAXFILE2 DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
|
|
//*
|
|
//*******************************************************************
|
|
//STEP0200 EXEC PGM=SORT
|
|
//SORTIN DD DSN=ECNTSUP.DOESTAX.PROD.CMB.BE459,DISP=SHR
|
|
//SORTOUT DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
|
|
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(20,20),RLSE)
|
|
//SYSIN DD *
|
|
SORT FIELDS=(1,386,CH,A)
|
|
OMIT COND(24,9,CH,EQ,C'060726487')
|
|
//*
|
|
//*******************************************************************
|
|
//STEP0300 EXEC PGM=FTP,REGION=2M
|
|
//*YSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMFTS9)
|
|
//SYSFTPD DD DISP=SHR,DSN=SYS2.TCPIP.ODC3.PARMLIB(FTCMGAW9)
|
|
//SYSIN DD *
|
|
FWFRIENDLY TRUE
|
|
//SYSPRINT DD SYSOUT=*,HOLD=YES
|
|
//INPUT DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSFX459),DISP=SHR
|
|
//*
|
|
//*******************************************************************
|
|
//STEP0400 EXEC PGM=IDCAMS
|
|
//SYSPRINT DD SYSOUT=*
|
|
//INDD01 DD DSN=ECNTSUP.DOESTAX.PROD.FTP.BE459,DISP=SHR
|
|
//OUTDD01 DD DSN=DOESTAX.PROD.CLENHAND.BE459(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=386,BLKSIZE=27792)
|
|
//SYSIN DD *
|
|
REPRO INFILE(INDD01) OUTFILE(OUTDD01)
|
|
/*
|