HTML document usage example

The HTML language provides tags that allow the user to provide an embedded style sheet (the "style" tag) and to write embedded client side script (the "script" tag). According to the HTML 4.0 specification, the content of these tags must be managed as CDATA section.

Note: For more information, see the HTML 4.0 specification.

Because HTML document management via the xml.DomDocument object provides HTML compliancy only (and not strict HTML management), there is a specific way to add these nodes inside a loaded HTML document:

Create an element node with the name of the tag to be created.
Append that element node to its parent.
Create a CDATASection node with the wanted embedded piece of style sheet or piece of script content.
Append the CDATASection to the previously created element node.

By following this procedure, the "script" and "style" tags content are recognized as CDATA section content and not TEXT section content and will be preserved. Other methods for adding nodes to the document manage text and therefore will not treat these types of content properly, resulting in invalid HTML code.

Example

IMPORT XML

MAIN

  DEFINE myDoc XML.DomDocument
  DEFINE myEltNode, myAttrNode, bodyNode, myCdataNode XML.DomNode
  DEFINE nodeLst XML.DomNodeList
  DEFINE i INTEGER

  TRY
    LET myDoc = XML.DomDocument.create()
    CALL myDoc.setFeature("enable-html-compliancy", 1)
    CALL myDoc.load("testHtml.html")

    LET myEltNode = myDoc.CreateElement("script")
    LET myCdataNode = myDoc.CreateCDATASection("document.write(\"CDATA\");")
    LET myAttrNode = myDoc.CreateAttribute("type")
    CALL myAttrNode.setNodeValue("text/javascript")

    LET nodeLst = myDoc.getElementsByTagName("body")        
    LET docNode = nodeLst.getItem(1)

    CALL docNode.appendChild(myEltNode)
    CALL myEltNode.setAttributeNode(myAttrNode)
    CALL myEltNode.appendChild(myCdataNode)

  CATCH
    DISPLAY "ERROR : ", STATUS, " - ", SQLCA.SQLERRM    
    EXIT PROGRAM(-1)
  END TRY

END MAIN