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

35
JCL/DTSCHGT1.jcl Normal file
View File

@ -0,0 +1,35 @@
//DTSCHGT1 JOB (UI,4300,3400,T),CHGXXX.TEUC,CLASS=P,MSGCLASS=X, 00010015
//** TYPRUN=SCAN, 00011015
// USER=#DOADTS, 00012015
// NOTIFY=ECNTSUP,REGION=0M 00014016
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//**** 00040000
// SET PRGNODE='PROD' 00050015
// SET UINODE='PROD' 00060016
// SET LVLNODE='PROD' 00060116
// SET MSTNODE='PROD' 00061015
// SET CHGNODE='PROD' 00070015
// SET CHGMNBR='CHGM002' 00071006
// SET CHGMSSN='CHGM030' 00072011
// SET QTRLY='SPECXX' 00080009
// SET LDEST=U@PRT65 00090000
// SET LHOLD='YES' 00100000
//***** 00110000
//PROCLIB JCLLIB ORDER=DOESTAX.&PRGNODE..PROCLIB 00130000
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00140010
//**** 00150000
//* PERIODIC CHARGE REPORTING PROCESS - TEUC REPORTS ONLY 00160016
//**** 00170016
//STEP0200 EXEC DTSUXCGP 00490000
//STEP0100.SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(DTSCHGT1), 00491016
// DISP=SHR /* USE THESE FOR A RERUN <== 00500116
//STEP0100.CHGPARM DD DISP=SHR /* CHARGE PARM 00500210
//STEP0100.DTSFVRO1 DD DISP=SHR /* CHG.BD205.RPT 00500310
//STEP0500.BD220CHG DD DISP=SHR /* CHG.BD220.RPT 00500410
//**** 00501000
//STEP0300 EXEC DTSCGRPT 00510000
//STEP0100.RPC100R2 DD DUMMY /* FISC.AGNT. 00511002
//STEP0100.TPSCHRG DD DUMMY /* TPS FILE 00512002
//STEP0100.DTSFBTCO DD DUMMY /* BTC FILE 00513002
//DOESLBLP.DOESLBL1 DD DUMMY /* LABELS 00514002
//**** 00520000