Hi All,

I'm trying to add two JSCHART in a single iframe. I'm getting only one graph if I hold the graph in JSCHART format. Below is the sample code.


ENGINE INT CACHE SET ON
SET PAGE-NUM=NOLEAD
SET HTMLENCODE=ON
SET ARGRAPHENGINE=JSCHART
SET EMBEDHEADING=ON
SET GRAPHDEFAULT=OFF
-DEFAULTH &WF_STYLE_UNITS='PIXELS';
-DEFAULTH &WF_STYLE_HEIGHT='15.0';
-DEFAULTH &WF_STYLE_WIDTH='15.0';
-DEFAULTH &WF_TITLE='WebFOCUS Report';

DEFINE FILE CAR
VAL/P17.2=98.2;
END

GRAPH FILE car
SUM VAL
BY CAR NOPRINT
WHERE RECORDLIMIT EQ 1;
-* Created by Info Assist for Graph
ON GRAPH HOLD AS TESTGRAPH FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET UNITS &WF_STYLE_UNITS
ON GRAPH SET HAXIS 100
ON GRAPH SET VAXIS 100
ON GRAPH SET LOOKGRAPH EXTENSION
ON GRAPH SET AUTOFIT OFF
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
*END
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,$
-*TYPE=REPORT, TITLETEXT=&WF_TITLE.QUOTEDSTRING, $
TYPE=DATA, COLUMN=N2, BUCKET= >value, $
*GRAPH_SCRIPT
setReportParsingErrors(false);
setSelectionEnableMove(false);
setFillColor(getChartBackground(),new Color(255,255,255,0));
*GRAPH_JS_FINAL
"pieProperties": {
"holeSize": "0%"
},
"chartType": "com.ibi.liquid_gauge",
"agnosticSettings": {
"chartTypeFullName": "com.ibi.liquid_gauge"
}
*END
ENDSTYLE
END
-RUN

-*IA_GRAPH_FINISH
-HTMLFORM BEGIN

!IBI.FIL.TESTGRAPH;

!IBI.FIL.TESTGRAPH;

-HTMLFORM END

Can anyone please help me on this?

This message has been edited. Last edited by: FP Mod Chuck,

Hi Dinesh

Here is a sample I found that does what you want.


EMBED BEGIN PCHOLD FORMAT HTML
EMBED COMPONENT AS C1
GRAPH FILE CAR
-* Created by Info Assist for Graph
SUM CAR.BODY.DEALER_COST
CAR.BODY.RETAIL_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH HOLD AS C1 FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET UNITS PIXELS
ON GRAPH SET HAXIS 400
ON GRAPH SET VAXIS 300
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
-**** ON GRAPH SET LOOKGRAPH VLINE
ON GRAPH SET LOOKGRAPH PIE
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
setUseSeriesShapes(true);
setMarkerSizeDefault(50);
*END
TYPE=REPORT, TITLETEXT='WebFOCUS Report', $
*GRAPH_SCRIPT
setTextRotation(getO1Label(),2);
setY1TitleString("Usage ");
setTextFormatPattern(getY1Label(),"###,###");
setTitleString("Weather Normal Actual Usage Comparison");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setConnectLineMarkers(true);
*END
ENDSTYLE
END

EMBED COMPONENT AS C2

GRAPH FILE CAR
-* Created by Info Assist for Graph
SUM CAR.BODY.DEALER_COST
CAR.BODY.RETAIL_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH HOLD AS C2 FORMAT JSCHART
ON GRAPH SET VZERO OFF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET UNITS PIXELS
ON GRAPH SET HAXIS 400
ON GRAPH SET VAXIS 300
ON GRAPH SET GRMERGE ADVANCED
ON GRAPH SET GRMULTIGRAPH 0
ON GRAPH SET GRLEGEND 0
ON GRAPH SET GRXAXIS 1
ON GRAPH SET LOOKGRAPH VBAR
ON GRAPH SET STYLE *
*GRAPH_SCRIPT
setPieDepth(0);
setPieTilt(0);
setDepthRadius(0);
setCurveFitEquationDisplay(false);
setPlace(true);
setUseSeriesShapes(true);
setMarkerSizeDefault(50);
*END
TYPE=REPORT, TITLETEXT='WebFOCUS Report', $
*GRAPH_SCRIPT
setTextRotation(getO1Label(),2);
setY1TitleString("Usage ");
setTextFormatPattern(getY1Label(),"###,###");
setTitleString("Weather Normal Actual Usage Comparison");
setReportParsingErrors(false);
setSelectionEnableMove(false);
setConnectLineMarkers(true);
*END
ENDSTYLE
END
EMBED MAIN

TABLE FILE CAR
"Two graphs in the heading of a report:"
"c1<+0>c2"
BY COUNTRY NOPRINT
IF RECORDLIMIT EQ 1
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE HOLD FORMAT HTML
ON TABLE SET STYLE *
type=heading, headalign=internal, $
type=heading, line=2, item=1, embed=C1, $
type=heading, line=2, item=2, embed=C2, $
END

EMBED END


Thanks Chuck Wolff for the timley help.

But I've found another way to fill two JSCHART in HTMLFORM tags.

Please share, it may help someone else...

@chuck

never heard of the EMBED statement...

I tried to do the same, but failed.
Because I'd like to use
ON GRAPH SET AUTOFIT ON
hacking in the code revealed it just scales the graph up to "document" size. Instead of "parent".

Any solutions to that?

Hi MartinY,

I just added two iframe inside HTMLFORM tag and attached two fex(graph) to that as below.

-HTMLFORM BEGIN
<HTML>
<BODY>
<DIV>
<iframe src="/ibi_apps/WFServlet.ibfs?IBFS1_action=RUNFEX&|IBFS_path=/WFC/Repository/Public/sample.fex" >
</iframe>
<iframe src="/ibi_apps/WFServlet.ibfs?IBFS1_action=RUNFEX&|IBFS_path=/WFC/Repository/Public/sample1.fex" >
</iframe>
</DIV>
</BODY>
</HTML>
-HTMLFORM END