00001 *****                                                             11/18/98
00002 *                                                                 DTSIR715
00003 *    MACIR715    RQC STATUS DETERMINATION UNIVERSE                   LV002
00004 *                REPORT RECORD.                                   DTSIR715
00005 *                                                                 DTSIR715
00006 *****                                                             DTSIR715
00007      SKIP1                                                        DTSIR715
00008          10  R715-LENGTH         PIC S9(04)  COMP  VALUE +68.     DTSIR715
00009      SKIP1                                                        DTSIR715
00010          10  R715-SORT-AREA.                                      DTSIR715
00011              15  R715-REC-TYPE           PIC  X(03)  VALUE '715'. DTSIR715
00012              15  R715-ENTRY-ABSTIME      PIC S9(15)      COMP-3.  DTSIR715
00013              15  R715-EMP-NO             PIC S9(07)      COMP-3.  DTSIR715
00014      SKIP1                                                        DTSIR715
00015          10  R715-DATA-AREA.                                      DTSIR715
00016              15  R715-TRAN-TYPE          PIC  X(01).              DTSIR715
00017                  88  R715-NEW-88                     VALUE '1'.   DTSIR715
00018                  88  R715-SUCCESSOR-88               VALUE '2'.   DTSIR715
00019                  88  R715-INACTIVATION-88            VALUE '3'.   DTSIR715
00020              15  R715-ENTRY-DATE         PIC S9(09)      COMP-3.  DTSIR715
00021              15  R715-STATUS-EFF-DATE    PIC S9(09)      COMP-3.  DTSIR715
00022              15  R715-PRIMARY-NAME       PIC  X(40).                 CL**2