65 lines
5.1 KiB
COBOL
65 lines
5.1 KiB
COBOL
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 ›S9(02)V9(05) COMP-3º. CL**2
|
||
00026 * DTSBU057
|
||
00027 * DTSBU057 RETURNS L057-DISP-RATIO ›--9.9º. 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
|