SUBROUTINE EBOXA
* Display a simple form, requesting entry of a name in a single editbox
* Include the RealWeb definitions
INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP
* Start the HTML page.
CALL RW_START_HTML_PAGE("First Form", "", "", "", "")
BUF = "Please enter your name in the box, then click the Go button:"
CALL RWS_PARA(BUF, "", "")
CALL RW_PUT(BUF)
* Create the editbox
BUF = ""
CALL RWA_EDIT_BOX(BUF, "NAME", 30, "")
* Create the submit button
CALL RWA_SUBMIT_BUTTON(BUF, "GO", "")
* Create the HTML form, specifying that the subroutine HELLO should be run
* when the submit button is clicked.
CALL RWS_FORM(BUF, "HELLO", "FORM1", "")
* Output the form.
CALL RW_PUT(BUF)
* Complete the page.
CALL RW_END_PAGE
RETURN
Result