Summary

###########################################################################

       File:     openchk.icn

       Subject:  Procedure to aid in open/close debugging

       Author:   David A. Gamey

       Date:     March 14, 1995

###########################################################################

   This file is in the public domain.

###########################################################################

  Usage:
  
     OpenCheck()

  Subsequent opens and closes will write diagnostic information to &errout
  Useful for diagnosing situations where many files are opened and closed 
  and there is a possibility that some files are not always being closed.

############################################################################

This file is part of the (main) package.

OpenCheck(p, x)

OpenCheck_close(x)

OpenCheck_open(x)