00001  01  OJRWE123-DATA-AREA.                                          08/02/02
00002                                                                   OJRWE123
00003      05  OJR-PERIOD-START-DATE        PIC S9(09) COMP-3.             LV001
00004      05  OJR-PERIOD-END-DATE          PIC S9(09) COMP-3.          OJRWE123
00005                                                                   OJRWE123
00006      05  OJR-PARM-05-CUTOFF-DATE         PIC X(6).                OJRWE123
00007                                                                   OJRWE123
00008      05  OJR-PARM-06-CUTOFF-DATE         PIC X(6).                OJRWE123
00009                                                                   OJRWE123
00010      05  OJR-PARM-09-CUTOFF-DATE         PIC X(6).                OJRWE123
00011                                                                   OJRWE123
00012      05  OJR-PARM-11-CUTOFF-DATE         PIC X(6).                OJRWE123
00013                                                                   OJRWE123
00014      05  OJR-EDIT-STATUS-IND             PIC X(01).               OJRWE123
00015          88  OJR-EDIT-PASSED-88                VALUE 'Y'.         OJRWE123
00016          88  OJR-EDIT-FAILED-88                VALUE 'N'.         OJRWE123
00017                                                                   OJRWE123
00018      05  WRK-PARM-05-CUTOFF-DATE         PIC S9(09)  COMP-3.      OJRWE123
00019                                                                   OJRWE123
00020      05  WRK-PARM-06-CUTOFF-DATE         PIC S9(09)  COMP-3.      OJRWE123
00021                                                                   OJRWE123
00022      05  WRK-PARM-09-CUTOFF-DATE         PIC S9(09)  COMP-3.      OJRWE123
00023                                                                   OJRWE123
00024      05  WRK-PARM-11-CUTOFF-DATE         PIC S9(09)  COMP-3.      OJRWE123
00025                                                                   OJRWE123
00026      05  DEFAULT-CUTOFF-DAYS             PIC S9(04)  COMP         OJRWE123
00027                                                VALUE +90.         OJRWE123
00028                                                                   OJRWE123
00029      05  WRK-EDIT-STATUS-IND             PIC X(01).               OJRWE123
00030          88  WRK-EDIT-PASSED-88                VALUE 'Y'.         OJRWE123
00031          88  WRK-EDIT-FAILED-88                VALUE 'N'.         OJRWE123
00032                                                                   OJRWE123
00033      05  WRK-DISPLAY                  PIC 9(9).                   OJRWE123
00034      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00035          10  FILLER                PIC X.                         OJRWE123
00036          10  WRK-DISPLAY-C         PIC X(2).                      OJRWE123
00037          10  WRK-DISPLAY-Y         PIC X(2).                      OJRWE123
00038          10  WRK-DISPLAY-M         PIC X(2).                      OJRWE123
00039          10  WRK-DISPLAY-D         PIC X(2).                      OJRWE123
00040                                                                   OJRWE123
00041      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00042          10  FILLER                PIC X(6).                      OJRWE123
00043          10  WRK-DISPLAY-3         PIC X(3).                      OJRWE123
00044                                                                   OJRWE123
00045      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00046          10  FILLER                PIC X(3).                      OJRWE123
00047          10  WRK-DISPLAY-EMP-1     PIC X(3).                      OJRWE123
00048          10  WRK-DISPLAY-EMP-2     PIC X(3).                      OJRWE123
00049                                                                   OJRWE123
00050      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00051          10  FILLER                PIC X(2).                      OJRWE123
00052          10  WRK-DISPLAY-ASSIGN-1  PIC X(2).                      OJRWE123
00053          10  WRK-DISPLAY-ASSIGN-2  PIC X(5).                      OJRWE123
00054                                                                   OJRWE123
00055      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00056          10  FILLER                PIC X(3).                      OJRWE123
00057          10  WRK-DISPLAY-LEVY-1    PIC X(2).                      OJRWE123
00058          10  WRK-DISPLAY-LEVY-2    PIC X(4).                      OJRWE123
00059                                                                   OJRWE123
00060      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00061          10  FILLER                PIC X(3).                      OJRWE123
00062          10  WRK-DISPLAY-LIEN-1    PIC X(2).                      OJRWE123
00063          10  WRK-DISPLAY-LIEN-2    PIC X(4).                      OJRWE123
00064                                                                   OJRWE123
00065      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00066          10  FILLER                PIC X(3).                      OJRWE123
00067          10  WRK-DISPLAY-REFUND-1  PIC X(2).                      OJRWE123
00068          10  WRK-DISPLAY-REFUND-2  PIC X(4).                      OJRWE123
00069                                                                   OJRWE123
00070      05  FILLER REDEFINES WRK-DISPLAY.                            OJRWE123
00071          10  FILLER                PIC X(4).                      OJRWE123
00072          10  WRK-DISPLAY-QTR-C     PIC X(2).                      OJRWE123
00073          10  WRK-DISPLAY-QTR-Y     PIC X(2).                      OJRWE123
00074          10  WRK-DISPLAY-QTR-Q     PIC X(1).                      OJRWE123