FTN4
      SUBROUTINE VFLOG(NAM,ISTAT),92080-1X588  REV.2026  800313 
C 
C 
C     NAME:   VFLOG 
C     SOURCE: &VFLOG    92080-18588 
C     RELOC:  %VFLOG    92080-1X588          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 DCLOG EXISTS, IS ACTIVE,
C AND IF THE LOG FILE NAME SPECIFIED IN NAM IS THE ONE THAT IS USED 
C BY DCLOG. 
C 
C CALLING SEQUENCE: 
C 
C      CALL VFLOG(NAM,ISTAT)
C 
C           NAM - 5 WD ARRAY CONTAINING:
C                 FILE NAME (1-3) 
C                 SEC. CODE (4) 
C                 CR. NO.   (5) 
C 
C           ISTAT - 7 WD ARRAY RETURNED BY DCLOG, CONTAINS: 
C                 STATUS   (WD 1) 
C                      0 - OK 
C                    900 - DCLOG NOT LOADED 
C                    950 - LOG FILE NAME SPECIFIED NAM IS INCORRECT 
C                 ACTIVE FLAG (WD 2)
C                      0 - CURRENTLY INACTIVE 
C                     >0 - NO. OF PROCESSES CURRENTLY USING DCLOG 
C                 LOG FILE USED BY DCLOG (WDS 3-7)
C                      SAME FORMAT AS NAM 
C 
C*********************************************************************
C 
      DIMENSION NAM(5),ISTAT(7),IBUF1(9),IDCLO(3) 
C 
      DATA ICODE/100027B/ 
      DATA IDCLO/2HDC,2HLO,2HG /
C 
C SET REQUEST CODE TO 3 (GET DCLOG STATUS), SET CLASS IO WD TO 0
C 
      IBUF1(1)=3
      IBUF1(2)=0
C 
C MOVE LOGFILE NAME INTO BUFFER TO SEND TO DCLOG
C 
      CALL MOVEW(NAM,IBUF1(5),5)
C 
C SCHEDULE DCLOG WITH WAIT, NO ABORT
C 
      CALL EXEC(ICODE,IDCLO,1,0,0,0,0,IBUF1,9)
      GO TO 50
C 
C GET INFORMATION RETURNED BY DCLOG 
C 
      CALL EXEC(14,1,ISTAT,7) 
      RETURN
C 
C ERROR, DCLOG NOT LOADED 
C 
50    ISTAT(1)=900
      RETURN
      END 
      END$
                                                                                                      