ASMB,L,C,R
      HED DBOPN SUBROUTINE FOR REMOTE ONLY ACCESS 
      NAM DBOPN,7 92069-16236 REV.1912 790130 
* 
* 
******************************************************************* 
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS RESERVED.
* NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, REPRODUCED, OR
* TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT THE PRIOR WRITTEN
* CONSENT OF HEWLETT-PACKARD COMPANY. 
******************************************************************* 
* 
* 
*     SOURCE:    92069-18236
*     RELOC:     92069-16236
* 
*     PRGMR:     CEJ
* 
* 
******************************************************************* 
* 
* 
* 
*  This version of DBOPN is for remote only data base access.  It assumes 
*  that the data base is remote and merely provides an interface between
*  the user and RBOPN which handles the remote open.
* 
* 
*  The calling sequence for DBOPN is: 
* 
*           JSB DBOPN 
*            DEF *+5        return point
*            DEF BASE       an array containing:
*                             a DS/1000 node # in the first word followed 
*                             by an FMP namr string specifying at least 
*                             the data base name and security code. 
*                             On a successful return, DBOPN stores a data 
*                             base number in the first word of the array. 
*            DEF LEVEL      an array containing the user's level code word
*                             three words long, padded by trailing blanks 
*                             if necessary. 
*            DEF MODE       DBOPN mode, a one word integer. 
*            DEF STAT       a ten word array in which status information
*                             is returned to the user.  This subroutine 
*                             uses only the first three words which are 
*                             as follows: 
*                               word                contents
*                               ----                --------
*                                 1         status code (0 if successful) 
*                                   if successful:
*                                 2         user's assigned access level
*                                 3         word length of Run Table
* 
A     EQU 0 
B     EQU 1 
* 
      SKP 
      ENT DBOPN 
      EXT .ENTR,RBOPN 
* 
BASE  NOP 
LEVEL NOP 
MODE  NOP 
STAT  NOP 
* 
*  Get true parameter and return point addresses. 
* 
DBOPN NOP 
      JSB .ENTR 
       DEF BASE 
* 
*  Make sure all the parameters are there.
* 
      LDA STAT
      SZA,RSS 
      JMP EXIT      Missing parameter.
* 
*  Ask RBOPN to handle this request.
* 
      JSB RBOPN 
       DEF *+5
       DEF BASE,I 
       DEF LEVEL,I
       DEF MODE,I 
       DEF STAT,I 
* 
*  Reset STAT to zero for parameter check on next entry.
* 
EXIT  CLA 
      STA STAT
* 
*  Return to caller.
* 
      JMP DBOPN,I 
      END 
      END$
                      