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

64
Batch/DTSBU057.cob Normal file
View File

@ -0,0 +1,64 @@
00001 IDENTIFICATION DIVISION. 11/09/98
00002 PROGRAM-ID. DTSBU057. DTSBU057
00003 AUTHOR. TRICOASTAL CONSULTING LTD. LV003
00004 DATE-WRITTEN. NOVEMBER 1998. CL**2
00005 DATE-COMPILED. DTSBU057
00006 SKIP3 DTSBU057
00007 ***** DTSBU057
00008 * DTSBU057
00009 * FUNCTION: FORMAT RESERVE RATIO FOR DISPLAY ON PRINTED CL**2
00010 * OUTPUTS. CL**2
00011 * CL**2
00012 * DTSBU057
00013 * MODIFICATION LOG: DTSBU057
00014 * DTSBU057
00015 * 11/09/1998 CLONED FROM DTSCU057. CL**2
00016 * REFERENCE: DC DEVELOPMENT PROGRAMMER: EHH CL**2
00017 * DTSBU057
00018 * MM/DD/YYYY XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU057
00019 * XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX DTSBU057
00020 * REFERENCE: XXXXXXXXXXXXXXX PROGRAMMER: XXX DTSBU057
00021 * DTSBU057
00022 * DTSBU057
00023 * DESCRIPTION: DTSBU057
00024 * DTSBU057
00025 * DTSBU057 RECEIVES L057-RATIO <20>S9(02)V9(05) COMP-3<>. CL**2
00026 * DTSBU057
00027 * DTSBU057 RETURNS L057-DISP-RATIO <20>--9.9<EFBFBD>. CL**2
00028 * DTSBU057
00029 * DTSBU057
00030 ***** DTSBU057
00031 SKIP3 DTSBU057
00032 ENVIRONMENT DIVISION. DTSBU057
00033 SKIP3 DTSBU057
00034 DATA DIVISION. DTSBU057
00035 SKIP3 DTSBU057
00036 WORKING-STORAGE SECTION. DTSBU057
000365 77 PAN-VALET PICTURE X(24) VALUE '003DTSBU057 11/09/98'. DTSBU057
00037 SKIP3 DTSBU057
00038 01 WRK-AREA. DTSBU057
00039 05 WRK-ABEND-CODE PIC S9(04) COMP VALUE +057. CL**2
00040 CL**2
00041 05 WRK-RATIO PIC S9(02)V9 COMP-3. DTSBU057
00042 CL**2
00043 05 WRK-DISP-RATIO PIC --9.9. DTSBU057
00044 EJECT DTSBU057
00045 LINKAGE SECTION. DTSBU057
00046 SKIP3 DTSBU057
00047 01 L057-LINK-AREA. CL**3
00048 ++INCLUDE DTSIL057 DTSBU057
00049 EJECT DTSBU057
00050 PROCEDURE DIVISION USING L057-LINK-AREA. CL**3
00051 CL**2
00052 CL**2
00053 MOVE SPACE TO L057-DISP-RATIO. DTSBU057
00054 DTSBU057
00055 CL**2
00056 COMPUTE WRK-RATIO = L057-RATIO * 100. DTSBU057
00057 CL**2
00058 MOVE WRK-RATIO TO WRK-DISP-RATIO. DTSBU057
00059 CL**2
00060 MOVE WRK-DISP-RATIO TO L057-DISP-RATIO. DTSBU057
00061 DTSBU057
00062 CL**2
00063 GOBACK. DTSBU057