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