RWS_FIELDSET Example (RealWeb)

SUBROUTINE FIELDSET
*Display a simple form, with name and address fields
*grouped as a fieldset

*Include the RealWeb definitions
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP

* Start the HTML page
CALL RW_START_HTML_PAGE("Name and Address Details", "", "", "", "")
* Start the HTML form, specifying that the subroutine FORMHF2
* should be run when the form is submitted
CALL RW_START_HTML_FORM("FORMHF2", "NAMEFORM", "")

CALL RW_PUT("Enter your name and address, then click Submit to continue")
CALL RW_NEWLINES(2)

* Create the editboxes
BUF="Name:    "
CALL RWA_EDIT_BOX(BUF,"NAME", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"Address: "
CALL RWA_EDIT_BOX(BUF,"ADD1", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"       "
BUF=BUF:"       "
CALL RWA_EDIT_BOX(BUF,"ADD2", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"       "
BUF=BUF:"       "
CALL RWA_EDIT_BOX(BUF,"ADD3", 30,"")
CALL RWA_NEWLINES(BUF,1)
BUF=BUF:"Postcode:   "
CALL RWA_EDIT_BOX(BUF, "PCODE", 7, "")
CALL RWA_NEWLINES(BUF,2)

*Tag these name and address boxes as a fieldset
CALL RWS_FIELDSET(BUF, "")

*Display the fieldset
CALL RW_PUT(BUF)

*Create the submit button
CALL RW_SUBMIT_BUTTON("Submit","")

*Complete the form
CALL RW_END_FORM

* Complete the page
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>Name and Address Details</TITLE>


</HEAD>
<BODY>
<FORM ACTION="FORMHF2A" NAME="NAMEFORM" METHOD="POST">

Enter your name and address, then click Submit to continue
<BR>
<BR>
<FIELDSET>

   Name:&nbsp;&nbsp;&nbsp;&nbsp;<INPUT NAME="NAME" SIZE="30" TYPE="TEXT">
<BR>

   Address:&nbsp;<INPUT NAME="ADD1" SIZE="30" TYPE="TEXT">
<BR>

   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT NAME="ADD2" SIZE="30" TYPE="TEXT">
<BR>

   &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT NAME="ADD3" SIZE="30" TYPE="TEXT">
<BR>

   Postcode:&nbsp;&nbsp;&nbsp;<INPUT NAME="PCODE" SIZE="7" TYPE="TEXT">
<BR>
<BR>
</FIELDSET>

<INPUT TYPE="submit" VALUE="Submit">
</FORM>
</BODY>
</HTML>