Focal Point Banner


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.



Read-Only Read-Only Topic
Go
Search
Notify
Tools
Strange Error
 Login/Join
 
Kamesh
Master
posted
Hi,
I'm trying the compound html report with this sample database code but it is not working in Self Service Application (working in WF Console). If I comment the ECHO it's working but I dont think the problem with that. After run this program, check your view source and look for html tag. You can find the html tag starts in between the code.
eg; TYPE=HEADING,'<'html'>'
If anybody have any suggestion, Please let me know.

Note: In my sample code, html tags I'm not included '<' and '>' as it is not allowing me to type that here.

Thanks
Kamesh


-SET ECHO=ALL;

SET HTMLCSS = OFF
-DEFAULT &NOIMG = 'NO';
-DEFAULT &SKPALL = 'YES';

-DEFAULT &I=2;
-DEFAULT &J=0;
-DEFAULT &FORMAT='HTML';

SET LINES=9999
SET PAGE=99999999

-HTMLFORM BEGIN
TITLE USBANK Sample Report /TITLE
-HTMLFORM END


DEFINE FILE CAR
NCAR/A20 = '&' || 'NEW' || CAR;
END
-RUN

TABLE FILE CAR
PRINT
CAR NOPRINT
IF RECORDLIMIT EQ 1
HEADING
"SAMPLE REPORT"
"Printed on 03-25-2005"
ON TABLE PCHOLD FORMAT HTML
-******************************************
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
TYPE=REPORT,IMAGE=/IMAGES/test_LOGO.gif,
POSITION=(+0.000000 +0.000000),ALT='test Logo',JAVASCRIPT= closewin(),$
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN

-HTMLFORM BEGIN
html
head
SCRIPT LANGUAGE="JavaScript"
function closewin()
{
window.close()
}
/SCRIPT
/head
/html
-HTMLFORM END

-LOOPBNK
-IF &J EQ &I THEN GOTO ENDPRG;
DEFINE FILE CAR ADD
SP/A1=HEXBYT(160,'A1');
END

TABLE FILE COURSE
PRINT *
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO1
ON TABLE SET STYLE *
TYPE=REPORT,FONT='ARIAL',SIZE=9,$
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN

TABLE FILE CAR
BY CAR NOPRINT
WHERE CAR EQ 'BMW' OR 'JAGUAR'
WHERE RECORDLIMIT EQ 1
ON TABLE HOLD AS CAREQBMW
END
-RUN

-IF &LINES EQ 0 THEN GOTO ERRNOBMW;

TABLE FILE CAR
PRINT BODYTYPE MODEL OVER
SEATS DEALER_COST OVER
SP AS ''
BY CAR NOPRINT
IF CAR EQ 'BMW' OR 'JAGUAR'
ON TABLE SUBHEAD
"DETAILS ABOUT BMW AND JAGUAR CARS"
ON CAR SUBFOOT
"SUBTOTAL: <ST.DEALER_COST"
ON TABLE SUBFOOT
"---END OF REPORT---"
ON TABLE NOTOTAL
ON TABLE SET PAGE NOLEAD
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO2
ON TABLE SET STYLE *
-INCLUDE stylev01ir
ENDSTYLE
END
-RUN
-GOTO CARNEBMW;

-ERRNOBMW
TABLE FILE CAR
BY CAR NOPRINT
ON TABLE SUBHEAD
"NO BMW CAR AVAILABLE"
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO2
ON TABLE SET STYLE *
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN

-CARNEBMW
TABLE FILE CAR
BY CAR NOPRINT
WHERE CAR NE 'BMW'
WHERE RECORDLIMIT EQ 1
ON TABLE HOLD AS CARNEBMW
END
-RUN

-IF &LINES EQ 0 THEN GOTO ERRBMW;

TABLE FILE CAR
PRINT NCAR
BY CAR
IF CAR NE 'BMW'
ON TABLE SUBHEAD
"DETAILS ABOUT CARS OTHER THAN BMW AND JAGUAR"
ON CAR SUBFOOT
"</1 SUBFOOT ON 2ND REPORT"
ON TABLE SUBFOOT
"---END OF REPORT---"
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO3
ON TABLE SET STYLE *
-INCLUDE stylev01ir
ENDSTYLE
END
-RUN

-GOTO CNTPRG;
-ERRBMW
TABLE FILE CAR
BY CAR NOPRINT
ON TABLE SUBHEAD
"BMW CAR NOT AVAILABLE"
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO3
ON TABLE SET STYLE *
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN
-CNTPRG
-SET &J=&J+1;

-HTMLFORM BEGIN
html
head
style type="text/css"
table { border-collapse: collapse; }
td {border: 0px; padding-left: 4px;}
.rborder { border-right: 1px solid black; }
.tborder { border-top: 1px solid black; }
.bborder { border-bottom: 1px solid black;
border-top: 1px solid black; }
.border { border-bottom: 1px solid black;
border-top: 1px solid black;
page-break-before:always; }
.pagebreak {page-break-before:always; }
/style
/head
body
table
TR TD !IBI.FIL.PYDYCBO1; /TD /TR
TR TD !IBI.FIL.PYDYCBO2; /TD /TR
TR TD !IBI.FIL.PYDYCBO3; /TD /TR
p STYLE="page-break-before:always" /p
/table
/body
/html
-HTMLFORM END


-GOTO LOOPBNK;

-ENDPRG

TABLE FILE CAR
BY CAR
ON TABLE HOLD AS TEMPFILE
END
-RUN

TABLE FILE CAR
BY CAR
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET STYLE *
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN


TABLE FILE CAR
BY COUNTRY
ON TABLE HOLD FORMAT HTMTABLE AS PYDYCBO4
ON TABLE SET STYLE *
-INCLUDE STYLEV01IR
ENDSTYLE
END
-RUN

-HTMLFORM BEGIN
!IBI.FIL.PYDYCBO4;
-HTMLFORM END

-EXIT
 
Posts: 780 | Location: Florida | Registered: January 09, 2005Report This Post
<Pietro De Santis>
posted
Like I mentioned in my private note to you, you cannot have more than one
<html><br /></html>
tag set in an html page - the web browser progam may behave unpredictably.

First, remove all the 
<html><br /></html>
tag sets in between the main one.

Then, adjust other things, like 
<head><br /></head>
- there should only be one in an html page.

As well, this program could be better written - first, use one DM loop to create all the reports in HTMTABLE format and then, use another DM loop to include them in the html page.
 
Report This Post
Kamesh
Master
posted Hide Post
I tried using one html tag only, even that didn't work. And also I tried only one loop and finally included all the htmtable in to html. That also didn't work.
 
Posts: 780 | Location: Florida | Registered: January 09, 2005Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic


Copyright © 1996-2020 Information Builders