00001 01 OJRWE606-DATA-AREA. 06/03/02 00002 OJRWE606 00003 05 WRK-PARM-AREA. LV001 00004 10 WRK-PARM-COMPLETED-START-DATE PIC S9(09) COMP-3. OJRWE606 00005 10 WRK-PARM-COMPLETED-END-DATE PIC S9(09) COMP-3. OJRWE606 00006 10 WRK-PARM-PROCESSED-START-DATE PIC S9(09) COMP-3. OJRWE606 00007 10 WRK-PARM-PROCESSED-END-DATE PIC S9(09) COMP-3. OJRWE606 00008 10 WRK-PARM-ASSIGN-TYPE-CNT PIC S9(04) COMP. OJRWE606 00009 10 WRK-PARM-ASSIGN-TYPE OCCURS 5 TIMES OJRWE606 00010 INDEXED BY WRK-PARM-ASSIGN-IDX OJRWE606 00011 PIC X(02). OJRWE606 00012 OJRWE606 00013 05 OJR-PARM-COMPLETED-START-DATE PIC X(6). OJRWE606 00014 05 OJR-PARM-COMPLETED-END-DATE PIC X(6). OJRWE606 00015 05 OJR-PARM-PROCESSED-START-DATE PIC X(6). OJRWE606 00016 05 OJR-PARM-PROCESSED-END-DATE PIC X(6). OJRWE606 00017 05 OJR-PARM-ASSIGN-TYPE-CNT PIC S9(04) COMP. OJRWE606 00018 05 OJR-PARM-ASSIGN-TYPE OCCURS 5 TIMES OJRWE606 00019 INDEXED BY OJR-PARM-ASSIGN-IDX OJRWE606 00020 PIC X(02). OJRWE606 00021 OJRWE606 00022 05 WRK-EDIT-STATUS-IND PIC X(01). OJRWE606 00023 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE606 00024 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE606 00025 OJRWE606 00026 05 ALL-NINES-DATE PIC S9(09) COMP-3 OJRWE606 00027 VALUE +999999999. OJRWE606 00028 OJRWE606 00029 05 WRK-ASSIGN-TYPE-IND PIC X(01). OJRWE606 00030 OJRWE606 00031 05 WRK-COMPARE-DATE PIC 9(9). OJRWE606 00032 05 FILLER REDEFINES WRK-COMPARE-DATE. OJRWE606 00033 10 FILLER PIC X. OJRWE606 00034 10 WRK-COMPARE-CC PIC 9(2). OJRWE606 00035 10 WRK-COMPARE-YY PIC 9(2). OJRWE606 00036 10 WRK-COMPARE-MO PIC 9(2). OJRWE606 00037 10 WRK-COMPARE-DA PIC 9(2). OJRWE606 00038 OJRWE606 00039 05 WRK-DISPLAY PIC 9(9). OJRWE606 00040 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00041 10 FILLER PIC X. OJRWE606 00042 10 WRK-DISPLAY-C PIC X(2). OJRWE606 00043 10 WRK-DISPLAY-Y PIC X(2). OJRWE606 00044 10 WRK-DISPLAY-M PIC X(2). OJRWE606 00045 10 WRK-DISPLAY-D PIC X(2). OJRWE606 00046 OJRWE606 00047 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00048 10 FILLER PIC X(6). OJRWE606 00049 10 WRK-DISPLAY-3 PIC X(3). OJRWE606 00050 OJRWE606 00051 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00052 10 FILLER PIC X(3). OJRWE606 00053 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWE606 00054 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWE606 00055 OJRWE606 00056 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00057 10 FILLER PIC X(2). OJRWE606 00058 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWE606 00059 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWE606 00060 OJRWE606 00061 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00062 10 FILLER PIC X(3). OJRWE606 00063 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWE606 00064 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWE606 00065 OJRWE606 00066 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00067 10 FILLER PIC X(3). OJRWE606 00068 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWE606 00069 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWE606 00070 OJRWE606 00071 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00072 10 FILLER PIC X(3). OJRWE606 00073 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWE606 00074 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWE606 00075 OJRWE606 00076 05 FILLER REDEFINES WRK-DISPLAY. OJRWE606 00077 10 FILLER PIC X(4). OJRWE606 00078 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWE606 00079 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWE606 00080 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWE606 00081 OJRWE606