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

Subroutine result in browser 

<!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>Styles Example</TITLE>

<STYLE TYPE="text/css">
<!-- 

body { background-color: coral }

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

h1 { font-family: Arial Black; color: maroon; font-size: 16pt }

h2 { font-family: Arial; color: navy; font-size: 14pt }

-->
</STYLE>


</HEAD>
<BODY>
<H1>

Overview
</H1>
<P>

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.
</P>
<H2>

Multiple Databases
</H2>
<P>

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.
</P>

</BODY>
</HTML>