SUBROUTINE MAKETABLE3
* Create a simple table and populate it with data from
* a Reality file. Draw borders round the cells.
* Format the columns using CSS classes.
* Include the RealWeb definitions.
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU AM TO CHAR(254)
EQU VM TO CHAR(253)
EQU TAB TO CHAR(9)
* Get the URL of the Reality item server.
STYLESHEET = ""
CALL RW_GET_PARAM("__isurl", STYLESHEET)
* Specify the location of the stylesheet.
STYLESHEET = STYLESHEET : "/REALWEB-ITEMS/table.css"
* Start the HTML page.
CALL RW_START_HTML_PAGE("RW_MAKE_TABLE Example 3", "", STYLESHEET, "", "")
TEXT = "Hotel Guests"
CALL RWS_HEADING(TEXT, 2, "")
CALL RW_PUT(TEXT)
* Assemble some data to go in the table.
* Get some data to insert.
PERFORM "SORT-SPREAD GUESTS < '200' " : ...
"ROOM NAME ADDRESS CITY STATE ZIP ID-SUPP" ...
CAPTURING aData
* The headings are in the second attribute.
DEL aData<1>
aHeadings = aData<1>
* SORT-SPREAD returns tab-separated data; we need a dynamic array.
aHeadings = CHANGE(aHeadings, TAB, AM)
* The data is in the third attribute onwards.
DEL aData<1>
* SORT-SPREAD returns tab-separated data; we need a dynamic array.
aData = CHANGE(aData, TAB, VM)
* Give alternate columns a different style.
aDataFormat = ""
FOR I = 1 TO DCOUNT(aHeadings, AM)
IF MOD(INT(I),2) THEN
aDataFormat<I> = "gray"
END ELSE
aDataFormat<I> = "white"
END
NEXT I
* Give the table a border.
aClass = ""
aClass<2> = "border"
* Create the table.
CALL RW_MAKE_TABLE(aHeadings, aData, aDataFormat, aClass, RWD_IGNORE_EMPTY_ROWS)
* Complete the page.
CALL RW_END_PAGE
RETURN
The style sheet, table.css, includes the following style
definitions:
body {
font-family: Arial, Helvetica;
font-size: 11pt;
color: #006600;
background-image: url('wb01256_.gif');
}
table {
table-border-color-light: rgb(153,204,153);
table-border-color-dark: rgb(153,204,153);
}
h2 {
font-family: Arial, Helvetica;
color: rgb(204,153,51);
}
td.gray {
background-color: silver;
}
td.white {
background-color: white;
}
th {
background-color: darkseagreen;
}
<!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>RW_MAKE_TABLE Example 2</TITLE>
<STYLE type="text/css">
<!-- @import url(/servlet/realityis/test/REALWEB-ITEMS/table.css); -->
</STYLE>
</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 CLASS="gray">
117
</TD>
<TD CLASS="white">
Loretta Rizzo
</TD>
<TD CLASS="gray">
10 Webster St.
</TD>
<TD CLASS="white">
Harrington
</TD>
<TD CLASS="gray">
TX
</TD>
<TD CLASS="white">
56634
</TD>
</TR>
<TR>
<TD CLASS="gray">
119
</TD>
<TD CLASS="white">
Barry R. Scott
</TD>
<TD CLASS="gray">
90 Alpine St.
</TD>
<TD CLASS="white">
Harrison
</TD>
<TD CLASS="gray">
CT
</TD>
<TD CLASS="white">
66344
</TD>
</TR>
<TR>
<TD CLASS="gray">
122
</TD>
<TD CLASS="white">
Richard T. Anderson
</TD>
<TD CLASS="gray">
153 Windsor Dr.
</TD>
<TD CLASS="white">
Concord
</TD>
<TD CLASS="gray">
NH
</TD>
<TD CLASS="white">
34598
</TD>
</TR>
<TR>
<TD CLASS="gray">
140
</TD>
<TD CLASS="white">
Susan P. Lynch
</TD>
<TD CLASS="gray">
55 Hale Rd.
</TD>
<TD CLASS="white">
Waltham
</TD>
<TD CLASS="gray">
NM
</TD>
<TD CLASS="white">
22413
</TD>
</TR>
<TR>
<TD CLASS="gray">
142
</TD>
<TD CLASS="white">
Jerry D. Madison
</TD>
<TD CLASS="gray">
27411 Trabuco Circle
</TD>
<TD CLASS="white">
Mission Viejo
</TD>
<TD CLASS="gray">
CA
</TD>
<TD CLASS="white">
92692
</TD>
</TR>
<TR>
<TD CLASS="gray">
143
</TD>
<TD CLASS="white">
William Hennessey
</TD>
<TD CLASS="gray">
11 Ellison Rd.
</TD>
<TD CLASS="white">
Lexington
</TD>
<TD CLASS="gray">
MA
</TD>
<TD CLASS="white">
07745
</TD>
</TR>
<TR>
<TD CLASS="gray">
144
</TD>
<TD CLASS="white">
Mr. & Mrs. H. Irving
</TD>
<TD CLASS="gray">
20 Thorpe Rd.
</TD>
<TD CLASS="white">
Lexington
</TD>
<TD CLASS="gray">
FL
</TD>
<TD CLASS="white">
28876
</TD>
</TR>
<TR>
<TD CLASS="gray">
147
</TD>
<TD CLASS="white">
Loretta T. Janson
</TD>
<TD CLASS="gray">
23 Glenborn Av.
</TD>
<TD CLASS="white">
Los Angeles
</TD>
<TD CLASS="gray">
CA
</TD>
<TD CLASS="white">
07734
</TD>
</TR>
<TR>
<TD CLASS="gray">
194
</TD>
<TD CLASS="white">
Mr. & Mrs. J. Hynes
</TD>
<TD CLASS="gray">
90 Harlow Ct.
</TD>
<TD CLASS="white">
Stanton
</TD>
<TD CLASS="gray">
LA
</TD>
<TD CLASS="white">
55278
</TD>
</TR>
</TABLE>
</BODY>
</HTML>