00001  01  OJRWE423-DATA-AREA.                                          08/02/02
00002                                                                   OJRWE423
00003      05  OJR-PARM-START-YRQ      PIC X(3).                           LV001
00004      05  OJR-PARM-END-YRQ        PIC X(3).                        OJRWE423
00005                                                                   OJRWE423
00006      05  OJR-FIRST-PURSUED-RPT-YRQ      PIC  S9(05) COMP-3.       OJRWE423
00007      05  OJR-LAST-UC30-DEL-MAIL-YRQ     PIC  S9(05) COMP-3.       OJRWE423
00008      05  OJR-PICKUP-YRQ                 PIC  S9(05) COMP-3.       OJRWE423
00009                                                                   OJRWE423
00010      05  WRK-QTR-5                  PIC 9(05).                    OJRWE423
00011      05  WRK-QTR-3                  PIC 9(03).                    OJRWE423
00012                                                                   OJRWE423
00013      05  WRK-PARM-START-YRQ      PIC S9(05)  COMP-3.              OJRWE423
00014      05  WRK-PARM-END-YRQ        PIC S9(05)  COMP-3.              OJRWE423
00015                                                                   OJRWE423
00016      05  WRK-PARM-EMP-NO-LIST-IND        PIC  X(01).              OJRWE423
00017          88  WRK-PARM-EMP-NO-LIST-YES-88       VALUE 'Y'.         OJRWE423
00018          88  WRK-PARM-EMP-NO-LIST-NO-88        VALUE 'N'.         OJRWE423
00019                                                                   OJRWE423
00020      05  WRK-PARM-FIELD-LIST-IND         PIC  X(01).              OJRWE423
00021          88  WRK-PARM-FIELD-LIST-YES-88        VALUE 'Y'.         OJRWE423
00022          88  WRK-PARM-FIELD-LIST-NO-88         VALUE 'N'.         OJRWE423
00023                                                                   OJRWE423
00024                                                                   OJRWE423
00025      05  WRK-EDIT-STATUS-IND             PIC X(01).               OJRWE423
00026          88  WRK-EDIT-PASSED-88                VALUE 'Y'.         OJRWE423
00027          88  WRK-EDIT-FAILED-88                VALUE 'N'.         OJRWE423
00028                                                                   OJRWE423