250 lines
11 KiB
Plaintext
250 lines
11 KiB
Plaintext
//DTSMIN02 JOB (UI,4300,3400,T),SRJ,CLASS=A,MSGCLASS=X, JOB21442
|
|
// USER=#DOADTS,
|
|
// NOTIFY=ECNTSUP
|
|
//* 00001700
|
|
// SET MSTNODE='PROD' 00001700
|
|
// SET LVLNODE='CONV' 00001700
|
|
//*
|
|
//* RAINCODE TESTED 08/30/25 ZL1
|
|
//* 00001700
|
|
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCS.BATCH.LIB 00001600
|
|
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
|
|
//* 00001700
|
|
//STEP0100 EXEC PGM=DTSBS412,
|
|
// COND=(0,LT),
|
|
// REGION=0M
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//* 00001700
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//***
|
|
//DTSFSENT DD DSN=DOESTAX.CONV.SENTMINI(0),DISP=SHR
|
|
//***
|
|
//BX411TMP DD DSN=&&X411TMP, 00005000
|
|
// DISP=(NEW,PASS,DELETE), 00006000
|
|
// UNIT=SYSDA, 00007000
|
|
// SPACE=(CYL,(20,10),RLSE), 00008000
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720) 00009000
|
|
//* 00001700
|
|
//EXPBX100 DD DUMMY 00005000
|
|
//* 00001700
|
|
//EXPBX102 DD DSN=DOESTAX.CONV.ESSP.C102, 00005000
|
|
//* DISP=(NEW,CATLG,DELETE), 00006000
|
|
// DISP=SHR, 00006000
|
|
// UNIT=SYSDA, 00007000
|
|
// 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),
|
|
// 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),
|
|
// 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),
|
|
// 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=SHR, 00006000
|
|
// UNIT=SYSDA, 00007000
|
|
// SPACE=(24900,(1000,1000),RLSE),
|
|
// CODEPAGE=1252,AUTOENCODE=YES, 00008000
|
|
// DCB=(RECFM=LSEQ,LRECL=249,BLKSIZE=24900) 00009000
|
|
//* 00001700
|
|
//EXPBX120 DD DUMMY 00005000
|
|
//* 00001700
|
|
//EXPBX130 DD DUMMY 00005000
|
|
//* 00001700
|
|
//EXPBX131 DD DUMMY
|
|
//*
|
|
//EXPBX140 DD DUMMY 00005000
|
|
//* 00001700
|
|
//EXPBX141 DD DUMMY 00005000
|
|
//*XPBX141 DD DSN=DOESTAX.&LVLNODE..C141.MINI, 00005000
|
|
//* DISP=(NEW,CATLG,DELETE), 00006000
|
|
//* DISP=SHR, 00006000
|
|
//* UNIT=SYSDA, 00007000
|
|
//* SPACE=(CYL,(10,10),RLSE),
|
|
//* DCB=(RECFM=FB,LRECL=102,BLKSIZE=30600) 00009000
|
|
//* 00001700
|
|
//EXPBX142 DD DUMMY
|
|
//*
|
|
//EXPBX145 DD DUMMY
|
|
//*
|
|
//*******************
|
|
//*
|
|
//STEP0200 EXEC PGM=DTSBS413,REGION=1024K,COND=(0,LT) 00009*18
|
|
//*
|
|
//DTSFSENT DD DSN=DOESTAX.CONV.SENTMINI(0),DISP=SHR
|
|
//*
|
|
//DSKFILE DD DSN=DOESTAX.CONV.ESSP.MSCL, 00011*18
|
|
// DISP=SHR,UNIT=SYSDA, 00011*18
|
|
//* DISP=(NEW,CATLG,DELETE),UNIT=SYSDA, 00011*18
|
|
// SPACE=(CYL,(100,25),RLSE),
|
|
// 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,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//***
|
|
//EXPBX100 DD DUMMY
|
|
//*
|
|
//EXPBX102 DD DUMMY
|
|
//*
|
|
//EXPBX104 DD DUMMY
|
|
//**
|
|
//BX411TMP DD DSN=&&X411TMP,
|
|
// DISP=(NEW,PASS,DELETE),
|
|
// UNIT=SYSDA,
|
|
// SPACE=(CYL,(20,10),RLSE),
|
|
// DCB=(RECFM=FB,LRECL=512,BLKSIZE=30720)
|
|
//*
|
|
//EXPBX106 DD DUMMY
|
|
//*
|
|
//EXPBX108 DD DUMMY
|
|
//*
|
|
//EXPBX110 DD DUMMY
|
|
//*
|
|
//EXPBX120 DD DUMMY
|
|
//*
|
|
//EXPBX131 DD DUMMY
|
|
//*
|
|
//EXPBX140 DD DUMMY
|
|
//*
|
|
//EXPBX141 DD DUMMY
|
|
//*
|
|
//EXPBX142 DD DUMMY
|
|
//*
|
|
//EXPBX145 DD DUMMY
|
|
//*
|
|
//*****************************************************************
|
|
//* TO CHECK IF THE C102 MINI CONVERSION HAS DATA
|
|
//*****************************************************************
|
|
//STEP0300 EXEC PGM=IDCAMS
|
|
//INPUT DD DSN=DOESTAX.CONV.ESSP.C102,DISP=SHR
|
|
//SYSPRINT DD SYSOUT=*
|
|
//SYSIN DD *
|
|
PRINT INFILE(INPUT) COUNT(1)
|
|
/*
|
|
//*
|
|
//*****************************************************************
|
|
//* TO UPDATE EVENT LOG ENTRY (SCREEN 72)
|
|
//*****************************************************************
|
|
//STEP0400 EXEC PGM=DTSBS414,COND=(0,NE,STEP0300),REGION=4M
|
|
//*
|
|
//SYSOUT DD SYSOUT=*
|
|
//SYSABOUT DD SYSOUT=*
|
|
//SYSABEND DD SYSOUT=*
|
|
//CAIMRPTS DD SYSOUT=*
|
|
//*
|
|
//EMPFILE1 DD DSN=DOESTAX.CONV.ESSP.C102,DISP=SHR
|
|
//*
|
|
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR
|
|
//*
|
|
//DTSFREF DD DSN=DOESTAX.&MSTNODE..VSAM.REF,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFATC DD DSN=DOESTAX.&MSTNODE..VSAM.ATC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWTC DD DSN=DOESTAX.&MSTNODE..VSAM.WTC,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//DTSFWGH DD DSN=DOESTAX.&MSTNODE..VSAM.WGH,DISP=SHR,
|
|
// AMP=('BUFNI=5,BUFND=10')
|
|
//*
|
|
//DTSFBTCO DD DSN=DOESTAX.&MSTNODE..BTC(+1),
|
|
// DISP=(,CATLG,DELETE),
|
|
// SPACE=(8192,(100,200),RLSE),
|
|
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
|
|
//*
|
|
//*****************************************************************
|
|
//* EMAIL STEP
|
|
//*****************************************************************
|
|
//EMAIL IF STEP0400.RC=0 THEN
|
|
//*
|
|
//STEP0500 EXEC PGM=IEBGENER,REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
|
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
|
|
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
|
|
// 'TO:TIMOTHY.PERLOW@DC.GOV',
|
|
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// '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,
|
|
// 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
|
|
//STEP0600 EXEC PGM=IEBGENER,REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
|
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
|
|
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
|
|
// 'TO:TIMOTHY.PERLOW@DC.GOV',
|
|
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// '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,
|
|
// 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
|
|
//*
|
|
//STEP0700 EXEC PGM=IEBGENER,REGION=4M
|
|
//SYSPRINT DD SYSOUT=*
|
|
//OUT1 OUTPUT DEST=U1003,
|
|
// USERDATA=('TO:ROSALIND.HOLBROOK@DC.GOV',
|
|
// 'TO:ARAVIND.VITTA@SAGITEC.COM',
|
|
// 'TO:YINKA.OLAREWAJU-ALO@DC.GOV',
|
|
// 'TO:MARGARET.HERNANDEZ@DC.GOV',
|
|
// 'TO:TIMOTHY.PERLOW@DC.GOV',
|
|
// 'TO:PRABHU.TEGUR@SAGITEC.COM',
|
|
// 'CC:SRUJANI.CHANDRAGIRI@DC.GOV',
|
|
// 'CC:ZARATH.LALPUTAN@DC.GOV',
|
|
// '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,
|
|
// 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)
|
|
//*
|