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