FTN4
      SUBROUTINE XDSJ(LU,IDVID,KDSJ),92067-1X541 REV.2040 800717
C*****************************************************************
C*                                                               *
C*  (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. ALL RIGHTS       *
C*  RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,        *
C*  REPRODUCED OR TRANSLATED TO ANOTHER PROGRAMMING LANGUAGE     *
C*  WITHOUT THE PRIOR WRITTEN CONSENT OF THE HEWLETT-PACKARD     *
C*  COMPANY.                                                     *
C*                                                               *
C*****************************************************************
C 
C     NAME:  XDSJ 
C   SOURCE:  92067-18541
C    RELOC:  PART OF 92067-12002
C     PGMR:  J.S.W
C 
C 
      DIMENSION IBUF(3) 
      DATA IBUF/0,0,0/
      KDSJ=0
      IF(IFDVR(LU).EQ.0) RETURN 
C 
C 
      ID=IAND(IDVID,7B) 
      CALL ZDSJ(LU,ID,IBUF) 
      CALL ABREG(IA,IB) 
      IF(IB.EQ.0) GO TO 50
      KDSJ=IBUF(1)
      RETURN
50    KDSJ=4
      RETURN
      END 
      END$
                                                                                                                                                                                      