void displayHTML( html, docType ) |
CONFIGURATION SECTION. REPOSITORY. CLASS WEB-AREA AS "com.iscobol.rts.HTTPHandler" . WORKING-STORAGE SECTION. 01 html identified by "html". 03 identified by "p". 05 identified by "b". 07 bold-text pic x any length. 03 identified by "p". 05 identified by "i". 07 italic-text pic x any length. 03 identified by "p". 05 plain-text pic x any length. LINKAGE SECTION. 01 LNK-AREA OBJECT REFERENCE WEB-AREA. PROCEDURE DIVISION USING LNK-AREA. MAIN. move "bold" to bold-text. move "italic" to italic-text. move "plain" to plain-text. lnk-area:>displayHTML(html, null). goback. |