SUBROUTINE MAKETABLE_A2
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU AM TO CHAR(254)
EQU VM TO CHAR(253)
EQU TAB TO CHAR(9)
CALL RW_START_HTML_PAGE("RWA_MAKE_TABLE Example 2", "", "", "", "")
HTML = "Hotel Guests"
CALL RWS_HEADING(HTML, 2, "")
PERFORM "SORT-SPREAD GUESTS < '200' " : ...
"ROOM NAME ADDRESS CITY STATE ZIP ID-SUPP" ...
CAPTURING aData
DEL aData<1>
aHeadings = aData<1>
aHeadings = CHANGE(aHeadings, TAB, AM)
DEL aData<1>
aData = CHANGE(aData, TAB, VM)
aClass = ""
aClass<2> = "border"
CALL RWA_MAKE_TABLE(HTML, aHeadings, aData, "", aClass, RWD_IGNORE_EMPTY_ROWS)
CALL RW_PUT(HTML)
CALL RW_END_PAGE
RETURN
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<HTML>
<HEAD>
<META NAME="Generator" CONTENT="Reality">
<TITLE>RWA_MAKE_TABLE Example 2</TITLE>
</HEAD>
<BODY>
<H2>
Hotel Guests
</H2>
<TABLE BORDER="border">
<TR>
<TH>Room</TH>
<TH>Guest Name</TH>
<TH>Address</TH>
<TH>City</TH>
<TH>State</TH>
<TH>Zip</TH>
</TR>
<TR>
<TD>
117
</TD>
<TD>
Loretta Rizzo
</TD>
<TD>
10 Webster St.
</TD>
<TD>
Harrington
</TD>
<TD>
TX
</TD>
<TD>
56634
</TD>
</TR>
<TR>
<TD>
119
</TD>
<TD>
Barry R. Scott
</TD>
<TD>
90 Alpine St.
</TD>
<TD>
Harrison
</TD>
<TD>
CT
</TD>
<TD>
66344
</TD>
</TR>
<TR>
<TD>
122
</TD>
<TD>
Richard T. Anderson
</TD>
<TD>
153 Windsor Dr.
</TD>
<TD>
Concord
</TD>
<TD>
NH
</TD>
<TD>
34598
</TD>
</TR>
<TR>
<TD>
140
</TD>
<TD>
Susan P. Lynch
</TD>
<TD>
55 Hale Rd.
</TD>
<TD>
Waltham
</TD>
<TD>
NM
</TD>
<TD>
22413
</TD>
</TR>
<TR>
<TD>
142
</TD>
<TD>
Jerry D. Madison
</TD>
<TD>
27411 Trabuco Circle
</TD>
<TD>
Mission Viejo
</TD>
<TD>
CA
</TD>
<TD>
92692
</TD>
</TR>
<TR>
<TD>
143
</TD>
<TD>
William Hennessey
</TD>
<TD>
11 Ellison Rd.
</TD>
<TD>
Lexington
</TD>
<TD>
MA
</TD>
<TD>
07745
</TD>
</TR>
<TR>
<TD>
144
</TD>
<TD>
Mr. & Mrs. H. Irving
</TD>
<TD>
20 Thorpe Rd.
</TD>
<TD>
Lexington
</TD>
<TD>
FL
</TD>
<TD>
28876
</TD>
</TR>
<TR>
<TD>
147
</TD>
<TD>
Loretta T. Janson
</TD>
<TD>
23 Glenborn Av.
</TD>
<TD>
Los Angeles
</TD>
<TD>
CA
</TD>
<TD>
07734
</TD>
</TR>
<TR>
<TD>
194
</TD>
<TD>
Mr. & Mrs. J. Hynes
</TD>
<TD>
90 Harlow Ct.
</TD>
<TD>
Stanton
</TD>
<TD>
LA
</TD>
<TD>
55278
</TD>
</TR>
</TABLE>
</BODY>
</HTML>
NEC welcomes your feedback on our documentation.
If you have any comments about the current Reality Help, or want something to be added in a future revision, please contact your NEC Helpdesk.
If your comment relates to this particular Help topic, remember to include the following information:
|
Product:
|
RealityVersion 15.6
|
|
Help revision:
|
Revision 0
|
|
Help topic:
|
RWA_MAKE_TABLE Example 2 (RealWeb)
|
|
File name:
|
MAKETABLE_A2.htm
|