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

42
JCL/DTS715R3.jcl Normal file
View File

@ -0,0 +1,42 @@
//DTS715R3 JOB (UI,4300,3400,T),TPS-STATUS-INAV, 00010041
// CLASS=P,MSGCLASS=X, 00020038
//**** TYPRUN=SCAN, 00030038
// NOTIFY=ECNTSUP 00040038
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00050038
// SET LVLNODE='PROD' 00060038
// SET TPSFILE1='DOESTAX.PROD.RPT715.YR2012' <<< CHANGE CC BEF RUN 00070043
// SET PRINTER1='DOESTAX.PROD.STATUS3.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET PICKLST='DOESTAX.PROD.PICKLST3.YR2012' <<< CHANGE CC BEF RUN 00080045
// SET LDEST=U@PRT65 00090038
//**----------------------------------------------------------------- 00100038
//* JOB: TPS RUN FROM RPT715 - STATUS DETERMINATION 00110038
//* (RPT715 IS PRODUCED BY RUNRQ715) 00120038
//* 00130038
//* THE PRINTER FILE IS NOW CREATED ON DASD. SEE SET STATEMENT 00140038
//* FOR THE DATASET NAME. DOWNLOAD THE FILE FOR INPUTTO A SPREAD SHEET00150038
//* RUN JOB DTS715R1 FOR STATUS1 = NEW 00160040
//* RUN JOB DTS715R2 FOR STATUS2 = SUCCESSOR 00170040
//* RUN THIS JOB FOR STATUS3 = INACTIVATED 00180040
//* 00200038
//**----------------------------------------------------------------- 00210038
//* DEFINITION FOR PARMIN: 00220038
//* COLS 1-1 TRANSACTION TYPE (1, 2 OR 3) 00230038
//* - 1 = NEW, 2 = SUCCESSOR, 3 = INACTIVATED 00240038
//* COLS 3-5 RANDOM NUMBER (PICK ONE) 00250038
//* 7-10 NUMBER TO BE SAMPLED 00260038
//* - 4 DIGITS RIGHT JUSTIFIED 00270038
//* - ENTER LEADING ZEROES IF NEEDED 00280038
//* 12-13 SAMPLE TYPE 00290038
//* - A1,A2,E1,O1, OR O2 (1ST CHARACTER IS ALPHA) 00300038
//* 15-18 YYYY 00310038
//**----------------------------------------------------------------- 00320038
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00330038
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00340038
//** 00350038
//STEP0100 EXEC DTSTP715 00360038
//STEP0100.PARMIN DD * 00370038
3,483,0060,A1,2012 00380045
/* 00390038
// 00400038
//** 00410038