DUTAS re-platformed to Raincode - Initial Source Code
This commit is contained in:
Neeraj Kumar
235
JCL/DTSMIN02.jcl
Normal file
235
JCL/DTSMIN02.jcl
Normal file
@ -0,0 +1,235 @@
|
||||
//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
|
||||
//* 00001700
|
||||
//PROCLIB JCLLIB ORDER=DOESTAX.PROD.PROCLIB 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), 00008000
|
||||
// DCB=(RECFM=FB,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
|
||||
//* 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
|
||||
//* 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
|
||||
//* 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), 00008000
|
||||
// DCB=(RECFM=FB,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),
|
||||
// DCB=(RECFM=FB,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
|
||||
//*****************************************************************
|
||||
//IF1 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
|
||||
//SYSUT2 DD 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
|
||||
//SYSUT2 DD 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
|
||||
//SYSUT2 DD SYSOUT=A,OUTPUT=*.OUT1
|
||||
//SYSIN DD DUMMY
|
||||
//SYSUDUMP DD SYSOUT=(*,,DUMP)
|
||||
//*
|
||||
Reference in New Issue
Block a user