****************************************
      * Program name: hello3.cbl
      * This is the Hello World sample program
      * from Chapter 5 in the CS manual.
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************                                                             
      *                                                               
       1 my_variable     PIC X(40).
       1 content_length  PIC 9(05).
       1 counter         PIC 9(2).

       GETENV USING `CONTENT_LENGTH` content_length.
       IF content_length IS GREATER THAN 0 THEN
          ACCEPT DATA FROM WEBPAGE
       END-IF.

       DISPLAY `Content-type: text/html`.
       DISPLAY LINEFEED.
       DISPLAY ``.
       DISPLAY `
Hello World
`. DISPLAY `my_variable: ` & my_variable. DISPLAYLF `
`. DISPLAY ``. DISPLAYLF ``. DISPLAYLF `
`. DISPLAY ``.