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