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