81 lines
6.3 KiB
COBOL
81 lines
6.3 KiB
COBOL
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
|