93 lines
7.3 KiB
COBOL
93 lines
7.3 KiB
COBOL
00001 01 OJRWE119-DATA-AREA. 08/02/02
|
|
00002 OJRWE119
|
|
00003 05 OJR-PARM-RESP-OP-ID PIC X(08). LV001
|
|
00004 05 OJR-PARM-START-YRQ PIC X(03). OJRWE119
|
|
00005 05 OJR-PARM-END-YRQ PIC X(03). OJRWE119
|
|
00006 05 OJR-PARM-AUTO-INACT-IND PIC X(01). OJRWE119
|
|
00007 05 OJR-PARM-EMP-CLASS PIC X(01). OJRWE119
|
|
00008 OJRWE119
|
|
00009 05 OJR-LAST-UC30-DEL-MAIL-YRQ PIC S9(05) COMP-3. OJRWE119
|
|
00010 05 OJR-FIRST-PURSUED-RPT-YRQ PIC S9(05) COMP-3. OJRWE119
|
|
00011 OJRWE119
|
|
00012 05 WRK-QTR-5 PIC 9(05). OJRWE119
|
|
00013 05 WRK-QTR-3 PIC 9(03). OJRWE119
|
|
00014 05 WRK-PARM-RESP-OP-ID PIC X(08). OJRWE119
|
|
00015 05 WRK-PARM-START-YRQ PIC S9(05) COMP-3. OJRWE119
|
|
00016 05 WRK-PARM-END-YRQ PIC S9(05) COMP-3. OJRWE119
|
|
00017 05 WRK-PARM-START-ABS-QTR PIC S9(04) COMP. OJRWE119
|
|
00018 05 WRK-PARM-END-ABS-QTR PIC S9(04) COMP. OJRWE119
|
|
00019 05 WRK-PARM-NUMBER-QTRS PIC S9(04) COMP. OJRWE119
|
|
00020 05 WRK-PARM-SUBJECT-YRQ PIC S9(05) COMP-3. OJRWE119
|
|
00021 OJRWE119
|
|
00022 05 WRK-PARM-AUTO-INACT-IND PIC X(01). OJRWE119
|
|
00023 88 WRK-PARM-AUTO-INACT-YES-88 VALUE 'Y'. OJRWE119
|
|
00024 88 WRK-PARM-AUTO-INACT-NO-88 VALUE 'N'. OJRWE119
|
|
00025 OJRWE119
|
|
00026 05 WRK-PARM-EMP-CLASS PIC X(01). OJRWE119
|
|
00027 88 WRK-PARM-CLASS-ALL-88 VALUE ' '. OJRWE119
|
|
00028 OJRWE119
|
|
00029 05 WRK-EDIT-STATUS-IND PIC X(01) VALUE 'Y'. OJRWE119
|
|
00030 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE119
|
|
00031 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE119
|
|
00032 OJRWE119
|
|
00033 05 WRK-UI-FND-IND PIC X(01). OJRWE119
|
|
00034 88 WRK-UI-FND-88 VALUE 'Y'. OJRWE119
|
|
00035 88 WRK-UI-NOT-FND-88 VALUE 'N'. OJRWE119
|
|
00036 OJRWE119
|
|
00037 05 WRK-DISPLAY-AREA PIC 9(11). OJRWE119
|
|
00038 05 FILLER REDEFINES WRK-DISPLAY-AREA. OJRWE119
|
|
00039 10 FILLER PIC 9(07). OJRWE119
|
|
00040 10 WRK-DISPLAY-MM PIC 9(02). OJRWE119
|
|
00041 10 WRK-DISPLAY-DD PIC 9(02). OJRWE119
|
|
00042 OJRWE119
|
|
00043 05 WRK-COMPARE-DATE PIC 9(9). OJRWE119
|
|
00044 05 FILLER REDEFINES WRK-COMPARE-DATE. OJRWE119
|
|
00045 10 FILLER PIC X. OJRWE119
|
|
00046 10 WRK-COMPARE-CC PIC 9(2). OJRWE119
|
|
00047 10 WRK-COMPARE-YY PIC 9(2). OJRWE119
|
|
00048 10 WRK-COMPARE-MO PIC 9(2). OJRWE119
|
|
00049 10 WRK-COMPARE-DA PIC 9(2). OJRWE119
|
|
00050 SKIP3 OJRWE119
|
|
00051 05 WRK-DISPLAY PIC 9(9). OJRWE119
|
|
00052 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00053 10 FILLER PIC X. OJRWE119
|
|
00054 10 WRK-DISPLAY-C PIC X(2). OJRWE119
|
|
00055 10 WRK-DISPLAY-Y PIC X(2). OJRWE119
|
|
00056 10 WRK-DISPLAY-M PIC X(2). OJRWE119
|
|
00057 10 WRK-DISPLAY-D PIC X(2). OJRWE119
|
|
00058 OJRWE119
|
|
00059 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00060 10 FILLER PIC X(6). OJRWE119
|
|
00061 10 WRK-DISPLAY-3 PIC X(3). OJRWE119
|
|
00062 OJRWE119
|
|
00063 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00064 10 FILLER PIC X(3). OJRWE119
|
|
00065 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWE119
|
|
00066 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWE119
|
|
00067 OJRWE119
|
|
00068 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00069 10 FILLER PIC X(2). OJRWE119
|
|
00070 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWE119
|
|
00071 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWE119
|
|
00072 OJRWE119
|
|
00073 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00074 10 FILLER PIC X(3). OJRWE119
|
|
00075 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWE119
|
|
00076 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWE119
|
|
00077 OJRWE119
|
|
00078 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00079 10 FILLER PIC X(3). OJRWE119
|
|
00080 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWE119
|
|
00081 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWE119
|
|
00082 OJRWE119
|
|
00083 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00084 10 FILLER PIC X(3). OJRWE119
|
|
00085 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWE119
|
|
00086 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWE119
|
|
00087 OJRWE119
|
|
00088 05 FILLER REDEFINES WRK-DISPLAY. OJRWE119
|
|
00089 10 FILLER PIC X(4). OJRWE119
|
|
00090 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWE119
|
|
00091 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWE119
|
|
00092 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWE119
|