00001 *****                                                             10/23/98
00002 *             REVIEWED BY D.SHEPPERSON    10/23/1998              DTSIR123
00003 *                                                                    LV006
00004 *   DTSIR123  EMPLOYERS IN SELECTED CYCLE "A" REPORT RECORD.         CL**5
00005 *                                                                 DTSIR123
00006 *****                                                             DTSIR123
00007      SKIP1                                                        DTSIR123
00008          10  R123-LENGTH             PIC S9(04)  COMP.               CL**2
00009      SKIP1                                                        DTSIR123
00010          10  R123-SORT-AREA.                                      DTSIR123
00011              15  R123-REC-TYPE           PIC  X(03).                 CL**4
00012              15  R123-RESPONSIBLE-OP-ID  PIC  X(08).              DTSIR123
00013              15  R123-STATUS-CD          PIC  X(02).              DTSIR123
00014              15  R123-EMP-NO             PIC S9(07)      COMP-3.  DTSIR123
00015      SKIP1                                                        DTSIR123
00016          10  R123-DATA-AREA.                                      DTSIR123
00017              15  R123-STATUS-CUTOFF-DATE PIC S9(09)       COMP-3. DTSIR123
00018              15  R123-PRIMARY-NAME       PIC  X(40).                 CL**3
00019              15  R123-STATUS-CHNG-DATE   PIC S9(09)       COMP-3. DTSIR123
00020              15  R123-FLD-REP-ID         PIC  X(02).              DTSIR123