giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

DUTAS re-platformed to Raincode - Initial Source Code

Browse Source
This commit is contained in:
Neeraj Kumar
2025-07-21 07:44:09 -04:00
commit ca3572c5df
2773 changed files with 798221 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
CICS/DTSCU009.cob Normal file
View File

@ -0,0 +1,42 @@
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