****************************************
      * Program name: openclse.cbl
      * This program gives an example of how 
      * to OPEN and CLOSE a file to create
      * an empty file. 
      *
      * Copyright 2000 Deskware, Inc.
      ****************************************                                                             
       FD `IO.DAT` RECORD IS 100 BYTES.  

       DISPLAY `This program will demonstrate the OPEN can CLOSE` &
               ` commands by creating an empty file named IO.DAT`.
       OPEN `IO.DAT` FOR WRITING.
       CLOSE `IO.DAT`.