00001 ***** 08/13/98 00002 * DTSIL056 00003 * MACIL056 RATE DISPLAY. LV003 00004 * DTSIL056 00005 * 08/13/1998 REVIEWED AND MODIFIED FOR DC. EHH CL**3 00006 * CL**3 00007 * RATE DISP1-LEFT-88 DISP1-LEFT-PCT-88 DISP4-LEFT-88 DTSIL056 00008 * DTSIL056 00009 * 00000 0.0 0.0% .0000 DTSIL056 00010 * 00100 1.0 1.0% .0100 DTSIL056 00011 * 00010 0.1 0.1% .0010 DTSIL056 00012 * 00110 1.1 1.1% .0110 DTSIL056 00013 * 01110 11.1 11.1% .1110 DTSIL056 00014 * 11110 111.1 111.1% 1.1110 DTSIL056 00015 * 00011 0.11 0.11% .0011 DTSIL056 00016 * 00111 1.11 1.11% .0111 DTSIL056 00017 * 01111 11.11 11.11% .1111 DTSIL056 00018 * 11111 111.11 111.11% 1.1111 DTSIL056 00019 * DTSIL056 00020 * THE 'RIGHT' OPTIONS SIMPLY JUSTIFY THE DISPLAY TO THE DTSIL056 00021 * RIGHT SIDE OF L056-DISP-RATE. DTSIL056 00022 * DTSIL056 00023 * OPTIONS DISP2-LEFT-88 AND DISP2-RIGHT-88 ARE THE SAME AS DTSIL056 00024 * OPTIONS DISP1-LEFT-88 AND DISP1-RIGHT-88 EXCEPT THAT THE DTSIL056 00025 * THE 2ND DECIMAL DIGIT IS ALWAYS DISPLAYED. DTSIL056 00026 * DTSIL056 00027 * OPTIONS DISP3-LEFT-88 AND DISP3-RIGHT-88 ARE THE SAME AS DTSIL056 00028 * OPTIONS DISP4-LEFT-88 AND DISP4-RIGHT-88 EXCEPT THAT IF DTSIL056 00029 * THE 4TH DECIMAL DIGIT IS ZERO IT IS TRUNCATED. DTSIL056 00030 * DTSIL056 00031 ***** DTSIL056 00032 CL**2 00033 *********10 L056-LENGTH PIC S9(04) COMP VALUE +32. CL**2 00034 CL**2 00035 10 L056-RATE PIC S9(01)V9(04) COMP-3. DTSIL056 00036 88 L056-NO-RATE-88 VALUE -9.9999. DTSIL056 00037 CL**2 00038 10 L056-OPTION PIC X(02). DTSIL056 00039 88 L056-DISP1-LEFT-88 VALUE '01'. DTSIL056 00040 88 L056-DISP1-RIGHT-88 VALUE '02'. DTSIL056 00041 88 L056-DISP2-LEFT-88 VALUE '03'. DTSIL056 00042 88 L056-DISP2-RIGHT-88 VALUE '04'. DTSIL056 00043 88 L056-DISP3-LEFT-88 VALUE '05'. DTSIL056 00044 88 L056-DISP3-RIGHT-88 VALUE '06'. DTSIL056 00045 88 L056-DISP4-LEFT-88 VALUE '07'. DTSIL056 00046 88 L056-DISP4-RIGHT-88 VALUE '08'. DTSIL056 00047 88 L056-DISP1-LEFT-PCT-88 VALUE '09'. DTSIL056 00048 88 L056-DISP1-RIGHT-PCT-88 VALUE '10'. DTSIL056 00049 88 L056-DISP2-LEFT-PCT-88 VALUE '11'. DTSIL056 00050 88 L056-DISP2-RIGHT-PCT-88 VALUE '12'. DTSIL056 00051 CL**2 00052 10 L056-DISP-RATE PIC X(07). DTSIL056 00053 CL**2 00054 10 FILLER PIC X(20). CL**2