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