Focal Point
[SOLVED] WebFOCUS 8 Graph Value Question

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/8577096176

July 15, 2014, 05:41 PM
Doug
[SOLVED] WebFOCUS 8 Graph Value Question
How can I add the functionality of "setPieLabelDisplay(0);" in WebFOCUS 8 InfoAssist. This command will display the values, which is what I need, as opposed to the percentage of the pie based on 100 percent. Please run the following code, with and without that command.
-* (test) RitaGrf.fex
-SET &ITOT_DOL_VAL = 19100000 ;
-SET &IWAVE_NUM =12 ;
-SET &IMYDATE = EDIT(&YYMD.EVAL,'99') || '/' || EDIT(&YYMD.EVAL,'$$$$99') ;
-SET &RANDOM_NUMBER = &TOD ;

DEFINE FILE CAR
EXCEPT_PCT/D5.2 = ( DCOST  /  &ITOT_DOL_VAL.EVAL )  * 100;
END

-*INTERNAL_PROPERTIES$fieldDisplayMode=label;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$enablePreview=true;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$prefixDisplayMode=;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$GlobalRecordLimit=500;OBJECTID=GLOBAL
-*INTERNAL_PROPERTIES$SampleData=false;OBJECTID=GLOBAL
TABLE FILE CAR
SUM CAR.BODY.EXCEPT_PCT
BY CAR.ORIGIN.COUNTRY
WHERE CAR.ORIGIN.COUNTRY LE 'FRANCE';
END
GRAPH FILE CAR
-* Created by Advanced Graph Assistant
SUM CAR.BODY.EXCEPT_PCT
BY CAR.ORIGIN.COUNTRY
WHERE CAR.ORIGIN.COUNTRY LE 'FRANCE';
ON GRAPH PCHOLD FORMAT PNG
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO ON
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET HAXIS 900
ON GRAPH SET VAXIS 600
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH PIESINGL
ON GRAPH SET AUTOFIT ON
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET GRID ON
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 1
ON GRAPH SET GRXAXIS 0
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBISouthWestern.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setDepthRadius(5);
setTransparentBorderColor(getSeries(0),true);
setTransparentBorderColor(getSeries(1),true);
setTransparentBorderColor(getSeries(2),true);
setTransparentBorderColor(getSeries(3),true);
setTransparentBorderColor(getSeries(4),true);
setTransparentBorderColor(getSeries(5),true);
setTransparentBorderColor(getSeries(6),true);
setTransparentBorderColor(getSeries(7),true);
setTransparentBorderColor(getSeries(8),true);
setTransparentBorderColor(getSeries(9),true);
setTransparentBorderColor(getSeries(10),true);
setPieDepth(10);
setPieFeelerTextDisplay(1);
setTransparentBorderColor(getChartBackground(),true);
setPlace(true);
setPieLabelDisplay(0);
ENDSTYLE
END

I don't see where I should pt "setPieLabelDisplay(0);" in the STYLESHEET section. Perhaps other "stuff" is inhibiting it? Perhaps this is "Functionality Lost", which I am hoping Is Not the case? Enquiring minds want to know...

This message has been edited. Last edited by: Doug,




   In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.
   Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
July 15, 2014, 09:34 PM
David Briars
If I understand your requirement, you need to see the '.20' for the England slice, and '.02' for the France slice, just as you do in the result of your TABLE command.

For example:

To do this I added two API commands to change the format pattern for the data values:
-* File douggraph.fex
DEFINE FILE CAR
EXCEPT_PCT/P5.2 = ( DCOST  /  19100000 )  * 100;
END
-*
TABLE FILE CAR
SUM CAR.BODY.EXCEPT_PCT
BY CAR.ORIGIN.COUNTRY
WHERE CAR.ORIGIN.COUNTRY LE 'FRANCE';
END
-*
GRAPH FILE CAR
-* Created by Advanced Graph Assistant
SUM CAR.BODY.EXCEPT_PCT
BY  CAR.ORIGIN.COUNTRY
WHERE CAR.ORIGIN.COUNTRY LE 'FRANCE';
ON GRAPH PCHOLD FORMAT PNG
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO ON
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET HAXIS 900
ON GRAPH SET VAXIS 600
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH PIESINGL
ON GRAPH SET AUTOFIT ON
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET GRID ON
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 1
ON GRAPH SET GRXAXIS 0
ON GRAPH SET GRAPHSTYLE *
setTemplateFile("/images/tdg/template/IBISouthWestern.txt");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setDepthRadius(5);
setTransparentBorderColor(getSeries(0),true);
setTransparentBorderColor(getSeries(1),true);
setTransparentBorderColor(getSeries(2),true);
setTransparentBorderColor(getSeries(3),true);
setTransparentBorderColor(getSeries(4),true);
setTransparentBorderColor(getSeries(5),true);
setTransparentBorderColor(getSeries(6),true);
setTransparentBorderColor(getSeries(7),true);
setTransparentBorderColor(getSeries(8),true);
setTransparentBorderColor(getSeries(9),true);
setTransparentBorderColor(getSeries(10),true);
setPieDepth(10);
setPieFeelerTextDisplay(1);
setTransparentBorderColor(getChartBackground(),true);
setPlace(true);
-* Change format pattern of data values:
setPieFeelerTextFormat(-1);
setPieFeelerTextFormatPattern("0.00");
-*
setPieLabelDisplay(0);
ENDSTYLE
END





Pilot: WebFOCUS 8.2.06 Test: WebFOCUS 8.1.05M Prod: WebFOCUS 8.1.05M Server: Windows Server 2016/Tomcat Standalone Workstation: Windows 10/IE11+Edge Database: Oracle 12c, Netezza, & MS SQL Server 2019 Output: AHTML/XLSX/HTML/PDF/JSCHART Tools: WFDS, Repository Content, BI Portal Designer & ReportCaster
July 15, 2014, 10:04 PM
Doug
Thanks David, I'll give it a try in the morning (CT Zone)