9 lines
648 B
COBOL
9 lines
648 B
COBOL
00001 ***** 08/24/98
|
|
00002 * DTSIL009
|
|
00003 * DTSIL009 CONVERT MIXED CASE TO UPPER CASE LV003
|
|
00004 * MODULE LINKAGE. DTSIL009
|
|
00005 * DTSIL009
|
|
00006 ***** DTSIL009
|
|
00007 SKIP1 DTSIL009
|
|
00008 10 L009-DATA PIC X(40). DTSIL009
|