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

46
Batch/DTSBU009.cob Normal file
View File

@ -0,0 +1,46 @@
00001 IDENTIFICATION DIVISION. 09/29/98
00002 PROGRAM-ID. DTSBU009. DTSBU009
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV004
00004 DATE-WRITTEN. SEPTEMBER 1994. DTSBU009
00005 DATE-COMPILED. DTSBU009
00006 CL**4
00007 ***** DTSBU009
00008 * DTSBU009
00009 * FUNCTION: CONVERT MIXED CASE TO UPPER CASE. DTSBU009
00010 * DTSBU009
00011 * DTSBU009
00012 * MODIFICATION LOG: DTSBU009
00013 * DTSBU009
00014 * 08/04/98 INITIAL DEVELOPMENT. MODIFIED FROM MACBU009. CL**2
00015 * WORK ORDER: PROGRAMMER: ZL1 CL**2
00016 * DTSBU009
00017 * XX/XX/XX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU009
00018 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU009
00019 * WORK ORDER: PROGRAMMER: XXX DTSBU009
00020 * DTSBU009
00021 * DTSBU009
00022 * DESCRIPTION: DTSBU009
00023 * DTSBU009
00024 ***** DTSBU009
00025 CL**4
00026 ENVIRONMENT DIVISION. DTSBU009
00027 CL**4
00028 DATA DIVISION. DTSBU009
00029 CL**4
00030 WORKING-STORAGE SECTION. DTSBU009
000305 77 PAN-VALET PICTURE X(24) VALUE '004DTSBU009 09/29/98'. DTSBU009
00031 CL**4
00032 01 WRK-AREA. DTSBU009
00033 05 WRK-ABEND-CD PIC S9(04) COMP VALUE +009. DTSBU009
00034 EJECT DTSBU009
00035 LINKAGE SECTION. DTSBU009
00036 SKIP3 DTSBU009
00037 01 LINK-AREA. DTSBU009
00038 ++INCLUDE DTSIL009 CL**3
00039 SKIP3 DTSBU009
00040 PROCEDURE DIVISION USING LINK-AREA. DTSBU009
00041 SKIP2 DTSBU009
00042 INSPECT L009-DATA CONVERTING 'abcdefghijklmnopqrstuvwxyz' DTSBU009
00043 TO 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'. DTSBU009
00044 SKIP2 DTSBU009
00045 GOBACK. DTSBU009