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 am trying to create a dynamic report with bookmarks using report master layout. Unfortuantely with pdf layoutpainter I need to specify how many components I have... but I don't know how many I will have.
For example below is and example of what I need. The Car file brings back a number or cars that I a report for. But in my real case I don't know that there will be 1 or 10 rows in that file.
TABLE FILE CAR
PRINT CAR
ON TABLE HOLD AS H1 FORMAT ALPHA
END
-RUN
-SET &CRLINES = &LINES;
-SET &CNT = 0;
-REPEAT CRLP &CRLINES TIMES
-READ H1 NOCLOSE &CAR.A16.
-SET &CAR = &CAR;
-SET &CNT=&CNT+1;
-SET &FMT = IF &CNT EQ 1 THEN 'OPEN NOBREAK' ELSE IF &CNT EQ &CRLINES THEN 'CLOSE' ELSE 'NOBREAK';
TABLE FILE CAR
PRINT
COUNTRY
MODEL
DEALER_COST
WHERE CAR EQ '&CAR.EVAL'
ON TABLE PCHOLD FORMAT PDF &FMT
END
-CRLP
How do I make the above concatenate and spit out as one report ... the below gives me a decent output but only the first report.
SET HTMLARCHIVE=ON
COMPOUND LAYOUT PCHOLD FORMAT PDF
UNITS=IN, $
OBJECT=TOC,
NAME='Table of Contents',
TEXT='Table of Contents',
MARKUP=ON,
TOC-NUMBERING=ON,
color=RGB(0 0 0),
size=10,
ORIENTATION=LANDSCAPE,
POSITION=(0.728 0.832),
DIMENSION=(9.625 7.021),
font='ARIAL',
$
OBJECT=bookmarks ,$
SECTION=section1,
LAYOUT=ON,
MERGE=OFF,
PAGESIZE=Letter,
ORIENTATION=LANDSCAPE, $
PAGELAYOUT=ALL, NAME='Page Master', $
OBJECT=STRING, NAME='text3', TEXT='<font face="ARIAL" size=10> <ibi-page-number/></font>', POSITION=(5.208 8.063), MARKUP=ON, WRAP=ON, DIMENSION=(0.625 0.208), METADATA=' OUTERHTML: <SPAN style="Z-INDEX: 100; POSITION: absolute; WIDTH: 0.625in; FONT-FAMILY: Arial; HEIGHT: 0.208in; FONT-SIZE: 10pt; TOP: 8.063in; LEFT: 5.208in" id=text3 tabIndex=9> <DIV><SPAN style="BACKGROUND-COLOR: rgb[212,208,200); WIDTH: 57px; HEIGHT: 16px" id="<ibi-page-number/>" contentEditable=false>^lt;Page #^gt;</SPAN></DIV></SPAN>', $
OBJECT=STRING, NAME='text2', TEXT=' ', POSITION=(8.958 0.354), MARKUP=ON, WRAP=ON, DIMENSION=(1.771 0.208), METADATA=' OUTERHTML: <SPAN style="Z-INDEX: 100; POSITION: absolute; WIDTH: 1.771in; FONT-FAMILY: Arial; HEIGHT: 0.208in; FONT-SIZE: 10pt; TOP: 0.354in; LEFT: 8.958in" id=text2 tabIndex=10><DIV>Fidelity HR Services</DIV></SPAN>', $
COMPONENT='DfltCmpt1', POSITION=(0 0), DIMENSION=(0 0), $
PAGELAYOUT=1,
NAME='Page layout 1',
text='Page layout 1',
TOC-LEVEL=1,
BOTTOMMARGIN=0.5,
TOPMARGIN=0.5,
$
COMPONENT='report1',
TEXT='report1',
TOC-LEVEL=2,
POSITION=(0.729 0.874),
DIMENSION=(* *),
$
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'
TABLE FILE CAR
PRINT CAR
ON TABLE HOLD AS H1 FORMAT ALPHA
END
-RUN
-SET &CRLINES = &LINES;
-SET &CNT = 0;
-REPEAT CRLP &CRLINES TIMES
-READ H1 NOCLOSE &CAR.A16.
-SET &CAR = &CAR;
-SET &CNT=&CNT+1;
TABLE FILE CAR
PRINT
COUNTRY
MODEL
DEALER_COST
WHERE CAR EQ '&CAR.EVAL'
ON TABLE PCHOLD FORMAT PDF NOBREAK
END
-CRLP
COMPOUND END
I cannot give it more components because i don't know how many there will be and in the real report the formats for displaying are different. Some outputs are text, others are tables.
Any help is much appreciated!This message has been edited. Last edited by: Kerry,
Dev, SIT, UAT, Production:7.6.6 Dev Sandbox:7.6.11
So I was able to dynamically build the config piece... which is what I need. So now I will try it on a larger scale, but this is a solution if anyone else was needing something similar.
TABLE FILE CAR PRINT CAR ON TABLE HOLD AS H1 FORMAT ALPHA END -RUN -SET &CRLINES = &LINES;
SET HTMLARCHIVE=ON COMPOUND LAYOUT PCHOLD FORMAT PDF UNITS=IN, $
OBJECT=TOC, NAME='Table of Contents', TEXT='Table of Contents', MARKUP=ON, TOC-NUMBERING=ON, color=RGB(0 0 0), size=10, ORIENTATION=LANDSCAPE, POSITION=(0.728 0.832), DIMENSION=(9.625 7.021), font='ARIAL', METADATA=' TOCTITLE: Table of Contents OUTERHTML: Table of Contents', $
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 &CNT = 0;
-REPEAT CRLP &CRLINES TIMES -READ H1 NOCLOSE &CAR.A16.