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