00001 ***** 09/29/98 00002 * DTSIL002 00003 * DTSIL002 DISPLAY DATE IN TEXT FORMAT MODULE LINKAGE. LV005 00004 * DTSIL002 00005 * LONG TEXT AREA EXAMPLE: SEPTEMBER 30, 1994 DTSIL002 00006 * LONG TEXT AREA EXAMPLE: SEPTEMBER 1, 1994 DTSIL002 00007 * DTSIL002 00008 * SHORT TEXT AREA EXAMPLE: SEP 30, 1994 DTSIL002 00009 * SHORT TEXT AREA EXAMPLE: SEP 1, 1994 DTSIL002 00010 * DTSIL002 00011 ***** DTSIL002 00012 CL**5 00013 10 L002-OPTION PIC X(01). DTSIL002 00014 88 L002-UPPER-CASE VALUE '1'. DTSIL002 00015 88 L002-MIXED-CASE VALUE '2'. DTSIL002 00016 CL**5 00017 10 L002-DATE PIC S9(09) COMP-3. DTSIL002 00018 CL**5 00019 10 L002-LONG-TEXT-CNT PIC S9(04) COMP. DTSIL002 00020 10 L002-LONG-TEXT-AREA PIC X(18). DTSIL002 00021 10 FILLER REDEFINES L002-LONG-TEXT-AREA. DTSIL002 00022 15 L002-LONG-TEXT-CHAR OCCURS 18 TIMES DTSIL002 00023 INDEXED BY L002-LONG-TEXT-IDX DTSIL002 00024 PIC X(01). DTSIL002 00025 CL**5 00026 10 L002-SHORT-TEXT-CNT PIC S9(04) COMP. DTSIL002 00027 10 L002-SHORT-TEXT-AREA PIC X(12). DTSIL002 00028 10 FILLER REDEFINES L002-SHORT-TEXT-AREA. DTSIL002 00029 15 L002-SHORT-TEXT-CHAR OCCURS 12 TIMES DTSIL002 00030 INDEXED BY L002-SHORT-TEXT-IDX DTSIL002 00031 PIC X(01). DTSIL002 00032 CL**5 00033 10 FILLER PIC X(22). CL**3