Its just a single value by a description....when the value comes in I do the following:
VALUE/F3=Value;
CODEA /A05 = FTOA (VALUE,'(F5)',CODEA);
CODEB /A5 = CODEA;
XDASH1/A4 = IF Value LT 10 THEN '----' ELSE '';
XDASH2/A4 = IF (Value FROM 10 TO 99) THEN '--' ELSE '';
-SET &XLN1=IF XVALUE EQ '1' THEN 'A3' ELSE
- IF XVALUE EQ '2' THEN 'A6' ELSE
- IF XVALUE EQ '3' THEN 'A9' ELSE
- IF XVALUE EQ '4' THEN 'A12' ELSE
- IF XVALUE EQ '5' THEN 'A15' ELSE
- IF XVALUE EQ '6' THEN 'A18' ELSE
- IF XVALUE EQ '7' THEN 'A21' ELSE
- IF XVALUE EQ '8' THEN 'A24' ELSE
- IF XVALUE EQ '9' THEN 'A27' ELSE 'A27';
-SET &XLN2=IF XVALUE EQ '9' THEN 'A3' ELSE
- IF XVALUE EQ '8' THEN 'A6' ELSE
- IF XVALUE EQ '7' THEN 'A9' ELSE
- IF XVALUE EQ '6' THEN 'A12' ELSE
- IF XVALUE EQ '5' THEN 'A15' ELSE
- IF XVALUE EQ '4' THEN 'A18' ELSE
- IF XVALUE EQ '3' THEN 'A21' ELSE
- IF XVALUE EQ '2' THEN 'A24' ELSE
- IF XVALUE EQ '1' THEN 'A27' ELSE 'A27';
XLINE1/&XLN1=IF XVALUE EQ '9' THEN '|--------------------------' ELSE
IF XVALUE EQ '8' THEN '|-----------------------' ELSE
IF XVALUE EQ '7' THEN '|--------------------' ELSE
IF XVALUE EQ '6' THEN '|-----------------' ELSE
IF XVALUE EQ '5' THEN '|--------------' ELSE
IF XVALUE EQ '4' THEN '|-----------' ELSE
IF XVALUE EQ '3' THEN '|--------' ELSE
IF XVALUE EQ '2' THEN '|-----' ELSE
IF XVALUE EQ '1' THEN '|--' ELSE '|--' ;
XLINE2/&XLN2=IF XVALUE EQ '9' THEN '--|' ELSE
IF XVALUE EQ '8' THEN '-----|' ELSE
IF XVALUE EQ '7' THEN '--------|' ELSE
IF XVALUE EQ '6' THEN '-----------|' ELSE
IF XVALUE EQ '5' THEN '--------------|' ELSE
IF XVALUE EQ '4' THEN '-----------------|' ELSE
IF XVALUE EQ '3' THEN '--------------------|' ELSE
IF XVALUE EQ '2' THEN '-----------------------|' ELSE
IF XVALUE EQ '1' THEN '--------------------------|' ELSE '--------------------------|';
CODEA /A05 = FTOA (VALUE,'(F5)',CODEA);
CODEB /A5 = CODEA;
CODEC /A150 = XLINE1||XDASH1||XDASH2||CODEB||'%'||XLINE2;
----*** the above code creates the following |--------113%-----| and the value is offset by the number of dashes I add on the let ofr right....It works fine I just need to change the Value to Red. Thanks
8.0.9, Windows
excel / pdf