Focal Point
[SOLVED] Side By Side Report

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

October 17, 2013, 07:53 AM
Mikey
[SOLVED] Side By Side Report
How can I get this example to be side by side on one page?

So the left side of page would have ENGLAND cars and right sode would have FRANCE cars.

For the report I am creating there also needs to be a header and footer for report name, run time, etc.

  
-* File side_by_side.fex
-*ENGLAND
TABLE FILE CAR
PRINT 
     CAR.COMP.CAR
     CAR.CARREC.MODEL
     CAR.WARANT.WARRANTY
HEADING
"Title: Vehicles"
"<CAR.ORIGIN.COUNTRY "
FOOTING BOTTOM
" Page:<TABPAGENO>of<TABLASTPAGE "
WHERE CAR.ORIGIN.COUNTRY EQ 'ENGLAND';
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$
TYPE=HEADING,
     LINE=1,
     JUSTIFY=LEFT,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=HEADING,
     LINE=2,
     JUSTIFY=LEFT,
$
ENDSTYLE
END

-*FRANCE
TABLE FILE CAR
PRINT 
     CAR.COMP.CAR
     CAR.CARREC.MODEL
     CAR.WARANT.WARRANTY
HEADING
"Title: Vehicles"
"<CAR.ORIGIN.COUNTRY "
FOOTING BOTTOM
" Page:<TABPAGENO>of<TABLASTPAGE "
WHERE CAR.ORIGIN.COUNTRY EQ 'FRANCE';
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$
TYPE=HEADING,
     LINE=1,
     JUSTIFY=LEFT,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=HEADING,
     LINE=2,
     JUSTIFY=LEFT,
$
ENDSTYLE
 

This message has been edited. Last edited by: <Kathryn Henning>,


8007
Windows 7, PDF, Excel
October 17, 2013, 09:13 AM
Tom Flynn
If you use the search feature, and, type in exactly this:
"side by side" with the double quotes, there are 7 pages of threads...

Example


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
October 23, 2013, 01:10 PM
Mikey
I went through the threads and got reports side by side, but Im still not able to get this to work with a single header and footer. Its just giving me 2 seperate reports side by side. I need 2 seperate report details side by side sharing a header and a footer. Is this possible?

Im not sure why the code I pasted in the original post got cut off, so that isnt a complete example...


8007
Windows 7, PDF, Excel
October 23, 2013, 02:52 PM
Doug
Yes, We Can Do that In WebFOCUS... Paste what you have so far and you'll get an answer...




   In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.
   Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
October 23, 2013, 03:02 PM
Francis Mariani
Mikey, I think you should look into the Document Composer. You can set up a Master page that contains the heading and footing, then add a new page and insert the two reports. here's what's generated by the tool:

-* File car_composer1
-* Default Mode: ResourceLayout
SET HTMLARCHIVE=ON
COMPOUND LAYOUT PCHOLD FORMAT DHTML
UNITS=IN, $
SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5^4', MERGE=OFF, ORIENTATION=LANDSCAPE, PAGESIZE=Letter, SHOW_GLOBALFILTER=OFF, $
PAGELAYOUT=ALL, NAME='Page Master', $
OBJECT=STRING, NAME='text6', TEXT='<right>Page <ibi-page-number/> of <ibi-total-pages/><BR></right>', POSITION=(9.353 7.700), MARKUP=ON, DIMENSION=(1.146 0.313), font='TREBUCHET MS', color=RGB(0 0 0),  size=10, METADATA='', $
OBJECT=STRING, NAME='text7', TEXT='&DATEtrMDYY<BR>', POSITION=(0.500 7.700), MARKUP=ON, DIMENSION=(2.185 0.007), font='TREBUCHET MS', color=RGB(0 0 0),  size=10, METADATA='', $
OBJECT=STRING, NAME='text5', TEXT='<center><FONT size=14 face="TREBUCHET MS "><B>Vehicles<BR></B></FONT></center>', POSITION=(0.521 0.521), MARKUP=ON, DIMENSION=(10.000 0.313), font='TREBUCHET MS', color=RGB(0 0 0),  size=10, METADATA='', $
COMPONENT='DfltCmpt1', POSITION=(0 0), DIMENSION=(0 0), $
PAGELAYOUT=1, NAME='Vehicles', text='Vehicles', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.5, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.5,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report1', TEXT='report1', TOC-LEVEL=2, POSITION=(0.520 1.085), DIMENSION=(4.800 6.353), METADATA='Z-INDEX: 100; POSITION: absolute; WIDTH: 4.8in; HEIGHT: 6.353in; TOP: 1.085in; LEFT: 0.52in', $
COMPONENT='report2', TEXT='Vehicles', TOC-LEVEL=2, POSITION=(5.696 1.085), DIMENSION=(4.800 6.350), METADATA='Z-INDEX: 100; POSITION: absolute; WIDTH: 4.8in; HEIGHT: 6.35in; TOP: 1.085in; LEFT: 5.696in', $
END
SET COMPONENT='DfltCmpt1'
TABLE FILE SYSCOLUM
" "
SUM TBNAME NOPRINT
IF READLIMIT EQ 1
ON TABLE SET PREVIEW ON
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
END
SET COMPONENT='report1'
-*component_type report
TABLE FILE CAR
PRINT 
     CAR.COMP.CAR
     CAR.CARREC.MODEL
     CAR.WARANT.WARRANTY
WHERE CAR.ORIGIN.COUNTRY EQ 'ENGLAND';
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE NOTOTAL
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$
TYPE=REPORT,
     GRAPHCOLOR='GREEN',
$
TYPE=HEADING,
     LINE=1,
     JUSTIFY=LEFT,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=HEADING,
     LINE=2,
     JUSTIFY=LEFT,
$
TYPE=REPORT,
     OBJECT=MENU,
     COLOR='WHITE',
     HOVER-COLOR=RGB(66 70 73),
     BACKCOLOR=RGB(102 102 102),
     HOVER-BACKCOLOR=RGB(218 225 232),
     BORDER-COLOR='WHITE',
$
TYPE=REPORT,
     OBJECT=STATUS-AREA,
     COLOR='WHITE',
     BACKCOLOR=RGB(102 102 102),
$
TYPE=REPORT,
     OBJECT=CURRENT-ROW,
     HOVER-BACKCOLOR=RGB(218 225 232),
     BACKCOLOR=RGB(200 200 200),
$
TYPE=REPORT,
     OBJECT=CALC-AREA,
     COLOR='WHITE',
     BACKCOLOR=RGB(102 102 102),
$
ENDSTYLE
END
SET COMPONENT='report2'
-*component_type report
TABLE FILE CAR
PRINT 
     CAR.COMP.CAR
     CAR.CARREC.MODEL
     CAR.WARANT.WARRANTY
WHERE CAR.ORIGIN.COUNTRY EQ 'FRANCE';
ON TABLE SET PAGE-NUM NOLEAD 
ON TABLE NOTOTAL
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     INCLUDE = endeflt,
$
TYPE=REPORT,
     GRAPHCOLOR='GREEN',
$
TYPE=HEADING,
     LINE=1,
     JUSTIFY=LEFT,
$
TYPE=HEADING,
     LINE=1,
     OBJECT=TEXT,
     ITEM=1,
     BACKCOLOR=RGB(205 205 205),
$
TYPE=HEADING,
     LINE=2,
     JUSTIFY=LEFT,
$
TYPE=REPORT,
     OBJECT=MENU,
     COLOR='WHITE',
     HOVER-COLOR=RGB(66 70 73),
     BACKCOLOR=RGB(102 102 102),
     HOVER-BACKCOLOR=RGB(218 225 232),
     BORDER-COLOR='WHITE',
$
TYPE=REPORT,
     OBJECT=STATUS-AREA,
     COLOR='WHITE',
     BACKCOLOR=RGB(102 102 102),
$
TYPE=REPORT,
     OBJECT=CURRENT-ROW,
     HOVER-BACKCOLOR=RGB(218 225 232),
     BACKCOLOR=RGB(200 200 200),
$
TYPE=REPORT,
     OBJECT=CALC-AREA,
     COLOR='WHITE',
     BACKCOLOR=RGB(102 102 102),
$
ENDSTYLE
END
COMPOUND END



Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
October 23, 2013, 08:10 PM
<Kathryn Henning>
Hi Mikey,

When including code in a post, please place it in between code tags so that it appears correctly. You can use the last button on the tool bar to wrap the code tags around your code.

I have modified your original post above. Smiler

Regards,

Kathryn
October 24, 2013, 10:55 AM
Mikey
Thanks for the tip Kathryn!

Francis, this may work if Im able to use parameters and/or report values in the header and footer i set up in Document Composer. Is that possible?

Doug, is the Document Composer what you were thinking about too?


8007
Windows 7, PDF, Excel
October 24, 2013, 12:00 PM
susannah
or if html is all you want, do it the easy way
SET PAGE = NOLEAD
TABLE FILE IBISAMP/CAR
HEADING
"When liberty is taken away by force it can be restored by force. 
When it is relinquished voluntarily by default it can never be recovered. "
PRINT CAR NOPRINT IF RECORDLIMIT IS 1
ON TABLE HOLD AS MYTAB1 FORMAT HTMTABLE
END
TABLE FILE IBISAMP/CAR
SUM RCOST BY COUNTRY
ON TABLE HOLD AS MYTAB11 FORMAT HTMTABLE
END
TABLE FILE IBISAMP/CAR
SUM DCOST BY MODEL
ON TABLE HOLD AS MYTAB12 FORMAT HTMTABLE
END
TABLE FILE IBISAMP/CAR
HEADING
"&DATEwMtDYY Lorem ipsum dolor sit amet, consectetuer adipiscing elit, 
sed diam nonummy nibh euismod tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim "
PRINT CAR NOPRINT IF RECORDLIMIT IS 1
ON TABLE HOLD AS MYTAB2 FORMAT HTMTABLE
END
-RUN
 
-HTMLFORM BEGIN
<HTML>
<HEAD>
</HEAD>
<BODY>
<TABLE WIDTH=600>
<TR>
<TD COLSPAN=2>
!IBI.FIL.MYTAB1;
</TD></TR>
<TR><TD VALIGN=TOP>
!IBI.FIL.MYTAB11;
<TD VALIGN=TOP>
!IBI.FIL.MYTAB12;
</TD></TR>
<TR><TD COLSPAN=2>
!IBI.FIL.MYTAB2;
</TD></TR></TABLE>
</BODY>
</HTML>
-HTLMFORM END







In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID
October 30, 2013, 11:49 AM
Mikey
Francis,
The Document Composer worked, I was able to use the parameters in header and footer text! Took me a while to figure out the tricks, but I found good examples in the Help files.

Susannah,
HTML may work too, but the document composer had a visual that helped since Im not to familiar with html code...

Thanks!


8007
Windows 7, PDF, Excel
October 30, 2013, 11:55 AM
Francis Mariani
Mikey, I'm happy it worked for you. I surprised myself for suggesting a GUI tool!

Cheers,


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server