      SUBROUTINE PLHOST.DIR(PATH,OPT,DTA)
*PIC-LAN
*
*MVBASE D3 UV UD JB QM
*PC
*Y
*
*
*
*
      INCLUDE SYS.TYPE.INCLUDE
*
      INCLUDE PL.COMMON
      INCLUDE PL.COMMON.DEFS
      INCLUDE PL.DEFS
      INCLUDE PLIP.COMMON
      INCLUDE PLW.COMMON
*
      DTA = ''
*
      FIRST.FLG = YES
      EOF = NO
*
      LOOP
         IF FIRST.FLG THEN
            PL_HOSTDIR X , HANDLE FROM PATH ELSE EOF = YES
            FIRST.FLG = NO
         END ELSE
            PL_HOSTDIRNEXT X FROM HANDLE ELSE EOF = YES
         END
      UNTIL EOF DO
         FNAME = FIELD(X,' ',1)
#IFN UNIX
         FNAME = OCONV(FNAME,'MCU')
#END
         IF FNAME <> '.' AND FNAME <> '..' THEN
            FLAGS = FIELD(X,' ',5)
            IF NOT(INDEX(FLAGS,'D',1)) OR INDEX(OPT,'D',1) THEN
               D = FNAME
               D<1,2> = FIELD(X,' ',2)
               T = ''
               IF INDEX(FLAGS,'H',1) THEN T = T : 'H'
               IF INDEX(FLAGS,'S',1) THEN T = T : 'S'
               IF INDEX(FLAGS,'D',1) THEN T = T : 'D'
               IF T = '' THEN T = 'N'
               D<1,3> = T
               D<1,4> = FIELD(X,' ',3)
               D<1,5> = FIELD(X,' ',4)
               DTA<-1> = D
            END
         END
      REPEAT
*
      RETURN
   END
