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

68
CICS/DTSCU057.cob Normal file
View File

@ -0,0 +1,68 @@
00001 IDENTIFICATION DIVISION. 09/18/98
00002 PROGRAM-ID. DTSCU057. DTSCU057
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV008
00004 DATE-WRITTEN. SEPTEMBER 1998. CL**3
00005 DATE-COMPILED. DTSCU057
00006 SKIP3 DTSCU057
00007 ***** DTSCU057
00008 * DTSCU057
00009 * FUNCTION: FORMAT RESERVE RATIO FOR SCREEN. CL**3
00010 * DTSCU057
00011 * DTSCU057
00012 * MODIFICATION LOG: DTSCU057
00013 * DTSCU057
00014 * 09/23/1998 INITIAL DEVELOPMENT. CL**3
00015 * WORK ORDER: PROGRAMMER: TCL CL**3
00016 * DTSCU057
00017 * CL**2
00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2
00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX CL**2
00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX CL**2
00021 * DTSCU057
00022 * DTSCU057
00023 * DESCRIPTION: DTSCU057
00024 * DTSCU057
00025 * DTSCU057 RECEIVES L057-RATIO <20>S9(02)V9(05) COMP-3<>. CL**8
00026 * DTSCU057
00027 * DTSCU057 RETURNS L057-DISP-RATIO <20>--9.9<EFBFBD>. CL**8
00028 * DTSCU057
00029 * DTSCU057
00030 ***** DTSCU057
00031 SKIP3 DTSCU057
00032 ENVIRONMENT DIVISION. DTSCU057
00033 SKIP3 DTSCU057
00034 DATA DIVISION. DTSCU057
00035 SKIP3 DTSCU057
00036 WORKING-STORAGE SECTION. DTSCU057
000365 77 PAN-VALET PICTURE X(24) VALUE '008DTSCU057 09/18/98'. DTSCU057
00037 SKIP3 DTSCU057
00038 01 WRK-AREA. DTSCU057
00039 05 WRK-ABEND-CODE PIC X(04) VALUE 'U057'. CL**3
00040 05 WRK-RESP-CODE PIC S9(08) COMP. DTSCU057
00041 05 WRK-RATIO PIC S9(02)V9 COMP-3. CL**4
00042 05 WRK-DISP-RATIO PIC --9.9. CL**6
00043 CL**2
00044 EJECT DTSCU057
00045 LINKAGE SECTION. DTSCU057
00046 SKIP3 DTSCU057
00047 01 DFHCOMMAREA. DTSCU057
00048 ++INCLUDE DTSIL057 CL**3
00049 EJECT DTSCU057
00050 PROCEDURE DIVISION. DTSCU057
00051 SKIP2 DTSCU057
00052 DTSCU057-MAIN. CL**4
00053 MOVE SPACE TO L057-DISP-RATIO. CL**5
00054 MOVE ZERO TO WRK-RATIO CL**6
00055 WRK-DISP-RATIO. CL**5
00056 CL**2
00057 COMPUTE WRK-RATIO = L057-RATIO * 100. CL**4
00058 MOVE WRK-RATIO TO WRK-DISP-RATIO. CL**5
00059 MOVE WRK-DISP-RATIO TO L057-DISP-RATIO. CL**5
00060 CL**2
00061 DTSCU057-EXIT. CL**4
00062 EXEC CICS DTSCU057
00063 RETURN DTSCU057
00064 END-EXEC. DTSCU057
00065 SKIP2 DTSCU057
00066 GOBACK. DTSCU057
00067 SKIP3 DTSCU057