00001  IDENTIFICATION DIVISION.                                         08/06/98
00002  PROGRAM-ID.             DTSCU009                                 DTSCU009
00003  AUTHOR.                 TRICOASTAL CONSULTING LTD.                  LV004
00004  DATE-WRITTEN            SEPTEMBER 1994.                          DTSCU009
00005  DATE-COMPILED.                                                   DTSCU009
00006      SKIP1                                                        DTSCU009
00007 *****                                                             DTSCU009
00008 *                                                                 DTSCU009
00009 *    FUNCTION:   CONVERT MIXED CASE TO UPPER CASE.                DTSCU009
00010 *                                                                 DTSCU009
00011 *                                                                 DTSCU009
00012 *    MODIFICATION LOG:                                            DTSCU009
00013 *                                                                 DTSCU009
00014 *    08/03/98    INITIAL DEVELOPMENT. MODIFIED FROM MACCU009.        CL**2
00015 *                WORK ORDER:                 PROGRAMMER: ZL1.        CL**2
00016 *                                                                 DTSCU009
00017 *    XX/XX/XX    XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU009
00018 *                XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX     DTSCU009
00019 *                WORK ORDER:                 PROGRAMMER:          DTSCU009
00020 *                                                                 DTSCU009
00021 *                                                                 DTSCU009
00022 *    DESCRIPTION:                                                 DTSCU009
00023 *                                                                 DTSCU009
00024 *****                                                             DTSCU009
00025  SKIP1                                                            DTSCU009
00026  ENVIRONMENT DIVISION.                                            DTSCU009
00027  DATA DIVISION.                                                   DTSCU009
00028  WORKING-STORAGE SECTION.                                         DTSCU009
000285 77  PAN-VALET PICTURE X(24) VALUE '004DTSCU009  08/06/98'.       DTSCU009
00029  LINKAGE SECTION.                                                 DTSCU009
00030  SKIP3                                                            DTSCU009
00031  01  DFHCOMMAREA.                                                 DTSCU009
00032  ++INCLUDE DTSIL009                                                  CL**4
00033  eject                                                            DTSCU009
00034  PROCEDURE DIVISION.                                              DTSCU009
00035      SKIP2                                                        DTSCU009
00036      INSPECT L009-DATA CONVERTING 'abcdefghijklmnopqrstuvwxyz'    DTSCU009
00037                                TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.   DTSCU009
00038      skip2                                                        DTSCU009
00039      EXEC CICS                                                    DTSCU009
00040          RETURN                                                   DTSCU009
00041      END-EXEC.                                                    DTSCU009
