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

33
JCL/DTSUC30T.jcl Normal file
View File

@ -0,0 +1,33 @@
//DTSUC30T JOB (UI,4300,3400,T),PROD.UC30.TAPE, 00000128
// CLASS=P,MSGCLASS=X, 00000227
//**** TYPRUN=SCAN, 00000317
// NOTIFY=ECNTSUP,REGION=0K 00000417
/*ROUTE PRINT U@PRT65 - BY Z/OS UPGRADE
//** 00000510
// SET LVLNODE='PROD' 00001327
//***SET LVOLSER='300154' 00001427
//* 00001612
//PROCLIB JCLLIB ORDER=DOESTAX.&LVLNODE..PROCLIB 00001712
//LOADLIBS INCLUDE MEMBER=DTSIJLIB 00001812
//**** 00001927
//** - CREATE A CART./TAPE WITH CONTRIBUTION/WAGE DATA (E.G., 00002027
//** THE UI RATE) FOR SHIPMENT TO A **>VENDOR FOR PRINTING<** 00002129
//**** 00002227
//STEPCPY1 EXEC PGM=IDCAMS 00100027
//SYSPRINT DD SYSOUT=* 00101027
//INDD01 DD DSN=DOESTAX.PROD.UC30DATA, 00102027
// DISP=SHR 00103027
//INDD02 DD DSN=DOESTAX.UC30DATA, 00104027
// UNIT=E85, 00105027
//**** UNIT=3480, 00105127
//**** VOL=SER=&LVOLSER., 00106028
// VOLUME=(,RETAIN), 00107027
// DISP=(NEW,KEEP,DELETE), 00108027
// LABEL=(1,SL), 00109027
//**** LABEL=EXPDT=98000, 00109127
// DCB=(RECFM=FB,LRECL=385,BLKSIZE=385) 00109227
//SYSIN DD * 00109327
REPRO INFILE(INDD01) OUTFILE(INDD02) 00109427
/* 00109527
// 00109627
//** 00110000