giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

All Z' modified PROD server code merge 09/10/2025

Browse Source
This commit is contained in:
Manoj Patel
2025-10-10 08:02:01 -04:00
parent 7408a12cc6
commit d3af779d95
145 changed files with 6247 additions and 419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

100
JCL/DTSZX145 (2).jcl Normal file
View File

@ -0,0 +1,100 @@
//DTSDX145 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.PROCS.BATCH.LIB
//********************************************************************
//*** COPY ESSSP X145 FILE TO WEB X145 FILE FOR DUPLICATE CHECKING.
//** 02/09/16 ZL1
//********************************************************************
//STEP0010 EXEC PGM=SORT,REGION=1024K
//SORT.SYSPRINT DD SYSOUT=*
//SORT.STATOUT DD SYSOUT=*
//SORT.SYSDBOUT DD SYSOUT=*
//SORT.SYSUDUMP DD SYSOUT=*
//SORT.SYSOUT DD SYSOUT=*
//SORTIN DD DSN=ECNTSUP.DOESTAX.CONV.FROMESSP.X145,DISP=SHR
//SORTOUT DD DSN=ECNTSUP.DOESTAX.CONV.ESSPX145,DISP=SHR
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(50,50),RLSE)
//SYSIN DD *
SORT FIELDS=(1,11,CH,A)
END
/*
//
//*
//LOADLIBS INCLUDE MEMBER=DTSIJLIB
//**
//* NO BACKUP NEEDED BEFORE THIS REPORT
//**
//STEP0010 EXEC PGM=SORT 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)
/*