FTN4
      SUBROUTINE VFYDB(NAM,ISTAT),92080-1X589  REV.2026  800313 
C 
C 
C     NAME:   VFYDB 
C     SOURCE: &VFYDB    92080-18589 
C     RELOC:  %VFYDB    92080-1X589            PART OF $TMGL1 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1980.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C THIS SUBROUTINE DETERMINES IF THE PROGRAM TO ACCESS THE DATA BASE 
C SPECIFIED IN NAM EXISTS.  IF IT DOES, THE LOCK-ON-DEMAND WORD,
C THE LOG FILE OR DEVICE NAME, AND THE ACTIVE FLAG ARE RETURNED TO
C THE USER. 
C 
C CALLING SEQUENCE: 
C 
C      CALL VFYDB(NAM,ISTAT)
C 
C           NAM - 8 WD ARRAY CONTAINING:
C                 D.B. NAME (1-3) 
C                 LEVEL ACC (4-6) 
C                 SEC. CODE (7) 
C                 CR. NO.   (8) 
C 
C           ISTAT - 16 WD ARRAY RETURNED BY D.B. PROGRAM, CONTAINS: 
C                 STATUS   (WD 1) 
C                      0 - OK 
C                      1 - D.B. PROGRAM DOES NOT EXIST
C                      3 - D.B. PROGRAM DOES NOT ACCESS THE D.B.
C                          SPECIFIED IN NAM 
C                 ACTIVE FLAG (WD 2)
C                      0 - CURRENTLY INACTIVE 
C                     >0 - NO. OF PROCESSES CURRENTLY USING DCLOG 
C                 DATA BASE ACCESSED BY D.B. PROG (WDS 3-10)
C                      WDS 3-5 - D.B. NAME
C                      WDS 6-8 - LEVEL ACCESS WD. 
C                      WD  9   - SEC. CODE
C                      WD  10  - CR. NO.
C                 LOCK ON DEMAND FLAG (WD 11) 
C                      BIT 0  = 0 - LOCK D.B. ALL THE TIME
C                             = 1 - LOCK D.B. AS NEEDED 
C                      BIT 15 = 0 - TMP1
C                               1 - TMP2
C                 LOGGING STORAGE USED BY D.B. PROGRAM (WDS 12-16)
C                      WDS 12-14 - LOG FILE NAME OR LU NO.
C                      WD  15    - SEC. CODE
C                      WD  16    - CR. NO.
C 
C*********************************************************************
C 
      DIMENSION NAM(8),ISTAT(16),IBUF1(12)
C 
      DATA ICODE/100027B/ 
C 
C SET REQUEST CODE TO 9 (GET IMAGE STATUS), SET CLASS IO WD TO 0
C 
      IBUF1(1)=9
      IBUF1(2)=0
C 
C MOVE LOGFILE NAME INTO BUFFER TO SEND TO IMAGE PROG 
C 
      CALL MOVEW(NAM,IBUF1(5),8)
C 
C SCHEDULE IMAGE PROG WITH WAIT, NO ABORT 
C 
      CALL EXEC(ICODE,NAM,1,0,0,0,0,IBUF1,12) 
      GO TO 50
C 
C GET INFORMATION RETURNED BY IMAGE PROG
C 
      CALL EXEC(14,1,ISTAT,16)
      RETURN
C 
C ERROR, IMAGE PROG NOT LOADED
C 
50    ISTAT(1)=1
      RETURN
      END 
      END$
                                                                                                                    