43 lines
3.3 KiB
COBOL
43 lines
3.3 KiB
COBOL
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
|