C
C  *** / C D C D B S / ***
C
C  CURRENT DATABASE PERMANENT FILE DATA - CDC CYBER (BOEING)
C
      COMMON /CDCDBS/DBDATA(5,10),NUMOPN
      INTEGER DBDATA
      INTEGER NUMOPN
C
C  VARIABLE DEFINITIONS:
C         DBDATA(1,J) -- DATABASE NAMES IN H FORMAT (6HDBNAME)
C         DBDATA(2,J) -- DATABASE PERMANENT FILE NAMES IN H FORMAT
C         DBDATA(3,J) -- PERMANENT FILE USER NUMBERS IN H FORMAT
C         DBDATA(4,J) -- PERMANENT FILE PASSWORDS IN H FORMAT
C         DBDATA(5,J) -- DATABASE MODIFICATION INDICATORS
C                        0 = USER CONTROLLED FILE HANDLING
C                        1 = INDIRECT ACCESS
C                        2 = DIRECT ACCESS (READ ONLY)
C                        3 = DIRECT ACCESS (WRITE)
C                        4 = "DEFINE" DATABASE
C                       <0 = DATABASE HAS BEEN MODIFIED (IE -1)
C         NUMOPN - NUMBER OF DATABASES IN DBDATA
C