SUBROUTINE TABLE_S1
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)
CALL RW_START_HTML_PAGE("Simple RWS_Table Example", "", "", "", "")
HTML = ""
TEXT = "Areas giving rise to faults in software"
CALL RWS_TABLE_CAPTION(TEXT, "")
HTML = HTML : TEXT
TEXT = "Phase giving rise to fault":AM:"Percentage of total faults"
FOR I = 1 TO DCOUNT(TEXT, AM)
S = TEXT<I>
TEXT<I> = S
NEXT I
CALL RWS_TABLE_ROW(TEXT, "")
HTML = HTML : TEXT
TEXT = "Requirements definition":VM:"38"
TEXT<-1> = "Maintenance (operation)":VM:"32"
TEXT<-1> = "Design":VM:"23"
TEXT<-1> = "Installation":VM:"7"
FOR I = 1 TO DCOUNT(TEXT, AM)
FOR J = 1 TO DCOUNT(TEXT<I>, VM)
S = TEXT<I,J>
CALL RWS_TABLE_DATA(S, "")
TEXT<I,J> = S
NEXT J
S = TEXT<I>
CALL RWS_TABLE_ROW(S, "")
TEXT<I> = S
NEXT I
HTML = HTML : TEXT
HTML = CONVERT(HTML, AM:VM, LF:TAB)
CALL RWS_TABLE(HTML, "")
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>Simple RWS_Table Example</TITLE>
</HEAD>
<BODY>
<TABLE>
<CAPTION>Areas giving rise to faults in software</CAPTION>
<TR>
<TH>Phase giving rise to fault</TH>
<TH>Percentage of total faults</TH>
</TR>
<TR>
<TD>
Requirements definition
</TD>
<TD>
38
</TD>
</TR>
<TR>
<TD>
Maintenance (operation)
</TD>
<TD>
32
</TD>
</TR>
<TR>
<TD>
Design
</TD>
<TD>
23
</TD>
</TR>
<TR>
<TD>
Installation
</TD>
<TD>
7
</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:
|
Simple RWS_Table Example (RealWeb)
|
|
File name:
|
TABLE_S1.htm
|