22 lines
1.7 KiB
COBOL
22 lines
1.7 KiB
COBOL
00001 05 WRK-MONTH-TBL. 11/21/01
|
|
00002 10 FILLER PIC X(09) VALUE 'January '. DTSIC405
|
|
00003 10 FILLER PIC X(09) VALUE 'February '. LV004
|
|
00004 10 FILLER PIC X(09) VALUE 'March '. DTSIC405
|
|
00005 10 FILLER PIC X(09) VALUE 'April '. DTSIC405
|
|
00006 10 FILLER PIC X(09) VALUE 'May '. DTSIC405
|
|
00007 10 FILLER PIC X(09) VALUE 'June '. DTSIC405
|
|
00008 10 FILLER PIC X(09) VALUE 'July '. DTSIC405
|
|
00009 10 FILLER PIC X(09) VALUE 'August '. DTSIC405
|
|
00010 10 FILLER PIC X(09) VALUE 'September'. DTSIC405
|
|
00011 10 FILLER PIC X(09) VALUE 'October '. DTSIC405
|
|
00012 10 FILLER PIC X(09) VALUE 'November '. DTSIC405
|
|
00013 10 FILLER PIC X(09) VALUE 'December '. DTSIC405
|
|
00014 05 FILLER REDEFINES WRK-MONTH-TBL. DTSIC405
|
|
00015 10 WRK-MONTH-NAME PIC X(09) OCCURS 12. DTSIC405
|
|
00016 DTSIC405
|
|
00017 05 WRK-ST PIC X(02) VALUE 'st'. DTSIC405
|
|
00018 05 WRK-ND PIC X(02) VALUE 'nd'. DTSIC405
|
|
00019 05 WRK-RD PIC X(02) VALUE 'rd'. DTSIC405
|
|
00020 05 WRK-TH PIC X(02) VALUE 'th'. DTSIC405
|
|
00021 DTSIC405
|