SUBROUTINE DBGDI(IREC5,J,POS,IOFF,NAME,LENGTH,LDOC,TYPE)
      IMPLICIT INTEGER(A-Z)
C
C     GET DIRECTORY INFO (NAME,LENGTH,TYPE) FROM IREC5 AT POSITION J.
C     RETURN FRSTRC IN POS AND DATA OFFSET IN IOFF.
C
      DIMENSION NAME(2),IREC5(6,10)
      INTEGER*2 TYPE,IOFF,I2VAL(2),VTYPE,VOFF
      EQUIVALENCE (I2VAL,I4VAL), (I2VAL(1),VTYPE), (I2VAL(2),VOFF)
C
      NAME(1) = IREC5(1,J)
      NAME(2) = IREC5(2,J)
      LENGTH  = IREC5(3,J)
      I4VAL   = IREC5(4,J)
      TYPE    = VTYPE
      IOFF    = VOFF
      POS     = IREC5(5,J)
      LDOC    = IREC5(6,J)
C
      RETURN
      END