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