//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)
/*