55 lines
4.3 KiB
COBOL
55 lines
4.3 KiB
COBOL
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
|