SUBROUTINE TABLE_S4
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU LF TO CHAR(10)
EQU TAB TO CHAR(9)
EQU AM TO CHAR(254)
EQU VM TO CHAR(253)
STYLESHEET = ""
CALL RW_GET_PARAM("__isurl", STYLESHEET)
STYLESHEET = STYLESHEET : "/REALWEB-ITEMS/blue.css"
CALL RW_START_HTML_PAGE("RWS_Table with Reality Data Example 3", "", STYLESHEET, "", "")
HTML = ""
TEXT = "Hotel Guests"
CALL RWS_TABLE_CAPTION(TEXT, "")
HTML = HTML : TEXT
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)
FOR I = 1 TO DCOUNT(aHeadings , AM)
S = aHeadings<I>
aHeadings<I> = S
NEXT I
CALL RWS_TABLE_ROW(aHeadings, "")
HTML = HTML : aHeadings
FOR I = 1 TO DCOUNT(aData, AM)
FOR J = 1 TO DCOUNT(aData<I>, VM)
aClass = ""
aClass<2> = "RIGHT"
S = aData<I,J>
CALL RWS_TABLE_DATA(S, aClass)
aData<I,J> = S
NEXT J
S = aData<I>
CALL RWS_TABLE_ROW(S, "")
aData<I> = S
NEXT I
HTML = HTML : aData
aClass = ""
aClass<2> = "5"
aClass<3> = "2"
aClass<4> = "cellspacing=0 cellpadding=5 bgcolor=lightsteelblue"
CALL RWS_TABLE(HTML, aClass)
HTML = CONVERT(HTML, AM:VM, LF:TAB)
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>RWS_Table with Reality Data Example 3</TITLE>
<STYLE type="text/css">
<!-- @import url(/servlet/realityis/test/REALWEB-ITEMS/blue.css); -->
</STYLE>
</HEAD>
<BODY>
<TABLE BORDER="5" RULES="2" cellspacing=0 cellpadding=5 bgcolor=lightsteelblue>
<CAPTION>Hotel Guests</CAPTION>
<TR>
<TH>Room</TH>
<TH>Guest Name</TH>
<TH>Address</TH>
<TH>City</TH>
<TH>State</TH>
<TH>Zip</TH>
</TR>
<TR>
<TD ALIGN="RIGHT">
117
</TD>
<TD ALIGN="RIGHT">
Loretta Rizzo
</TD>
<TD ALIGN="RIGHT">
10 Webster St.
</TD>
<TD ALIGN="RIGHT">
Harrington
</TD>
<TD ALIGN="RIGHT">
TX
</TD>
<TD ALIGN="RIGHT">
56634
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
119
</TD>
<TD ALIGN="RIGHT">
Barry R. Scott
</TD>
<TD ALIGN="RIGHT">
90 Alpine St.
</TD>
<TD ALIGN="RIGHT">
Harrison
</TD>
<TD ALIGN="RIGHT">
CT
</TD>
<TD ALIGN="RIGHT">
66344
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
122
</TD>
<TD ALIGN="RIGHT">
Richard T. Anderson
</TD>
<TD ALIGN="RIGHT">
153 Windsor Dr.
</TD>
<TD ALIGN="RIGHT">
Concord
</TD>
<TD ALIGN="RIGHT">
NH
</TD>
<TD ALIGN="RIGHT">
34598
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
140
</TD>
<TD ALIGN="RIGHT">
Susan P. Lynch
</TD>
<TD ALIGN="RIGHT">
55 Hale Rd.
</TD>
<TD ALIGN="RIGHT">
Waltham
</TD>
<TD ALIGN="RIGHT">
NM
</TD>
<TD ALIGN="RIGHT">
22413
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
142
</TD>
<TD ALIGN="RIGHT">
Jerry D. Madison
</TD>
<TD ALIGN="RIGHT">
27411 Trabuco Circle
</TD>
<TD ALIGN="RIGHT">
Mission Viejo
</TD>
<TD ALIGN="RIGHT">
CA
</TD>
<TD ALIGN="RIGHT">
92692
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
143
</TD>
<TD ALIGN="RIGHT">
William Hennessey
</TD>
<TD ALIGN="RIGHT">
11 Ellison Rd.
</TD>
<TD ALIGN="RIGHT">
Lexington
</TD>
<TD ALIGN="RIGHT">
MA
</TD>
<TD ALIGN="RIGHT">
07745
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
144
</TD>
<TD ALIGN="RIGHT">
Mr. & Mrs. H. Irving
</TD>
<TD ALIGN="RIGHT">
20 Thorpe Rd.
</TD>
<TD ALIGN="RIGHT">
Lexington
</TD>
<TD ALIGN="RIGHT">
FL
</TD>
<TD ALIGN="RIGHT">
28876
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
147
</TD>
<TD ALIGN="RIGHT">
Loretta T. Janson
</TD>
<TD ALIGN="RIGHT">
23 Glenborn Av.
</TD>
<TD ALIGN="RIGHT">
Los Angeles
</TD>
<TD ALIGN="RIGHT">
CA
</TD>
<TD ALIGN="RIGHT">
07734
</TD>
</TR>
<TR>
<TD ALIGN="RIGHT">
194
</TD>
<TD ALIGN="RIGHT">
Mr. & Mrs. J. Hynes
</TD>
<TD ALIGN="RIGHT">
90 Harlow Ct.
</TD>
<TD ALIGN="RIGHT">
Stanton
</TD>
<TD ALIGN="RIGHT">
LA
</TD>
<TD ALIGN="RIGHT">
55278
</TD>
</TR>
<TR>
</TR>
</TABLE>
</BODY>
</HTML>