SUBROUTINE MULTICOL2
* Demonstrate two column layout.

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

* Start the HTML page.
CALL RW_START_HTML_PAGE("Two Column Example", "", "", "", "")

HTML = ""

* Insert a level 1 heading.
TEXT = "Overview"
CALL RWS_HEADING(TEXT, 1, 'style="color: purple"')
HTML = HTML : TEXT

* The text for column 1.
Col1Text = "Reality is a software environment that supports Reality " : ...
"applications on UNIX and Windows (NT, 2000 and XP) systems. The " : ...
"applications support environment supplied by Reality is a Relational " : ...
"Database Management System (RDBMS), supporting multiple databases on " : ...
"a single host platform, a range of powerful utilities for database " : ...
"management and inquiry, and a set of utilities for operating system " : ...
"resources."

* The text for column 2.
Col2Text = "Any number of databases can be created and maintained on the host. " : ...
"The only restriction is disk space availability. This allows " : ...
"independent and secure use of different databases by different " : ...
"departments or groups using the system. Each database comprises a " : ...
"collection of data organised in relational data structures enabling " : ...
"easy access to, and manipulation of data."

* Declare a variable in which to return the formatted text.
TEXT = ""
* Format the text for display in two columns with a 20 pixel gutter.
CALL RWS_MULTICOL2(TEXT, Col1Text, Col2Text, 20, "")
HTML = HTML : TEXT

* Output the HTML.
CALL RW_PUT(HTML)

* Complete the page.
CALL RW_END_PAGE
RETURN