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.
And this column should repeat 6 times on each "portrait" page. There should be a "Subhead" on County name whenever the County code changes across the data (pre-sorted that way).
This report will have to be a compound-PDF report, as there will have to be some standard Cover-pages and closing-pages on either side of the above report.
We do have Dev-Studio 764.
If there is not a straight forward option in WF that lets us "wrap" columns, please advise if we can bring in some external stylesheets or Word-templates to be able to fix up the report.
Thank you all so much for your input. Sandeep Mamidenna
------------------------------------------------------------------------------------------------- Blue Cross & Blue Shield of MS WF.76-10 on (WS2003 + WebSphere) / EDA on z/OS + DB2 + MS-SQL MRE, BID, Dev. Studio, Self-Service apps & a dash of fun !!
Posts: 218 | Location: Jackson, MS | Registered: October 31, 2006
Without any further knowledge of your database and/or master file, I have pieced together some code that you may find useful. The code is:
DEFINE FILE PHB
COL/I4 = IF COL EQ 4 THEN 1 ELSE COL+1;
ROW/I4 = IF COL EQ 1 THEN ROW+1 ELSE ROW;
EMP/A4 = ' ';
END
TABLE FILE PHB
SUM FNAME AS ''
LNAME AS ''
OVER CITY AS ''
PHONE AS ''
OVER EMP AS ''
BY ROW NOPRINT
ACROSS COL NOPRINT
END
Hope this helps to get the job done ...
GamP
- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007
Yes Leah, we are really looking at building a phone directory listing rpt of a specific kind of business partners that we deal with. Data is available from a database and will be changing constantly.
The intention is to have this phone directory report on our website, so our customers always see the latest and greatest list.
GamP - Thank you for your suggestion too. Will try it out and keep you posted.
Sandeep Mamidenna
------------------------------------------------------------------------------------------------- Blue Cross & Blue Shield of MS WF.76-10 on (WS2003 + WebSphere) / EDA on z/OS + DB2 + MS-SQL MRE, BID, Dev. Studio, Self-Service apps & a dash of fun !!
Posts: 218 | Location: Jackson, MS | Registered: October 31, 2006
Below is some really old code where you create a true phone book by calculating page and number of records per column. Please forgive poor coding style, very old, mainframe. Just an example. This was a two column one, you can play with the columns. Data was presorted in order the information was wanted first before calculating the page, column and row.
DEFINE FILE HOLD1XA
ALABEL/I2 WITH DETLINE = IF ALABEL EQ 16 THEN 1 ELSE LAST ALABEL + 1;
END
DEFINE FILE HOLD1XA ADD
ACOLUMN/I1 WITH DETLINE = IF (LAST ALABEL EQ 16 AND LAST ACOLUMN EQ 2)
THEN 1 ELSE IF LAST ALABEL EQ 16 THEN LAST ACOLUMN + 1 ELSE IF LAST
ALABEL EQ 0 THEN 1 ELSE LAST ACOLUMN;
END
DEFINE FILE HOLD1XA ADD
PAGE/I5 WITH DETLINE = IF LAST ALABEL EQ 16 AND LAST ACOLUMN EQ 2 THEN
LAST PAGE + 1 ELSE LAST PAGE;
H1/A40 WITH DETLINE = ' SCHOOL COUNT';
END
TABLE FILE HOLD1XA
HEADING
"<25 UNIVERSITY OF NEBRASKA AT OMAHA <70 &DATE"
"<22 NEW TRADITIONAL FRESHMAN APPLICATIONS"
"<16 (INCLUDING EARLY ENTRY AND INTERNATIONAL STUDENTS)"
"<28 FOR THE <YEAR FALL SEMESTER </1"
"<2 <H1 <46 <H1"
SUM DETLINE AS '' IN +0 OVER
DETLIN2 AS '' IN +3 OVER
DETLIN3 AS '' IN +0
BY PAGE PAGE-BREAK NOPRINT
BY ALABEL NOPRINT ACROSS ACOLUMN NOPRINT
ON TABLE SET NODATA ' '
FOOTING BOTTOM
"PAGE <TABPAGENO <70 (AMHSRPT)"
" "
END
Leah
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004