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.
Hi, I have requirement to export the reports in excel using report caster In the 1st sheet need to show the Chart and tabular report and the same in another sheet or ist sheet contains two graphs and the next contains two tabular reports in the same workbook.
Below is my sample code (WF 7703)
1st component contains two graph images and the 2nd component contains two tabular report; in the 2nd component it took the first report data only, it won't get the 2nd report data.
Please guide!
APP HOLD <domain name>
FILEDEF GRAPH1 DISK <domain name>/graph1.gif
FILEDEF GRAPH2 DISK <domain name>/graph2.gif
GRAPH FILE CAR
SUM SUM.CAR.BODY.RETAIL_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH HOLD AS GRAPH1 FORMAT GIF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HAXIS 450
ON GRAPH SET VAXIS 400
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH VLINE
END
-RUN
GRAPH FILE CAR
SUM SUM.CAR.BODY.DEALER_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
-*ON TABLE PCHOLD FORMAT PNG
ON GRAPH HOLD AS GRAPH2 FORMAT GIF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HAXIS 450
ON GRAPH SET VAXIS 400
END
-RUN
COMPOUND LAYOUT PCHOLD FORMAT EXL2K
SECTION=section1,LAYOUT=ON,ORIENTATION=PORTRAIT,PAGESIZE=Letter, $
PAGELAYOUT=1, $
COMPONENT = 'REPORT1',$
COMPONENT = 'REPORT2',$
END
SET COMPONENT='REPORT1'
DEFINE FILE SYSCOLUM
GRAPH1/A100 = '<img src=<path>/approot/<domain name>/graph1.gif>';
GRAPH2/A100 = '<img src=<path>/approot/<domain name>/graph2.gif>';
END
TABLE FILE SYSCOLUM
" "
HEADING
"<GRAPH1"
"</25"
"<GRAPH2"
SUM TBNAME NOPRINT
ON TABLE SET PAGE-NUM NOLEAD
IF READLIMIT EQ 1
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
TYPE=REPORT,PAGE-LOCATION=OFF,$
TYPE=REPORT,FONT='ARIAL',TITLETEXT='Graph Report1',$
TYPE=HEADING,LINE=1,$
ENDSTYLE
END
SET COMPONENT='REPORT2'
TABLE FILE CAR
"1ST REPORT"
PRINT CAR RETAIL_COST
ON TABLE PCHOLD FORMAT EXL2K OPEN
END
TABLE FILE CAR
PRINT CAR CAR CAR
HEADING
"2ND REPORT"
ON TABLE PCHOLD FORMAT EXL2K CLOSE
END
COMPOUND END
This message has been edited. Last edited by: <Kathryn Henning>,
I added code tags to your code so that it would display correctly. For future reference, you can use the code tags button which is the last one on the tool bar.
well, take out that line of double quotes. You've got your HEADING command one too far down. and lets not confuse with word domain with the word app. now... interesting...i could EITHER get the grafs to come out in excel on the first sheet, OR i could get 3 sheets with no grafs. Seems the COMPOUND kills the grafs. i even tried NOBREAK with all 3 on the same tab, no cigar on the graphs. i'm in 7.6 as well here, i simplified your pathing and your compounding, btw. maybe someone else can take a crack.
APP PATH IBISAMP
-SET &ECHO = ALL ;
FILEDEF GRAPH1 DISK c:\ibi\apps\xsusantest\GRAPH1.gif
FILEDEF GRAPH2 DISK c:\ibi\apps\xsusantest\GRAPH2.gif
GRAPH FILE CAR
SUM SUM.CAR.BODY.RETAIL_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
ON GRAPH HOLD AS GRAPH1 FORMAT GIF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HAXIS 450
ON GRAPH SET VAXIS 400
ON GRAPH SET UNITS PIXELS
ON GRAPH SET LOOKGRAPH VLINE
END
-RUN
GRAPH FILE CAR
SUM SUM.CAR.BODY.DEALER_COST
ACROSS CAR.ORIGIN.COUNTRY
ON GRAPH SET LOOKGRAPH PIEMULTI
ON GRAPH SET GRAPHEDIT SERVER
ON GRAPH SET BARNUMB OFF
ON GRAPH SET 3D OFF
ON GRAPH SET VZERO ON
ON GRAPH SET GRID ON
-*ON TABLE PCHOLD FORMAT PNG
ON GRAPH HOLD AS GRAPH2 FORMAT GIF
ON GRAPH SET HTMLENCODE ON
ON GRAPH SET GRAPHDEFAULT OFF
ON GRAPH SET VZERO OFF
ON GRAPH SET HAXIS 450
ON GRAPH SET VAXIS 400
END
-RUN
DEFINE FILE CAR
GRAPH1/A100 WITH CAR =
'<IMG TITLE="GRAF1" SRC="/approot/xsusantest/GRAPH1.gif" style="border: 1px solid #FFFFFF;"> ' ;
GRAPH2/A100 WITH CAR =
'<IMG TITLE="GRAF2" SRC="/approot/xsusantest/GRAPH2.gif" style="border: 1px solid #FFFFFF;">' ;
END
-RUN
TABLE FILE CAR
HEADING
"<GRAPH1 "
"</25"
"<GRAPH2 "
SUM CAR
ON TABLE SET PAGE-NUM NOLEAD
IF RECORDLIMIT EQ 1
-*ON TABLE SET COMPOUND OPEN NOBREAK
ON TABLE PCHOLD FORMAT EXL2K
ON TABLE SET STYLE *
TYPE=REPORT,PAGE-LOCATION=OFF,$
TYPE=REPORT,FONT='ARIAL',TITLETEXT='Graph Report1',$
TYPE=HEADING,LINE=1,$
ENDSTYLE
END
-RUN
-EXIT
TABLE FILE CAR
"1ST REPORT"
PRINT CAR RETAIL_COST
ON TABLE SET COMPOUND OPEN
ON TABLE PCHOLD FORMAT EXL2K
END
-RUN
TABLE FILE CAR
PRINT CAR CAR CAR
HEADING
"2ND REPORT"
ON TABLE SET COMPOUND CLOSE
ON TABLE PCHOLD FORMAT EXL2K
END
CMD ERASE c:\ibi\apps\xsusantest\GRAPH*.gif
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID
Posts: 3811 | Location: Manhattan | Registered: October 28, 2003