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

30
Procs/PRUX431Q Normal file
View File

@ -0,0 +1,30 @@
//PRUX431Q PROC 00015062
//* 00041123
//******************************************************************** 00051000
//* STEP0100 - VALIDATE WAGE TRANSACTIONS FROM TAPE 00060048
//******************************************************************** 00070000
//STEP0100 EXEC PGM=WAGEMAG,PARM='&LOGNO.&ZEROEMP.' 00080061
//SYSIN DD DSN=DOESTAX.&LVLNODE..APPL.PARMLIB(PRUI430Q),DISP=SHR 00120063
//MAGFILE DD DSN=DOESTAX.CONV.&LOGNODE., 00120164
// DISP=SHR 00120249
//* 00120344
//MAGOUT DD DSN=DOESTAX.CONV.&W4FILE, 00120464
// DISP=(MOD,KEEP,KEEP), 00120558
// UNIT=SYSDA, 00120751
// SPACE=(CYL,(5,5)), 00120851
// DCB=(RECFM=FB,LRECL=90,BLKSIZE=9000) 00120959
//* 00160015
//DTSFVRO1 DD DSN=DOESTAX.CONV.&EMFILE, 00172064
// DISP=(MOD,KEEP,KEEP), 00173058
// UNIT=SYSDA, 00173135
// SPACE=(8192,(1000,1000),RLSE), 00174029
// DCB=(RECFM=VB,LRECL=4093,BLKSIZE=8192) 00175037
//* 00180028
//DTSFMSTR INCLUDE MEMBER=DTSIMSTR 00190047
//***************************************************************** 00320000
//LISTOUT DD SYSOUT=(*) 00330000
//SYSABOUT DD SYSOUT=(*) 00340004
//SYSPRINT DD SYSOUT=(*) 00360004
//SYSUDUMP DD SYSOUT=(*) 00370047
//SYSOUT DD SYSOUT=(*) 00400000
//* 00410029