00001 ***** 09/29/98 00002 * DTSIL008 00003 * DTSIL008 DISPLAY QUARTER IN TEXT FORMAT MODULE LINKAGE. LV004 00004 * DTSIL008 00005 * EXAMPLE: YRQ = 19944 UPPER-CASE MIXED CASE DTSIL008 00006 * DTSIL008 00007 * LONG-MONTH-1 OCTOBER October DTSIL008 00008 * LONG-MONTH-2 NOVEMBER November DTSIL008 00009 * LONG-MONTH-3 DECEMBER December DTSIL008 00010 * DTSIL008 00011 * SHORT-MONTH-1 OCT Oct DTSIL008 00012 * SHORT-MONTH-2 NOV Nov DTSIL008 00013 * SHORT-MONTH-3 DEC Dec DTSIL008 00014 * DTSIL008 00015 * SHORT-DSCR 3RD 3rd DTSIL008 00016 * LONG-DSCR THIRD Third DTSIL008 00017 * DTSIL008 00018 * YEAR 1994 1994 DTSIL008 00019 * DTSIL008 00020 ***** DTSIL008 00021 CL**4 00022 10 L008-OPTION PIC X(01). DTSIL008 00023 88 L008-UPPER-CASE VALUE '1'. DTSIL008 00024 88 L008-MIXED-CASE VALUE '2'. DTSIL008 00025 CL**4 00026 10 L008-YRQ PIC S9(05) COMP-3. DTSIL008 00027 CL**4 00028 10 L008-LONG-MONTHS. DTSIL008 00029 15 L008-LONG-MONTH-1 PIC X(09). DTSIL008 00030 15 L008-LONG-MONTH-2 PIC X(09). DTSIL008 00031 15 L008-LONG-MONTH-3 PIC X(09). DTSIL008 00032 CL**4 00033 10 L008-SHORT-MONTHS. DTSIL008 00034 15 L008-SHORT-MONTH-1 PIC X(03). DTSIL008 00035 15 L008-SHORT-MONTH-2 PIC X(03). DTSIL008 00036 15 L008-SHORT-MONTH-3 PIC X(03). DTSIL008 00037 CL**4 00038 10 L008-YEAR PIC X(04). DTSIL008 00039 CL**4 00040 10 L008-SHORT-DSCR PIC X(03). DTSIL008 00041 CL**4 00042 10 L008-LONG-DSCR PIC X(06). DTSIL008 00043 CL**4 00044 10 FILLER PIC X(41). DTSIL008