00001 *****                                                             03/02/99
00002 *              REVIEWED BY D.SHEPPERSON       10/23/98            DTSIR727
00003 *                                                                    LV003
00004 *   DTSIR727   R&A NEW EMPLOYER EXPORT REPORT RECORDS.               CL**2
00005 *                                                                 DTSIR727
00006 *****                                                             DTSIR727
00007      SKIP1                                                        DTSIR727
00008          10  R727-LENGTH         PIC S9(04)  COMP.                   CL**2
00009      SKIP1                                                        DTSIR727
00010          10  R727-SORT-AREA.                                      DTSIR727
00011              15  R727-REC-TYPE           PIC  X(03).                 CL**2
00012              15  R727-EMP-NO             PIC S9(07)      COMP-3.  DTSIR727
00013      SKIP1                                                        DTSIR727
00014          10  R727-DATA-AREA.                                      DTSIR727
00015              15  R727-PERIOD-START-DATE  PIC S9(09)      COMP-3.  DTSIR727
00016              15  R727-PERIOD-END-DATE    PIC S9(09)      COMP-3.  DTSIR727
00017              15  R727-AREA-CD            PIC S9(03)      COMP-3.  DTSIR727
00018              15  R727-SIC-OWN-CD.                                 DTSIR727
00019                  20  R727-SIC-CD         PIC  X(04).                 CL**3
00020 *                20  R727-OWN-CD         PIC  X(02).                 CL**3
00021              15  R727-LIAB-CHANGE-TYPE   PIC  X(01).              DTSIR727
00022                  88  R727-LIAB-CHANGE-ESTB-88        VALUE 'E'.   DTSIR727
00023                  88  R727-LIAB-CHANGE-RVRSE-88       VALUE 'R'.   DTSIR727
00024                  88  R727-LIAB-CHANGE-INACT-88       VALUE 'I'.   DTSIR727
00025              15  R727-PRED-EMP-NO        PIC S9(07)      COMP-3.  DTSIR727