*****************************************
      * CobolScript program name: banner.cbl
      * This program provides an example 
      * of BANNER command usage.
      *
      * Copyright 2000 Deskware, Inc.
      *****************************************
       1 banner_character PIC X.
       1 banner_contents  PIC X(8).
       main.
            DISPLAY `This program demonstrates the use of the `.
            DISPLAY `BANNER command `.
            DISPLAY LINEFEED.
            BANNER USING `DESKWARE`  ` `.
            DISPLAY LINEFEED.
            MOVE `#`          TO banner_character.
            MOVE `DESKWARE`   TO banner_contents.
            BANNER USING banner_contents banner_character.
            STOP RUN.