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

25
Copybook/DTSIXAIX.cpy Normal file
View File

@ -0,0 +1,25 @@
00001 ***** 08/31/98
00002 * DTSIXAIX
00003 * DTSIXAIX ALTERNATE INDEX RECORD CONSTRUCTION WORK AREAS. LV002
00004 * DTSIXAIX
00005 * IF THIS CODE IS MODIFIED, THEN MACCU810, DTSIXAIX
00006 * MACBU910, AND MACBE992 MUST BE RECOMPILED. DTSIXAIX
00007 * DTSIXAIX
00008 * CL**2
00009 * 08/31/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**2
00010 * CL**2
00011 ***** DTSIXAIX
00012 CL**2
00013 05 AIX-REC-MAX PIC S9(04) COMP VALUE +5. CL**2
00014 CL**2
00015 05 AIX-REC-SUB PIC S9(04) COMP. DTSIXAIX
00016 CL**2
00017 CL**2
00018 05 PRE-UPDATE-AIX-RECS. DTSIXAIX
00019 10 PRE-UPDATE-AIX-REC OCCURS 5 TIMES CL**2
00020 PIC X(64). DTSIXAIX
00021 CL**2
00022 CL**2
00023 05 POST-UPDATE-AIX-RECS. DTSIXAIX
00024 10 POST-UPDATE-AIX-REC OCCURS 5 TIMES CL**2
00025 PIC X(64). DTSIXAIX