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.
Can someone help me to suppress the blank columns(Column D and E in Excel)? Both show up due to ACROSS and ACROSS-TOTAL fields. First ACROSS column doesn't have any blanks but second one(#Sedan) has one(Column E) and the third one (#Coupe) has two(Col D & E). Due to this I can't center data within first ACROSS value. If someone can help me to merge those columns to show up as one cell, that will work too. Thank you! See the code below.
SET BYDISPLAY = ON
SET WEBVIEWER = ON
SET AREXPEXCEL = XLSX
SET ACROSSTITLE = SIDE
SET ACROSSPRT = NORMAL
SET ACROSSLINE = SKIP
SET HIDENULLACRS=ON
SET HOLDMISS = ON
SET NODATA=''
DEFINE FILE CAR
CNTSEDAN/I5=IF BODYTYPE EQ 'SEDAN' THEN 1 ELSE 0;
CNTCOUPE/I5=IF BODYTYPE EQ 'COUPE' THEN 1 ELSE 0;
END
TABLE FILE CAR
SUM
BODYTYPE AS ' '
BY COUNTRY AS 'Country'
BY CAR AS 'Car'
ACROSS MODEL AS ' '
ACROSS CNTSEDAN AS '# Sedan' ACROSS-TOTAL AS ' '
ACROSS CNTCOUPE AS '# Coupe' ACROSS-TOTAL AS ' '
WHERE BODYTYPE EQ 'SEDAN' OR 'COUPE';
ON TABLE SUBHEAD
"Test File"
" "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT XLSX
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,
$
PAGESIZE='Letter',
LEFTMARGIN=0.000556,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.500000,
BOTTOMMARGIN=0.010000,
ORIENTATION=LANDSCAPE,
SUMMARY='Cert Status',
TITLETEXT='Cert Status',
SQUEEZE=ON,
$
TYPE=REPORT,
GRAPHCOLOR='GREEN',
GRAPHCOLORNEG='RED',
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
FREEZE-WIDTH=AUTO,
LINES-PER-PAGE=30,
CALC-LOCATION=BOTTOM,
$
TYPE=ACROSSVALUE, ACROSS=MODEL, WRAP=0.2, JUSTIFY=CENTER ,$
TYPE=ACROSSVALUE, ACROSS=CNTSEDAN, WRAP=0.2, JUSTIFY=CENTER ,$
TYPE=ACROSSVALUE, ACROSS=CNTCOUPE, WRAP=0.2, JUSTIFY=RIGHT ,$
TYPE=DATA,
ACROSSCOLUMN=MODEL,
JUSTIFY=CENTER,
WRAP=0.1,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
COLOR='WHITE',
BACKCOLOR='RED',
STYLE=BOLD,
WHEN=BODYTYPE EQ 'EXPIRED',
JUSTIFY=CENTER,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
COLOR='WHITE',
BACKCOLOR='GREEN',
STYLE=BOLD,
WHEN=BODYTYPE EQ 'Certified',
JUSTIFY=CENTER,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
ITEM=2,
JUSTIFY=LEFT,
WRAP=0.01,
$
TYPE=DATA,
ACROSSCOLUMN=N12,
JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
JUSTIFY=RIGHT,
SIZE=11,
BACKCOLOR=RGB(99 184 255),
$
TYPE=ACROSSVALUE,
JUSTIFY=CENTER,
STYLE=BOLD,
SIZE=10,
BACKCOLOR=RGB(99 184 255),
$
TYPE=TITLE,
STYLE=-UNDERLINE+BOLD,
$
TYPE=TITLE,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N2,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N3,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N6,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.2,
$
TYPE=TITLE,
COLUMN=N11,
BACKCOLOR='NAVY',
JUSTIFY=LEFT,
$
TYPE=TITLE,
COLUMN=N5,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.2,
$
TYPE=TITLE,
COLUMN=N4,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N1,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
COLUMN=MODEL,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.5,
$
TYPE=ACROSSTITLE,
COLUMN=CNTSEDAN,
BACKCOLOR='NAVY',
JUSTIFY=RIGHT,
-* WRAP=0.5,
$
TYPE=ACROSSTITLE,
COLUMN=CNTCOUPE,
BACKCOLOR='NAVY',
JUSTIFY=RIGHT,
-* WRAP=0.5,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
JUSTIFY=LEFT,
$
TYPE=REPORT,
OBJECT=MENU,
COLOR=RGB(0 51 102),
HOVER-COLOR='WHITE',
BACKCOLOR=RGB(51 204 204),
HOVER-BACKCOLOR='PURPLE',
BORDER-COLOR='FUCHSIA',
$
TYPE=REPORT,
OBJECT=STATUS-AREA,
COLOR='WHITE',
BACKCOLOR='GRAY',
$
TYPE=REPORT,
OBJECT=CURRENT-ROW,
HOVER-BACKCOLOR='GRAY',
BACKCOLOR=RGB(255 153 0),
$
TYPE=REPORT,
OBJECT=CALC-AREA,
COLOR=RGB(153 51 0),
BACKCOLOR=RGB(255 204 153),
$
ENDSTYLE
END
Thank you,This message has been edited. Last edited by: FP Mod Chuck,
Be doing an ACROSS-TOTAL your are asking FOCUS to perform a total on the measure (SUM BODYTYPE) which is not possible since it's an alpha. Reason why you have two blank columns : One for the ACROSS-TOTAL at CNTSEDAN and one for CNTCOUPE.
I think that what you are trying to perform is to have to total for CNTSEDAN and CNTCOUPE. You need to be a little more creative if my assumption is the good one. I let you play with the alignment.
SET BYDISPLAY = ON
SET WEBVIEWER = ON
SET AREXPEXCEL = XLSX
SET ACROSSTITLE = SIDE
SET ACROSSPRT = NORMAL
SET ACROSSLINE = SKIP
SET HIDENULLACRS=ON
SET HOLDMISS = ON
SET NODATA=''
DEFINE FILE CAR
CNTSEDAN/I5=IF BODYTYPE EQ 'SEDAN' THEN 1 ELSE 0;
CNTCOUPE/I5=IF BODYTYPE EQ 'COUPE' THEN 1 ELSE 0;
END
TABLE FILE CAR
SUM CNTSEDAN
CNTCOUPE
BY COUNTRY
BY CAR
BY TOTAL COMPUTE MODELID /I2 = 1;
BY MODEL
BY BODYTYPE
WHERE BODYTYPE EQ 'SEDAN' OR 'COUPE';
ON TABLE HOLD AS EXTDATA
END
-RUN
TABLE FILE EXTDATA
SUM CNTSEDAN
CNTCOUPE
BY TOTAL COMPUTE COUNTRY /A10 = '';
BY TOTAL COMPUTE CAR /A16 = '';
BY TOTAL COMPUTE MODELID /I2 = 99;
BY TOTAL COMPUTE MODEL /A24 = 'Total';
BY TOTAL COMPUTE BODYTYPE /A12 = '';
ON TABLE HOLD AS TOTDATA
END
-RUN
TABLE FILE EXTDATA
SUM CNTSEDAN
CNTCOUPE
BY COUNTRY
BY CAR
BY MODELID
BY MODEL
BY BODYTYPE
ON TABLE HOLD AS RPTDATA
MORE
FILE TOTDATA
END
-RUN
TABLE FILE RPTDATA
SUM BODYTYPE AS ' '
BY COUNTRY AS 'Country'
BY CAR AS 'Car'
ACROSS MODELID NOPRINT
ACROSS MODEL AS ' '
ACROSS CNTSEDAN AS '# Sedan'
ACROSS CNTCOUPE AS '# Coupe'
ON TABLE SUBHEAD
"Test File"
" "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT XLSX
ON TABLE SET XLSXPAGESETS ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
INCLUDE=IBFS:/FILE/IBI_HTML_DIR/javaassist/intl/EN/ENIADefault_combine.sty,
$
PAGESIZE='Letter',
LEFTMARGIN=0.000556,
RIGHTMARGIN=0.000000,
TOPMARGIN=0.500000,
BOTTOMMARGIN=0.010000,
ORIENTATION=LANDSCAPE,
SUMMARY='Cert Status',
TITLETEXT='Cert Status',
SQUEEZE=ON,
$
TYPE=REPORT,
GRAPHCOLOR='GREEN',
GRAPHCOLORNEG='RED',
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
FREEZE-WIDTH=AUTO,
LINES-PER-PAGE=30,
CALC-LOCATION=BOTTOM,
$
TYPE=ACROSSVALUE, ACROSS=MODEL, WRAP=0.2, JUSTIFY=CENTER ,$
TYPE=ACROSSVALUE, ACROSS=CNTSEDAN, WRAP=0.2, JUSTIFY=CENTER ,$
TYPE=ACROSSVALUE, ACROSS=CNTCOUPE, WRAP=0.2, JUSTIFY=RIGHT ,$
TYPE=DATA,
ACROSSCOLUMN=MODEL,
JUSTIFY=CENTER,
WRAP=0.1,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
COLOR='WHITE',
BACKCOLOR='RED',
STYLE=BOLD,
WHEN=BODYTYPE EQ 'EXPIRED',
JUSTIFY=CENTER,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
COLOR='WHITE',
BACKCOLOR='GREEN',
STYLE=BOLD,
WHEN=BODYTYPE EQ 'Certified',
JUSTIFY=CENTER,
$
TYPE=DATA,
ACROSSCOLUMN=BODYTYPE,
ITEM=2,
JUSTIFY=LEFT,
WRAP=0.01,
$
TYPE=DATA,
ACROSSCOLUMN=N12,
JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
JUSTIFY=RIGHT,
SIZE=11,
BACKCOLOR=RGB(99 184 255),
$
TYPE=ACROSSVALUE,
JUSTIFY=CENTER,
STYLE=BOLD,
SIZE=10,
BACKCOLOR=RGB(99 184 255),
$
TYPE=TITLE,
STYLE=-UNDERLINE+BOLD,
$
TYPE=TITLE,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N2,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N3,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N6,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.2,
$
TYPE=TITLE,
COLUMN=N11,
BACKCOLOR='NAVY',
JUSTIFY=LEFT,
$
TYPE=TITLE,
COLUMN=N5,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.2,
$
TYPE=TITLE,
COLUMN=N4,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N1,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
$
TYPE=ACROSSTITLE,
COLUMN=MODEL,
BACKCOLOR='NAVY',
JUSTIFY=CENTER,
-* WRAP=0.5,
$
TYPE=ACROSSTITLE,
COLUMN=CNTSEDAN,
BACKCOLOR='NAVY',
JUSTIFY=RIGHT,
-* WRAP=0.5,
$
TYPE=ACROSSTITLE,
COLUMN=CNTCOUPE,
BACKCOLOR='NAVY',
JUSTIFY=RIGHT,
-* WRAP=0.5,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
JUSTIFY=LEFT,
$
TYPE=REPORT,
OBJECT=MENU,
COLOR=RGB(0 51 102),
HOVER-COLOR='WHITE',
BACKCOLOR=RGB(51 204 204),
HOVER-BACKCOLOR='PURPLE',
BORDER-COLOR='FUCHSIA',
$
TYPE=REPORT,
OBJECT=STATUS-AREA,
COLOR='WHITE',
BACKCOLOR='GRAY',
$
TYPE=REPORT,
OBJECT=CURRENT-ROW,
HOVER-BACKCOLOR='GRAY',
BACKCOLOR=RGB(255 153 0),
$
TYPE=REPORT,
OBJECT=CALC-AREA,
COLOR=RGB(153 51 0),
BACKCOLOR=RGB(255 204 153),
$
ENDSTYLE
END
-RUN
WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF In Focus since 2007
Posts: 2409 | Location: Montreal Area, Qc, CA | Registered: September 25, 2013