45 lines
3.5 KiB
COBOL
45 lines
3.5 KiB
COBOL
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
|