As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.
Join the TIBCO Community TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.
From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
Request access to the private WebFOCUS User Group (login required) to network with fellow members.
Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.
I need my guage chart to show the actual scores for individual category names around the guage. Currently, it is taking the highest score of all categories instead of the individual score of that particular category name. For example, if one category name has a score of 15 and another has a score of 25, both guages will have 0 - 25 displaying on the guage and I need the one to show 0 - 25 and the other to show 0 -15. Is there a way to code that.
GRAPH FILE Q6S_METER
-* Created by Advanced Graph Assistant
SUM Q6S_METER.Q6S_METER.SCORE AS ''
BY Q6S_METER.Q6S_METER.CATEGORY_NAME
WHERE (Q6S_METER.Q6S_METER.AREA_RESPONSIBILITY EQ 'IT Mgr / Director')
AND (Q6S_METER.Q6S_METER.YEARMO EQ '2009Q4');
HEADING
"Quality 6S Audit Results"
" "
"<Q6S_METER.Q6S_METER.AREA_RESPONSIBILITY"
ON GRAPH PCHOLD AS HOLD FORMAT PNG
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET HAXIS 1200
ON GRAPH SET VAXIS 500
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH GAUGE1
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBITrueColors.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setPlace(true);
setDepthRadius(0);
setDepthAngle(0);
setTextUnderlineType(getY1Label(),1);
setFontSizeInPoints(getGaugeTitle(),100);
setPlaceResize(getGaugeTitle(),0);
setFontSizeAbsolute(getGaugeTitle(),false);
setFontSizeInPoints(getAnnotation(0),100);
setPlaceResize(getAnnotation(0),0);
setFontSizeAbsolute(getAnnotation(0),false);
setDisplay(getY1Label(),true);
setTextFormatPreset(getY1Label(),0);
setFontName(getY1Label(),"Arial");
setFontStyle(getY1Label(),0);
setAxisSide(getY1Axis(),0);
setDisplay(getTitle(),true);
setTextString(getTitle(),"");
setFillColor(getChartBackground(),new Color(255,255,255));
setTransparentBorderColor(getChartBackground(),true);
setGaugeBackgroundStyle(1);
setFillColor(getGaugeArea(),new Color(255,255,255));
setGaugeColorCenterByQuality(true);
setFontStyle(getGaugeTitle(),2);
setDisplay(getGaugeValue(),true);
setFillColor(getGaugeValue(),new Color(32,0,32));
setFontSizeAbsolute(getGaugeValue(),true);
setFontSizeInPoints(getGaugeValue(),7);
setPlaceResize(getGaugeValue(),0);
setFontStyle(getGaugeValue(),2);
setFillColor(getY1Label(),new Color(0,0,0));
setFontSizeAbsolute(getY1Label(),true);
setFontSizeInPoints(getY1Label(),6);
setPlaceResize(getY1Label(),0);
setGaugeBandMax(getGaugeBand1(),10.0);
setGaugeBandMin(getGaugeBand2(),10.0);
setGaugeBandMax(getGaugeBand2(),20.0);
setGaugeBandMin(getGaugeBand3(),20.0);
setGaugeBandMax(getGaugeBand3(),30.0);
setTextString(getAnnotation(0),"0-50%");
setDisplay(getAnnotation(0),true);
setFillColor(getAnnotationBox(0),new Color(255,0,0));
setTextString(getAnnotation(1),"51-80%");
setDisplay(getAnnotation(1),true);
setShadowColor(getAnnotation(1),new Color(255,255,0));
setFillColor(getAnnotationBox(1),new Color(255,255,0));
setTextString(getAnnotation(2),"81-100%");
setDisplay(getAnnotation(2),true);
setFillColor(getAnnotationBox(2),new Color(0,255,0));
setRect(getAnnotation(0),new Rectangle(-2666.0,9018.0,3200.0,1939.0));
setRect(getAnnotation(1),new Rectangle(-2666.0,7078.0,3200.0,1939.0));
setRect(getAnnotation(2),new Rectangle(-2666.0,5139.0,3200.0,1939.0));
setBorderColor(getGaugeBand2(),new Color(255,255,0));
setFillColor(getGaugeBand2(),new Color(255,255,0));
setBorderColor(getGaugeBand3(),new Color(0,255,0));
setFillColor(getGaugeBand3(),new Color(0,255,0));
ENDSTYLE
ON GRAPH SET STYLE *
TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=12, STYLE=BOLD+UNDERLINE, $
TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=12, STYLE=NORMAL, $
TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $
ENDSTYLE
END
This message has been edited. Last edited by: Kerry,
Thanks for the reply, I tried it and it is still showing 0-25 on all of the gauges even though some category names have a score of 10 and others a score of 15.
This works. Change the country to see how the graph MAX changes. I've BOLDed the key API's:
TABLE FILE CAR
SUM
RETAIL_COST
BY COUNTRY
WHERE COUNTRY EQ 'ENGLAND';
ON TABLE HOLD AS HOLD1 FORMAT ALPHA
END
-RUN
-READ HOLD1 &COUNTRY.A10. &COST.A7.
-* TYPE &COUNTRY &COST
-* EXIT
GRAPH FILE HOLD1
SUM RETAIL_COST AS ''
BY COUNTRY
ON GRAPH PCHOLD AS HOLD FORMAT PNG
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET HAXIS 1200
ON GRAPH SET VAXIS 500
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH GAUGE1
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBITrueColors.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setPlace(true);
setDepthRadius(0);
setDepthAngle(0);
I like it but, my issue is that I would need to display all countries on one page with six different gauges and each guage on the page needs to display the retail cost range for that particular country.If England is 0 to 50,000 on the England gauge then France would have to be 0 to 6000 on the France gauge. Maybe this is not possible???
If you have six different HTML frames(or whatever number you need), you could do it. Way too much to do here. This would go in iframe1, the next, iframe2, etc.
Just 1 idea; others may have one.
Lots of gauges on a page, though...
Good luck!
BTW, here's the code with the colors corrected:
TABLE FILE CAR
SUM
RETAIL_COST
BY COUNTRY
WHERE COUNTRY EQ 'W GERMANY';
ON TABLE HOLD AS HOLD1 FORMAT ALPHA
END
-RUN
-SET &ECHO=ALL;
-READ HOLD1 &COUNTRY.A10. &COST.A7.
-SET &L1=0;
-SET &L2=&COST * 0.50;
-SET &L3=&COST * 0.80;
-SET &L4=&COST * 1;
-TYPE &L1
-TYPE &L2
-TYPE &L3
-TYPE &L4
-* TYPE &COUNTRY &COST
-* EXIT
GRAPH FILE HOLD1
SUM RETAIL_COST AS ''
BY COUNTRY
ON GRAPH PCHOLD FORMAT PNG
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET HAXIS 1200
ON GRAPH SET VAXIS 500
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH GAUGE1
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBITrueColors.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setPlace(true);
setDepthRadius(0);
setDepthAngle(0);
setGaugeBackgroundStyle(6);
setGaugeRelativeInnerRadius(0.81);
setGaugeRelativeThickness(0.15);
setScaleMin ( getY1Axis(), 0);
setScaleMax ( getY1Axis(), &COST.EVAL);
setGaugeBandMin(getGaugeBand1(), &L1);
setGaugeBandMax(getGaugeBand1(), &L2);
setGaugeBandMin(getGaugeBand2(), &L2);
setGaugeBandMax(getGaugeBand2(), &L3);
setGaugeBandMin(getGaugeBand3(), &L3);
setGaugeBandMax(getGaugeBand3(), &L4);
setGaugeBandMin(getGaugeBand4(), &L4);
setGaugeBandMax(getGaugeBand4(), &L4);
setGaugeBandMin(getGaugeBand5(), &L4);
setGaugeBandMax(getGaugeBand5(), &L4);
setTextUnderlineType(getY1Label(),1);
setFontSizeInPoints(getGaugeTitle(),100);
setPlaceResize(getGaugeTitle(),0);
setFontSizeAbsolute(getGaugeTitle(),false);
setFontSizeInPoints(getAnnotation(0),100);
setPlaceResize(getAnnotation(0),0);
setFontSizeAbsolute(getAnnotation(0),false);
setDisplay(getY1Label(),true);
setTextFormatPreset(getY1Label(),0);
setFontName(getY1Label(),"Arial");
setFontStyle(getY1Label(),0);
setAxisSide(getY1Axis(),0);
setDisplay(getTitle(),true);
setTextString(getTitle(),"");
setFillColor(getChartBackground(),new Color(255,255,255));
setTransparentBorderColor(getChartBackground(),true);
setGaugeBackgroundStyle(1);
setFillColor(getGaugeArea(),new Color(255,255,255));
setGaugeColorCenterByQuality(true);
setFontStyle(getGaugeTitle(),2);
setDisplay(getGaugeValue(),true);
setFillColor(getGaugeValue(),new Color(32,0,32));
setFontSizeAbsolute(getGaugeValue(),true);
setFontSizeInPoints(getGaugeValue(),7);
setPlaceResize(getGaugeValue(),0);
setFontStyle(getGaugeValue(),2);
setFillColor(getY1Label(),new Color(0,0,0));
setFontSizeAbsolute(getY1Label(),true);
setFontSizeInPoints(getY1Label(),6);
setPlaceResize(getY1Label(),0);
-*setGaugeBandMax(getGaugeBand1(),10.0);
-*setGaugeBandMin(getGaugeBand2(),10.0);
-*setGaugeBandMax(getGaugeBand2(),20.0);
-*setGaugeBandMin(getGaugeBand3(),20.0);
-*setGaugeBandMax(getGaugeBand3(),30.0);
setTextString(getAnnotation(0),"0-50%");
setDisplay(getAnnotation(0),true);
setFillColor(getAnnotationBox(0),new Color(255,0,0));
setTextString(getAnnotation(1),"51-80%");
setDisplay(getAnnotation(1),true);
setShadowColor(getAnnotation(1),new Color(255,255,0));
setFillColor(getAnnotationBox(1),new Color(255,255,0));
setTextString(getAnnotation(2),"81-100%");
setDisplay(getAnnotation(2),true);
setFillColor(getAnnotationBox(2),new Color(0,255,0));
setRect(getAnnotation(0),new Rectangle(-2666.0,9018.0,3200.0,1939.0));
setRect(getAnnotation(1),new Rectangle(-2666.0,7078.0,3200.0,1939.0));
setRect(getAnnotation(2),new Rectangle(-2666.0,5139.0,3200.0,1939.0));
setBorderColor(getGaugeBand2(),new Color(255,255,0));
setFillColor(getGaugeBand2(),new Color(255,255,0));
setBorderColor(getGaugeBand3(),new Color(0,255,0));
setFillColor(getGaugeBand3(),new Color(0,255,0));
ENDSTYLE
ON GRAPH SET STYLE *
TYPE=HEADING, LINE=1, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=2, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=3, JUSTIFY=CENTER, $
TYPE=HEADING, LINE=1, ITEM=1, OBJECT=TEXT, SIZE=12, STYLE=BOLD+UNDERLINE, $
TYPE=HEADING, LINE=2, ITEM=1, OBJECT=TEXT, SIZE=12, STYLE=NORMAL, $
TYPE=HEADING, LINE=3, ITEM=1, OBJECT=FIELD, SIZE=10, STYLE=BOLD, $
ENDSTYLE
END