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