SUBROUTINE DBOPNC(LNAME,ECODE)
      PARAMETER (IPRECL=256)
      IMPLICIT INTEGER*4 (A-Z)
C
C     OPEN AND CREATE A NEW DATABANK.
C     (MACHINE DEPENDENT ROUTINE).
C
      INTEGER*2 ECODE
      CHARACTER*128 LNAME
      COMMON /FILINF/ PUNIT
      COMMON /IOCOM/ NOTIO,OUNIT
C
      OPEN(UNIT=PUNIT,FILE=LNAME,ACCESS='DIRECT',RECL=IPRECL,
     * STATUS='NEW',ERR=900)
      ECODE=0
      RETURN
C
900   CALL DBLEN(LNAME,NAMLEN)
      WRITE(OUNIT,901) LNAME(:NAMLEN)
901   FORMAT(' DATABANK OPEN ERROR CREATING FILE: ',A)
      ECODE=1
      RETURN
      END