34 lines
2.6 KiB
COBOL
34 lines
2.6 KiB
COBOL
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
|