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$