49 lines
3.8 KiB
COBOL
49 lines
3.8 KiB
COBOL
00001 01 OJRWENNN-DATA-AREA. 08/02/02
|
|
00002 OJRWENNN
|
|
00003 05 OJR-PARM-XXX PIC X(6). LV001
|
|
00004 OJRWENNN
|
|
00005 05 WRK-YYY PIC S9(09) COMP-3. OJRWENNN
|
|
00006 OJRWENNN
|
|
00007 05 WRK-DISPLAY PIC 9(9). OJRWENNN
|
|
00008 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00009 10 FILLER PIC X. OJRWENNN
|
|
00010 10 WRK-DISPLAY-C PIC X(2). OJRWENNN
|
|
00011 10 WRK-DISPLAY-Y PIC X(2). OJRWENNN
|
|
00012 10 WRK-DISPLAY-M PIC X(2). OJRWENNN
|
|
00013 10 WRK-DISPLAY-D PIC X(2). OJRWENNN
|
|
00014 OJRWENNN
|
|
00015 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00016 10 FILLER PIC X(6). OJRWENNN
|
|
00017 10 WRK-DISPLAY-3 PIC X(3). OJRWENNN
|
|
00018 OJRWENNN
|
|
00019 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00020 10 FILLER PIC X(3). OJRWENNN
|
|
00021 10 WRK-DISPLAY-EMP-1 PIC X(3). OJRWENNN
|
|
00022 10 WRK-DISPLAY-EMP-2 PIC X(3). OJRWENNN
|
|
00023 OJRWENNN
|
|
00024 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00025 10 FILLER PIC X(2). OJRWENNN
|
|
00026 10 WRK-DISPLAY-ASSIGN-1 PIC X(2). OJRWENNN
|
|
00027 10 WRK-DISPLAY-ASSIGN-2 PIC X(5). OJRWENNN
|
|
00028 OJRWENNN
|
|
00029 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00030 10 FILLER PIC X(3). OJRWENNN
|
|
00031 10 WRK-DISPLAY-LEVY-1 PIC X(2). OJRWENNN
|
|
00032 10 WRK-DISPLAY-LEVY-2 PIC X(4). OJRWENNN
|
|
00033 OJRWENNN
|
|
00034 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00035 10 FILLER PIC X(3). OJRWENNN
|
|
00036 10 WRK-DISPLAY-LIEN-1 PIC X(2). OJRWENNN
|
|
00037 10 WRK-DISPLAY-LIEN-2 PIC X(4). OJRWENNN
|
|
00038 OJRWENNN
|
|
00039 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00040 10 FILLER PIC X(3). OJRWENNN
|
|
00041 10 WRK-DISPLAY-REFUND-1 PIC X(2). OJRWENNN
|
|
00042 10 WRK-DISPLAY-REFUND-2 PIC X(4). OJRWENNN
|
|
00043 OJRWENNN
|
|
00044 05 FILLER REDEFINES WRK-DISPLAY. OJRWENNN
|
|
00045 10 FILLER PIC X(4). OJRWENNN
|
|
00046 10 WRK-DISPLAY-QTR-C PIC X(2). OJRWENNN
|
|
00047 10 WRK-DISPLAY-QTR-Y PIC X(2). OJRWENNN
|
|
00048 10 WRK-DISPLAY-QTR-Q PIC X(1). OJRWENNN
|