SUBROUTINE DBOPNC(LNAME,ECODE)
      PARAMETER (IPRECL=256,IPW=IPRECL/4)
      IMPLICIT INTEGER*4 (A-Z)
C
C     OPEN AND CREATE A NEW DATABANK.
C     (MACHINE DEPENDENT ROUTINE).
C     WATCOM version -- to emulate Lahey "record 0"
C
      INTEGER*2 ECODE
      CHARACTER*128 LNAME
      COMMON /IOCOM/ NOTIO,OUNIT
      COMMON /FILINF/ PUNIT
      COMMON /TSPBUF/ NOTBUF(6),DATA(IPW)
      INTEGER LINFO(4)
C     Lahey header has RECL 256, TSP Databank text optional
      DATA LINFO/65783,'TSP ','Data','bank'/
C
      OPEN(UNIT=PUNIT,FILE=LNAME,ACCESS='DIRECT',RECL=IPRECL,
     * STATUS='NEW',ERR=900)
      ECODE=0
      CALL IMOV(4,LINFO,DATA)
      POS=0
      CALL DBPUT(POS,DATA,ECODE)
      RETURN
C
900   CALL DBLEN(LNAME,NAMLEN)
      WRITE(OUNIT,901) LNAME(:NAMLEN)
901   FORMAT(' DATABANK OPEN ERROR CREATING FILE: ',A)
      ECODE=1
      RETURN
      END