At 05:46 PM 12/14/00 -0600, you wrote:
>How can we tell, using COBOL or CI functions, what mode an already open
>database was opened in?  And if more than one process has the database open,
>what mode each process used.


DBUTIL shows you this:

    >>show simp.tjtest users
   For database SIMP.TJTEST

     PIN PATH     EXECUTING PROGRAM      JOBNUM MODE
     --- ---- -------------------------- ------ ----
      69 1    QUERYNM.PUB.SYS            #S4      5


You could route the output from DBUTIL to a file then parse the
file looking for the information.

Another possible option is to use the AIFFILEGGET and retrieve the
file access options (5009) and use these to determine the open mode
of the rootfile.  This may require PM, as the file is a PRIV file.