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

54
JCL/DTSMIN02.jcl
View File

@ -4,7 +4,9 @@
//* 00001700
// SET MSTNODE='PROD' 00001700
// SET LVLNODE='CONV' 00001700
//* 00001700
//*
//* RAINCODE TESTED 08/30/25 ZL1
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
@ -35,36 +37,41 @@
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(29000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=29,BLKSIZE=29000) 00009000
// SPACE=(29000,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=29,BLKSIZE=29000) 00009000
//* 00001700
//EXPBX104 DD DSN=DOESTAX.CONV.ESSP.C104, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(21600,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=119,BLKSIZE=23800) 00009000
// SPACE=(21600,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=119,BLKSIZE=23800) 00009000
//* 00001700
//EXPBX106 DD DSN=DOESTAX.CONV.ESSP.C106, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(26500,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=53,BLKSIZE=26500) 00009000
// SPACE=(26500,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=53,BLKSIZE=26500) 00009000
//* 00001700
//EXPBX108 DD DSN=DOESTAX.CONV.ESSP.C108, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24000,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=24,BLKSIZE=24000) 00009000
// SPACE=(24000,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=24,BLKSIZE=24000) 00009000
//* 00001700
//EXPBX110 DD DSN=DOESTAX.CONV.ESSP.C110, 00005000
//* DISP=(NEW,CATLG,DELETE), 00006000
//* DISP=(NEW,CATLG,DELETE), 00006000
// DISP=SHR, 00006000
// UNIT=SYSDA, 00007000
// SPACE=(24900,(1000,1000),RLSE), 00008000
// DCB=(RECFM=FB,LRECL=249,BLKSIZE=24900) 00009000
// SPACE=(24900,(1000,1000),RLSE),
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000
//* 00001700
//EXPBX120 DD DUMMY 00005000
//* 00001700
@ -96,7 +103,8 @@
// DISP=SHR,UNIT=SYSDA, 00011*18
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18
// SPACE=(CYL,(100,25),RLSE),
// DCB=(RECFM=FB,LRECL=477,BLKSIZE=477)
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=477,BLKSIZE=477)
//* 00011*18
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
@ -173,7 +181,7 @@
//*****************************************************************
//* EMAIL STEP
//*****************************************************************
//IF1 IF STEP0400.RC=0 THEN
//EMAIL IF STEP0400.RC=0 THEN
//*
//STEP0500 EXEC PGM=IEBGENER,REGION=4M
//SYSPRINT DD SYSOUT=*
@ -189,8 +197,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: DAILY MINI CONVERSION REGISTRATION(S) READY '),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.SENTRPT.TXT,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ELSE
@ -208,8 +218,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: NO DAILY MINI CONV REGISTRATION TODAY...'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.MINICONV.TXT1,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
// ENDIF
@ -228,8 +240,10 @@
// 'CC:RAJINI.JUJJAVARAPU@DC.GOV',
// 'SUBJECT: ACCOUNTS PENDING FOR MINI CONV IN DUTAS.'),
// MAILFROM=DUTAS@DC.GOV
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
//SYSUT1 DD DSN=DOESTAX.CONV.CURRRPT.TXT,DISP=SHR,
// CODEPAGE=1252,AUTOENCODE=YES,
// DCB=(RECFM=LSEQ,LRECL=80,BLKSIZE=800)
//SYSUT2 DD CODEPAGE=1252,AUTOENCODE=YES,SYSOUT=A,OUTPUT=*.OUT1
//SYSIN DD DUMMY
//SYSUDUMP DD SYSOUT=(*,,DUMP)
//*