00001 *****                                                             09/15/99
00002 *   12/15/98     REVIEWED BY D.SHEPPERSON                         DTSIR611
00003 *                                                                    LV004
00004 *   DTSIR611     ACTIVE EMPLOYERS BY ZIP CODE COUNTS                 CL**2
00005 *                REPORT RECORD.                                   DTSIR611
00006 *                                                                 DTSIR611
00007 *****                                                             DTSIR611
00008      SKIP1                                                        DTSIR611
00009          10  R611-LENGTH         PIC S9(04)  COMP.                   CL**2
00010      SKIP1                                                        DTSIR611
00011          10  R611-SORT-AREA.                                      DTSIR611
00012              15  R611-REC-TYPE           PIC  X(03).                 CL**2
00013              15  R611-FIELD-REP-ID       PIC  X(02).              DTSIR611
00014              15  R611-FIELD-ASSIGN-ZIP-1-5                        DTSIR611
00015                                          PIC  X(05).              DTSIR611
00016              15  R611-FIELD-ASSIGN-ST                                CL**3
00017                                          PIC  X(02).                 CL**3
00018              15  R611-SELECTION-IND      PIC  X(01).                 CL**3
00019                  88  R611-ST             VALUE '1'.                  CL**3
00020                  88  R611-ZIP            VALUE '2'.                  CL**3
00021          10  FILLER                      PIC  X(58).                 CL**4