SUBROUTINE LISTCOOKIES
     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
     EQU AM TO CHAR(254)
CALL RW_START_HTML_PAGE("List Cookies", "", "", "", "")
CALL RW_HEADING(1, "Cookies")
     CLIST = ""
CALL RW_LIST_COOKIES(CLIST)
     VLIST = ""
     VALUE = ""
     FOR I = 1 TO DCOUNT(CLIST, AM)
CALL RW_GET_COOKIE(CLIST<I>, VALUE)
          VLIST<I> = VALUE
     NEXT I
CALL RW_MAKE_DLIST(CLIST, VLIST, "")
CALL RW_END_PAGE
RETURN
            
             HTML
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 Cookies</TITLE>
</HEAD>
<BODY>
<H1>Cookies</H1>
<DL>
<DT>Name<DD>Fred Bloggs
<DT>Street<DD>27 High Street
<DT>Town<DD>London
<DT>Postcode<DD>AB1 2CD
<DT>Age<DD>34
<DT>Phone<DD>01234 567890
</DL>
</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.4
                                 | 
                        
                            | Help revision: | Revision 0
                                 | 
                        
                            | Help topic: | LISTCOOKIES Example (RealWeb)
                                 | 
                        
                            | File name: | listcookies.htm
                                 |