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