26 lines
2.0 KiB
COBOL
26 lines
2.0 KiB
COBOL
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
|