SUBROUTINE STYLE
* Demonstrate the use of the RWS_STYLE subroutine.

* Include the RealWeb definitions

     INCLUDE #RW.INCLUDE.DEFS FROM /SYSFILES/REALWEB,BP


     EQU LF TO CHAR(10)

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


     HTML = ""

* Insert a level 1 heading.

     TEXT = "Overview"
CALL RWS_HEADING(TEXT, 1, "")

     HTML = HTML : TEXT

* Insert a paragraph containing some text.

     TEXT = "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."
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT

* Insert a level 2 heading.

     TEXT = "Multiple Databases"
CALL RWS_HEADING(TEXT, 2, "")

     HTML = HTML : TEXT


     TEXT = "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."
CALL RWS_PARA(TEXT, "", "")

     HTML = HTML : TEXT

CALL RW_PUT(HTML)

* Define styles for the BODY, H1, H2 and P tags.

     STYLES = "body { background-color: coral }" : LF

     STYLES = STYLES  : "p { font-family: Bookman Old Style; font-size = 11pt }" : LF

     STYLES = STYLES : "h1 { font-family: Arial Black; color: maroon; " : ...

        "font-size: 16pt }" : LF

     STYLES = STYLES : "h2 { font-family: Arial; color: navy; " : ...

        "font-size: 14pt }" : LF
CALL RWS_STYLE(STYLES, "")
CALL RW_PUT_EX(STYLES, RWD_HEAD)

* Complete the page.
CALL RW_END_PAGE

RETURN
ClosedResult
ClosedHTML