00001  01  OJRWE611-DATA-AREA.                                          08/02/02
00002                                                                   OJRWE611
00003      05  OJR-PARM-STATE-CODE             PIC  X(02).                 LV001
00004                                                                   OJRWE611
00005      05  OJR-PARM-START-ZIP-CODE         PIC  X(05).              OJRWE611
00006                                                                   OJRWE611
00007      05  OJR-PARM-END-ZIP-CODE           PIC  X(05).              OJRWE611
00008                                                                   OJRWE611
00009      05  OJR-PARM-SELECTION-IND          PIC  X(01) VALUE SPACES. OJRWE611
00010          88  OJR-PARM-ST-IND-88          VALUE '1'.               OJRWE611
00011          88  OJR-PARM-ZIP-IND-88         VALUE '2'.               OJRWE611
00012                                                                   OJRWE611
00013      05  OJR-EDIT-STATUS-IND             PIC X(01).               OJRWE611
00014          88  OJR-EDIT-PASSED-88                VALUE 'Y'.         OJRWE611
00015          88  OJR-EDIT-FAILED-88                VALUE 'N'.         OJRWE611
00016                                                                   OJRWE611
00017                                                                   OJRWE611
00018      05  ABEND-MSG                       PIC  X(60).              OJRWE611
00019                                                                   OJRWE611
00020      05  WRK-PARM-STATE-CODE             PIC  X(02).              OJRWE611
00021                                                                   OJRWE611
00022                                                                   OJRWE611
00023      05  WRK-PARM-START-ZIP-CODE         PIC  X(05).              OJRWE611
00024                                                                   OJRWE611
00025      05  WRK-PARM-END-ZIP-CODE           PIC  X(05).              OJRWE611
00026                                                                   OJRWE611
00027      05  WRK-PARM-SELECTION-IND          PIC  X(01) VALUE SPACES. OJRWE611
00028          88  WRK-PARM-ST-IND-88          VALUE '1'.               OJRWE611
00029          88  WRK-PARM-ZIP-IND-88         VALUE '2'.               OJRWE611
00030                                                                   OJRWE611
00031      05  WRK-EDIT-STATUS-IND             PIC X(01).               OJRWE611
00032          88  WRK-EDIT-PASSED-88                VALUE 'Y'.         OJRWE611
00033          88  WRK-EDIT-FAILED-88                VALUE 'N'.         OJRWE611
00034                                                                   OJRWE611