67 lines
5.2 KiB
COBOL
67 lines
5.2 KiB
COBOL
00001 08/02/02
|
|
00002 01 OJRWE311-DATA-AREA. OJRWE311
|
|
00003 LV001
|
|
00004 05 OJR-PARM-PERIOD-START-DATE PIC X(06). OJRWE311
|
|
00005 05 OJR-PARM-PERIOD-END-DATE PIC X(06). OJRWE311
|
|
00006 05 OJR-PERIOD-START-DATE PIC S9(09) COMP-3. OJRWE311
|
|
00007 05 OJR-PERIOD-END-DATE PIC S9(09) COMP-3. OJRWE311
|
|
00008 OJRWE311
|
|
00009 05 WRK-PARM-PERIOD-START-DATE PIC S9(09) COMP-3. OJRWE311
|
|
00010 05 WRK-PARM-PERIOD-END-DATE PIC S9(09) COMP-3. OJRWE311
|
|
00011 OJRWE311
|
|
00012 05 WRK-EDIT-STATUS-IND PIC X(01) VALUE 'Y'. OJRWE311
|
|
00013 88 WRK-EDIT-PASSED-88 VALUE 'Y'. OJRWE311
|
|
00014 88 WRK-EDIT-FAILED-88 VALUE 'N'. OJRWE311
|
|
00015 OJRWE311
|
|
00016 05 WRK-COMPARE-DATE PIC 9(9). OJRWE311
|
|
00017 05 FILLER REDEFINES WRK-COMPARE-DATE. OJRWE311
|
|
00018 10 FILLER PIC X. OJRWE311
|
|
00019 10 WRK-COMPARE-CC PIC 9(2). OJRWE311
|
|
00020 10 WRK-COMPARE-YY PIC 9(2). OJRWE311
|
|
00021 10 WRK-COMPARE-MO PIC 9(2). OJRWE311
|
|
00022 10 WRK-COMPARE-DA PIC 9(2). OJRWE311
|
|
00023 OJRWE311
|
|
00024 05 WRK-DISPLAY PIC 9(9). OJRWE311
|
|
00025 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00026 10 FILLER PIC X. OJRWE311
|
|
00027 10 WRK-DISPLAY-C PIC X(2). OJRWE311
|
|
00028 10 WRK-DISPLAY-Y PIC X(2). OJRWE311
|
|
00029 10 WRK-DISPLAY-M PIC X(2). OJRWE311
|
|
00030 10 WRK-DISPLAY-D PIC X(2). OJRWE311
|
|
00031 OJRWE311
|
|
00032 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00033 10 FILLER PIC X(6). OJRWE311
|
|
00034 10 WRK-DISPLAY-3 PIC X(3). OJRWE311
|
|
00035 OJRWE311
|
|
00036 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00037 10 FILLER PIC X(3). OJRWE311
|
|
00038 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWE311
|
|
00039 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWE311
|
|
00040 OJRWE311
|
|
00041 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00042 10 FILLER PIC X(2). OJRWE311
|
|
00043 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWE311
|
|
00044 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWE311
|
|
00045 OJRWE311
|
|
00046 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00047 10 FILLER PIC X(3). OJRWE311
|
|
00048 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWE311
|
|
00049 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWE311
|
|
00050 OJRWE311
|
|
00051 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00052 10 FILLER PIC X(3). OJRWE311
|
|
00053 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWE311
|
|
00054 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWE311
|
|
00055 OJRWE311
|
|
00056 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00057 10 FILLER PIC X(3). OJRWE311
|
|
00058 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWE311
|
|
00059 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWE311
|
|
00060 OJRWE311
|
|
00061 05 FILLER REDEFINES WRK-DISPLAY. OJRWE311
|
|
00062 10 FILLER PIC X(4). OJRWE311
|
|
00063 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWE311
|
|
00064 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWE311
|
|
00065 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWE311
|
|
00066 OJRWE311
|