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.
First off I am new to WebFocus so hopefully this is an easy fix. I have just updated to Developer Studio 7701. I have the following code:
JOIN APLPROPOSAL.APLPROPOSAL.APLPROPOSALID IN aplproposal TO MULTIPLE G108ASSUMPTIONS.G108ASSUMPTIONS.APLPROPOSALID IN g108assumptions AS J0 END JOIN G108ASSUMPTIONS.G108ASSUMPTIONS.G108ASSUMPTIONSID IN aplproposal TO MULTIPLE G108OPTIONS.G108OPTIONS.G108ASSUMPTIONSID IN g108options AS J3 END TABLE FILE APLPROPOSAL SUM 'G108OPTIONS.G108OPTIONS.UNDER40RATE/F5.2M' AS '' OVER 'G108OPTIONS.G108OPTIONS.FORTIESRATE/F5.2M' AS '' ACROSS 'G108OPTIONS.G108OPTIONS.G108OPTIONSID' NOPRINT WHERE APLPROPOSAL.APLPROPOSAL.APLPROPOSALID EQ &APLPROPOSALID; ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT PDF ON TABLE SET STYLE * UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.000000, RIGHTMARGIN=0.000000, TOPMARGIN=0.000000, BOTTOMMARGIN=0.000000, SQUEEZE=0.652778, ORIENTATION=PORTRAIT, $ TYPE=REPORT, BORDER-TOP=OFF, BORDER-BOTTOM=OFF, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, FONT='ARIAL', SIZE=8, RIGHTGAP=0.000000, LEFTGAP=0.000000, TOPGAP=0.000000, BOTTOMGAP=0.000000, JUSTIFY=CENTER, LINES-PER-PAGE=20, $ TYPE=TITLE, STYLE=BOLD, $ TYPE=TABHEADING, SIZE=12, STYLE=BOLD, $ TYPE=TABFOOTING, SIZE=12, STYLE=BOLD, $ TYPE=HEADING, SIZE=12, BACKCOLOR=RGB(153 153 153), STYLE=BOLD, $ TYPE=FOOTING, SIZE=12, STYLE=BOLD, $ TYPE=SUBHEAD, SIZE=10, STYLE=BOLD, $ TYPE=SUBFOOT, SIZE=10, STYLE=BOLD, $ TYPE=SUBTOTAL, BACKCOLOR=RGB(210 210 210), $ TYPE=ACROSSVALUE, SIZE=9, $ TYPE=ACROSSVALUE, ACROSS=1, BORDER-TOP=LIGHT, STYLE=NORMAL, $ TYPE=ACROSSTITLE, STYLE=BOLD, $ TYPE=GRANDTOTAL, BACKCOLOR=RGB(210 210 210), STYLE=BOLD, $ ENDSTYLE END
If I remove the second field (FORTIESRATE) then all the columns are the same size. As soon as I add the second field then the first column is always wider than the rest. It has something to do with using OVER I believe. Any help would be appreciated.This message has been edited. Last edited by: Kerry,
DevStudio Version 7701 WebFocus 7.7 Windows Server 2003 PDF Format
Thanks for your reply. I have just finished a test with the sample files in Developer Studio and it does the same thing.
Here is that code: TABLE FILE PLANTS SUM 'PLANTS.PLANTS.PLANTNAME' AS '' OVER 'PLANTS.PLANTS.PLANTCITY' AS '' OVER 'PLANTS.PLANTS.PLANTREGION' AS '' ACROSS 'PLANTS.PLANTS.PLANTCODE' NOPRINT ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT PDF ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * INCLUDE = endeflt, $ LEFTMARGIN=0.000000, RIGHTMARGIN=0.000000, TOPMARGIN=0.000000, BOTTOMMARGIN=0.000000, SQUEEZE=1.000000, $ TYPE=REPORT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, RIGHTGAP=0.000000, LEFTGAP=0.000000, JUSTIFY=CENTER, $ ENDSTYLE END
If you remove CITY and REGION and OVER then the columns are all the same size. If you put them back the first column is always larger. I can also make this happen by just having OVER after the first data item without a second data item listed. I hope that makes sense. Please let me know if you have any suggestions.
I have gotten around the problem by creating 4 separate reports that get called from my main document composer fex. It is not exactly how I wanted it to look though.
DevStudio Version 7701 WebFocus 7.7 Windows Server 2003 PDF Format
Just to clarify, are you using DS 77 with a 7.66 backend? That is not recommended. Or are you 77 all the way through. Your signature indicates only 7.66. Can you please clarify the situation? Thanks.
Yes I am using DS 77 with a 7.66 backend. We have downloaded 77 for the server but do not have it installed yet. But, I was having this problem with DS 76, that is where it started. I only upgraded to see if it would fix some of the issues I was having with DS 76.
DevStudio Version 7701 WebFocus 7.7 Windows Server 2003 PDF Format
Have you tried adjusting your field sizes in a define instead of within your request? I think it has something to do with the over and it's really using the original size of the field.
Posts: 1903 | Location: San Antonio | Registered: February 28, 2005
This is certainly weird. the first column seems to have spaces after the truncation (!).
I am glad you have a workaround, as this plainly doing the wrong thing.
The issue does seem to be related to the OVER.
Below is a reworked version of your report.
It uses the Macgyver technique.
The idea is to take the OVER out of the equation.
APP PATH IBIDEMO
EX -LINES 7 EDAPUT MASTER,fseq,CV,FILE
FILE=FSEQ, SUFFIX=FIX
SEGNAME=SEG1
FIELD=CONTROL, BLANK , A1, A1, $
SEGNAME=SEG2, PARENT=SEG1, OCCURS=VARIABLE
FIELD=WHATEVER, , A1, A1, $
FIELD=COUNTER, ORDER, I4, I4,$
FILEDEF FSEQ DISK fseq.mas
-RUN
TABLE FILE FSEQ
SUM CONTROL AS BLANK
BY COUNTER
WHERE COUNTER LE 3
ON TABLE HOLD AS FOC_SEQ FORMAT FOCUS INDEX BLANK
END
-RUN
JOIN CLEAR *
JOIN BLANK WITH PLANTCODE IN PLANTS TO ALL BLANK IN FOC_SEQ AS JSEQ
DEFINE FILE PLANTS
BLANK/A1 WITH PLANTCODE = ' ' ;
PLANT_DATA/A25 = IF COUNTER EQ 1 THEN PLANTNAME ELSE
IF COUNTER EQ 2 THEN PLANTCITY ELSE
IF COUNTER EQ 3 THEN PLANTREGION ELSE ' ' ;
END
TABLE FILE PLANTS
SUM PLANT_DATA AS ' '
ACROSS 'PLANTS.PLANTS.PLANTCODE' NOPRINT
BY COUNTER NOPRINT
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
-*INCLUDE = endeflt,$
LEFTMARGIN=0.000000,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.000000,
BOTTOMMARGIN=0.000000,
SQUEEZE=1.000000,
$
TYPE=REPORT,
BORDER-LEFT=LIGHT,
BORDER-RIGHT=LIGHT,
RIGHTGAP=0.000000,
LEFTGAP=0.000000,
JUSTIFY=CENTER,
$
ENDSTYLE
END
Thanks for the reworked version. I will attempt to implement my report like that and see what happens. I will let you know. Thanks for all the help and responses.
DevStudio Version 7701 WebFocus 7.7 Windows Server 2003 PDF Format
As you know I am a great fan of McGuyver. Just a short note: it is not necessary to create a FOCUS file. Just use the FSEQ and add a WHERE COUNTER in the TABLE FILE.
-* File WAZ2.fex
-SET &ECHO=ALL;
APP PATH IBIDEMO
EX -LINES 7 EDAPUT MASTER,fseq,CV,FILE
FILE=FSEQ, SUFFIX=FIX
SEGNAME=SEG1
FIELD=CONTROL, BLANK , A1, A1, $
SEGNAME=SEG2, PARENT=SEG1, OCCURS=VARIABLE
FIELD=WHATEVER, , A1, A1, $
FIELD=COUNTER, ORDER, I4, I4,$
-*
FILEDEF FSEQ DISK fseq.mas
-*
JOIN CLEAR *
JOIN BLANK WITH PLANTCODE IN PLANTS TO BLANK IN FSEQ AS J_
-*
DEFINE FILE PLANTS
BLANK/A1 WITH PLANTCODE = ' ' ;
PLANT_DATA/A25 = IF COUNTER EQ 1 THEN PLANTNAME ELSE
IF COUNTER EQ 2 THEN PLANTCITY ELSE
IF COUNTER EQ 3 THEN PLANTREGION ELSE ' ' ;
END
-*
TABLE FILE PLANTS
WHERE COUNTER LE 3
SUM PLANT_DATA AS ' '
ACROSS 'PLANTS.PLANTS.PLANTCODE' NOPRINT
BY COUNTER NOPRINT
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
-*INCLUDE = endeflt,$
LEFTMARGIN=0.000000,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.000000,
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
JUSTIFY=CENTER,
SIZE=9,
$
ENDSTYLE
END
Daniel In Focus since 1982 wf 8.202M/Win10/IIS/SSA - WrapApp Front End for WF
Posts: 1980 | Location: Tel Aviv, Israel | Registered: March 23, 2006