57 lines
4.4 KiB
COBOL
57 lines
4.4 KiB
COBOL
00001 05 WRK-COMPARE-DATE PIC 9(9). 08/02/02
|
|
00002 05 FILLER REDEFINES WRK-COMPARE-DATE. OJRIPARM
|
|
00003 10 FILLER PIC X. LV001
|
|
00004 10 WRK-COMPARE-CC PIC 9(2). OJRIPARM
|
|
00005 10 WRK-COMPARE-YY PIC 9(2). OJRIPARM
|
|
00006 10 WRK-COMPARE-MO PIC 9(2). OJRIPARM
|
|
00007 10 WRK-COMPARE-DA PIC 9(2). OJRIPARM
|
|
00008 SKIP3 OJRIPARM
|
|
00009 05 WRK-DISPLAY PIC 9(9). OJRIPARM
|
|
00010 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00011 10 FILLER PIC X. OJRIPARM
|
|
00012 10 WRK-DISPLAY-C PIC X(2). OJRIPARM
|
|
00013 10 WRK-DISPLAY-Y PIC X(2). OJRIPARM
|
|
00014 10 WRK-DISPLAY-M PIC X(2). OJRIPARM
|
|
00015 10 WRK-DISPLAY-D PIC X(2). OJRIPARM
|
|
00016 OJRIPARM
|
|
00017 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00018 10 FILLER PIC X(6). OJRIPARM
|
|
00019 10 WRK-DISPLAY-3 PIC X(3). OJRIPARM
|
|
00020 OJRIPARM
|
|
00021 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00022 10 FILLER PIC X(3). OJRIPARM
|
|
00023 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRIPARM
|
|
00024 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRIPARM
|
|
00025 OJRIPARM
|
|
00026 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00027 10 FILLER PIC X(2). OJRIPARM
|
|
00028 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRIPARM
|
|
00029 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRIPARM
|
|
00030 OJRIPARM
|
|
00031 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00032 10 FILLER PIC X(3). OJRIPARM
|
|
00033 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRIPARM
|
|
00034 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRIPARM
|
|
00035 OJRIPARM
|
|
00036 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00037 10 FILLER PIC X(3). OJRIPARM
|
|
00038 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRIPARM
|
|
00039 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRIPARM
|
|
00040 OJRIPARM
|
|
00041 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00042 10 FILLER PIC X(3). OJRIPARM
|
|
00043 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRIPARM
|
|
00044 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRIPARM
|
|
00045 OJRIPARM
|
|
00046 05 FILLER REDEFINES WRK-DISPLAY. OJRIPARM
|
|
00047 10 FILLER PIC X(4). OJRIPARM
|
|
00048 10 WRK-DISPLAY-QTR-C PIC X(2). OJRIPARM
|
|
00049 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRIPARM
|
|
00050 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRIPARM
|
|
00051 OJRIPARM
|
|
00052 * MOVE MHDR-CMPL-WEEK-END-DATE TO WRK-DISPLAY. OJRIPARM
|
|
00053 * MOVE WRK-DISPLAY-M TO MAP-CMPL-WEEK-END-MO. OJRIPARM
|
|
00054 * MOVE WRK-DISPLAY-D TO MAP-CMPL-WEEK-END-DA. OJRIPARM
|
|
00055 * MOVE WRK-DISPLAY-Y TO MAP-CMPL-WEEK-END-YR. OJRIPARM
|
|
00056 OJRIPARM
|