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

27
Procs/PRUX440D Normal file
View File

@ -0,0 +1,27 @@
//PRUX440D PROC 00015062
//* 00041123
//******************************************************************** 00051000
//* STEP0100 - DELETE DISK FILE FROM WHICH WAGE 00060062
//* DATA HAVE JUST BEEN PROCESSED. 00061062
//******************************************************************** 00070000
//STEP0100 EXEC PGM=IEFBR14 00080062
//INDD01 DD DSN=DOESTAX.CONV.&LASTNODE., 00120163
// DISP=(OLD,DELETE,DELETE) 00120262
//* 00120344
//******************************************************************** 00120462
//* STEP0200 - REALLOCATE DISK FILE 00120562
//* 00120662
//******************************************************************** 00120762
//STEP0200 EXEC PGM=IEFBR14 00120862
//INDD01 DD DSN=DOESTAX.CONV.&LASTNODE., 00120963
// DISP=(NEW,CATLG,CATLG), 00121062
// SPACE=(27920,(2,3),RLSE), 00121162
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920) 00121262
//* 00122062
//***************************************************************** 00320000
//LISTOUT DD SYSOUT=(*) 00330000
//SYSABOUT DD SYSOUT=(*) 00340004
//SYSPRINT DD SYSOUT=(*) 00360004
//SYSUDUMP DD SYSOUT=(*) 00370047
//SYSOUT DD SYSOUT=(*) 00400000
//* 00410029