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

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

79
JCL/DTSBZ387.jcl Normal file
View File

@ -0,0 +1,79 @@
//DTSBZ387 JOB (UI,4300,3400,T),JHP.PROD,CLASS=P,MSGCLASS=X, 00000010
//* TYPRUN=SCAN,
// USER=#DOADTS,
// NOTIFY=ECNTSUP
//* 00001700
/*ROUTE PRINT U@PRT65 00001700
// SET LVLNODE='PROD'
// SET MSTNODE='PROD'
//* 00001700
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001600
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001600
//* 00001700
//* 00001700
//STEP0100 EXEC PGM=DTSBZ387, /* PRINT ADMIN ASSESS NOTICES
// 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')
//DTSWESQ DD DSN=DOESTAX.&MSTNODE..VSAM.WESQ,DISP=SHR
//DTSFVRO1 DD DSN=DOESTAX.&LVLNODE..BE325.RPT(+1),
// DISP=(,CATLG,DELETE),
// SPACE=(16394,(900,900),RLSE),
// DCB=(SYS3.MODEL,RECFM=VB,LRECL=4093,BLKSIZE=8192)
/*
//********************************************************************* 00120000
//STEP0200 EXEC PGM=SORT,PARM='VLTEST=0', SORT REPORT RECORDS 00130000
// COND=(0,LT) 00140000
//SYSOUT DD SYSOUT=* 00150000
//SORTIN DD DSN=DOESTAX.PROD.BE325.RPT(+1),DISP=SHR 325 RPTS 00150199
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00240000
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00250000
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(15,15),RLSE) 00260000
//SORTOUT DD DSN=&&SRTRPT, 00270000
// DISP=(,PASS,DELETE), 00280000
// UNIT=SYSDA, 00290000
// SPACE=(8192,(1000,1000),RLSE), 00300000
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00310000
//SYSIN DD DSN=DOESTAX.CONV.USER.PARMLIB(DTSSRREC),DISP=SHR 00320099
//********************************************************************* 00330000
//* 00543800
//STEP0300 EXEC PGM=DTSBD800, OUTPUT GENERATION 00543900
// TIME=(1,30), 00544000
// COND=(0,LT) 00545000
//SYSOUT DD SYSOUT=* 00546000
//SYSABOUT DD SYSOUT=* 00547000
//SYSUDUMP DD SYSOUT=* 00548000
//** 00548199
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00548299
//** 00548399
//PARMIN DD * 00549000
DTSBD800,INC,325 00550099
//*DTSBD800,EXC 00560000
/* 00570000
//** 00580000
//ATLSTIN DD * 00590000
DTSBD800 00600000
/* 00610000
//** 00620000
//DTSFVRI1 DD DSN=&&SRTRPT,DISP=(OLD,DELETE,DELETE) 00630000
//** 00640000
//DTSFREF DD DSN=DOESTAX.PROD.VSAM.REF,DISP=SHR, 00670000
// AMP=('BUFNI=5,BUFND=10') 00680000
//* 00738199
//DTSWESQ DD DSN=DOESTAX.PROD.VSAM.WESQ,DISP=SHR 00738299
//RPT325R1 DD SYSOUT=W,DEST=HOLD 00738499
//RPT325R2 DD SYSOUT=Z,DEST=HOLD 00738599
//RPT325R3 DD SYSOUT=Z,DEST=HOLD 00738699
//RPT325R4 DD SYSOUT=Z,DEST=HOLD 00738799
//RPT325R5 DD SYSOUT=Z,DEST=HOLD 00738899
//* 00738199
//RPT980R1 DD SYSOUT=* 00738199
//PRINTER DD SYSOUT=* 00738199
//**********************************************************************01190000
// 01200000