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.
Ram, You need to insert that many rows into the hold file. Either use -WRITE in case of ALPHA hold file or Use MATCH command or SQL Translator to insert into FOCUS File.
DEFINE FILE CAR
DUMMY_1/A1='2';
END
TABLE FILE CAR
PRINT
CAR
COUNTRY
BY DUMMY_1
ON TABLE HOLD AS HLD_1 FORMAT ALPHA
END
DEFINE FILE CAR
DUMMY_1/A1='1';
END
TABLE FILE CAR
SUM
COMPUTE SALES1/D20=SALES;
BY DUMMY_1
BY COUNTRY
WHERE COUNTRY EQ 'ENGLAND' OR 'ITALY'
ON TABLE HOLD AS HLD_2 FORMAT ALPHA
END
MATCH FILE HLD_1
PRINT
CAR
COUNTRY
BY DUMMY_1
RUN
FILE HLD_2
PRINT
SALES1
BY DUMMY_1
AFTER MATCH HOLD OLD-OR-NEW
END
-RUN
TABLE FILE HOLD
PRINT
CAR AS 'Car'
COUNTRY AS 'Country'
BY DUMMY_1 NOPRINT
END
The issue with this solution is that it will only work on the first page.
Perhaps this may help. It expands on GamP's suggestion.
DEFINE FILE TRADES
CNTR/I9 = LAST CNTR + 1 ;
END
TABLE FILE TRADES
PRINT *
TABPAGENO
BY CNTR NOPRINT
ON CNTR SUBHEAD
" "
" "
WHEN TABPAGENO NE LAST TABPAGENO
WHERE RECORDLIMIT EQ 100
END
I think this gives you what you're looking for and it's extremely simple coding. You will need stylesheet logic to place your heading properly.
DEFINE FILE CAR
BLANK/A1 = '';
END
TABLE FILE CAR
HEADING
"COUNTRY <+0> CAR <+0> SALES"
PRINT BLANK AS ''
OVER
BLANK AS ''
OVER
COUNTRY AS ''
CAR AS ''
SALES AS ''
BY COUNTRY NOPRINT
END
-EXIT
WF 7.7.05 HP-UX - Reporting Server, Windows 2008 - Client, MSSQL 2008, FOCUS Databases, Flat Files HTML, Excel, PDF