00001 *****                                                             07/27/98
00002 *                                                                 DTSIR731
00003 *   MACIR731   PURGE BUSINESS NAMES REPORT RECORDS.                  LV001
00004 *                                                                 DTSIR731
00005 *              NOTE: MULTIPLE REPORT RECORDS WILL USUALLY EXIST   DTSIR731
00006 *                    FOR ONE EMPLOYER SINCE R731-NAME CAN BE ANY  DTSIR731
00007 *                    ONE OF THREE DIFFERENT TYPES OF NAMES THAT   DTSIR731
00008 *                    GO WITH THE EMPLOYER.                        DTSIR731
00009 *                                                                 DTSIR731
00010 *                    R731-LIAB-DATE MAY BE EQUAL TO ZERO          DTSIR731
00011 *                    (EMPLOYER NEVER LIABLE).                     DTSIR731
00012 *                                                                 DTSIR731
00013 *                    R731-INACT-DATE MAY BE EQUAL TO ZERO         DTSIR731
00014 *                    (EMPLOYER NEVER LIABLE).                     DTSIR731
00015 *                                                                 DTSIR731
00016 *                    IF ARCHIVE LOGIC IS MODIFIED, THEN           DTSIR731
00017 *                    R731-INACT-DATE MAY BE EQUAL TO ALL NINES    DTSIR731
00018 *                    (EMPLOYER IS ACTIVE).                        DTSIR731
00019 *                                                                 DTSIR731
00020 *****                                                             DTSIR731
00021      SKIP1                                                        DTSIR731
00022          10  R731-LENGTH         PIC S9(04)  COMP    VALUE +097.  DTSIR731
00023      SKIP1                                                        DTSIR731
00024          10  R731-SORT-AREA.                                      DTSIR731
00025              15  R731-REC-TYPE           PIC  X(03)  VALUE '731'. DTSIR731
00026              15  R731-NAME               PIC  X(40).              DTSIR731
00027              15  R731-EMP-NO             PIC S9(07)      COMP-3.  DTSIR731
00028      SKIP1                                                        DTSIR731
00029          10  R731-DATA-AREA.                                      DTSIR731
00030              15  R731-EMP-CLASS          PIC  X(01).              DTSIR731
00031                  88  R731-CLASS-REG-88               VALUE 'R'.   DTSIR731
00032                  88  R731-CLASS-GOV-88               VALUE 'G'.   DTSIR731
00033                  88  R731-CLASS-REIMB-88             VALUE 'S'.   DTSIR731
00034                  88  R731-CLASS-NEVER-SUB-88         VALUE 'N'.   DTSIR731
00035              15  R731-CITY               PIC  X(25).              DTSIR731
00036              15  R731-ST                 PIC  X(02).              DTSIR731
00037              15  R731-ZIP-FIRST5         PIC  X(05).              DTSIR731
00038              15  R731-LIAB-DATE          PIC S9(09)      COMP-3.  DTSIR731
00039              15  R731-INACT-DATE         PIC S9(09)      COMP-3.  DTSIR731
00040              15  R731-PURGE-DATE         PIC S9(09)      COMP-3.  DTSIR731