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