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