****************************************
      * Program name: page.cbl
      * This is the sample program from
      * Chapter 9 in the manual.
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************                                                             
       1 company_name  PIC X(20) VALUE `Deskware, Inc.`.
       MAIN.
           PERFORM PRINT-HEADER.
           PERFORM PRINT-BODY.
           PERFORM PRINT-FOOTER.
           GOBACK.
      ******************************************************
      * MODULE: PRINT-HEADER                                                                         
      * Prints header info for the html document.  
      ******************************************************
       PRINT-HEADER.
           DISPLAYLF `Content-type: text/html`.
           DISPLAYLF ``.
           DISPLAYLF ``.
           DISPLAYLF `
`. DISPLAYLF `


`. DISPLAYLF `


`. ******************************************************* * MODULE: PRINT-BODY * Prints body of HTML document ******************************************************* PRINT-BODY. DISPLAYLF `
`. DISPLAYLF ``. DISPLAYLF company_name. DISPLAYLF ``. DISPLAYLF `
`. ******************************************************* * MODULE: PRINT-FOOTER * Prints trailer info for the HTML document ******************************************************* PRINT-FOOTER. DISPLAYLF `


`. DISPLAYLF `


`. DISPLAYLF `
`. DISPLAYLF ``.