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