SUBROUTINE DISPLAYPARAMS_A
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
EQU AM TO CHAR(254)
CALL RW_START_HTML_PAGE("List Parameters", "", "", "", "")
CALL RW_HEADING(1, "Parameters")
PARAMS = ""
CALL RWA_DISPLAY_PARAMS(PARAMS, RWD_ALL)
PARAMS = CHANGE(PARAMS, "<BR>":CHAR(10), AM)
PS = 1
LOOP WHILE PS <> 0 DO
PS = INDEX(PARAMS, "<", 1)
PE = INDEX(PARAMS, ">", 1)
HTML = PARAMS[PS, PE]
PARAMS = CHANGE(PARAMS, HTML, "")
REPEAT
PLIST = ""
VLIST = ""
N = 1
FOR I = 1 TO DCOUNT(PARAMS, AM)
IF INDEX(PARAMS<I>, "=", 1) <> 0 THEN
PLIST<N> = FIELD(PARAMS<I>, "=", 1)
VLIST<N> = FIELD(PARAMS<I>, "=", 2)
N = N + 1
END
NEXT I
CALL RW_MAKE_DLIST(PLIST, VLIST, "")
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>List Parameters</TITLE>
</HEAD>
<BODY>
<H1>Parameters</H1>
<DL>
<DT>Age<DD>57
<DT>Name<DD>Fred
<DT>Postcode<DD>AB1 2CD
<DT>__htdbpath<DD>D:\RealWebDemo\tomcat\webapps\ROOT\test\DISPLAYPARAMS_A
<DT>__isurl<DD>/servlet/realityis/test
<DT>__page
<DT>__pathinfo<DD>DISPLAYPARAMS_A
<DT>__script<DD>/servlet/reality
<DT>__section<DD>test
<DT>__url<DD>http://hb-ac11579:8080/servlet/reality/test/DISPLAYPARAMS_A
</DL>
</BODY>
</HTML>