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