Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!sdd.hp.com!caen!spool.mu.edu!agate!usenet.ins.cwru.edu!eagle!sei_5.lerc.nasa.gov!mcc1203
From: mcc1203@sei_5.lerc.nasa.gov
Newsgroups: comp.sys.apollo
Subject: NAME_$READ_DIR_LC on 10.3
Message-ID: <1991Jun13.184522.11058@eagle.lerc.nasa.gov>
Date: 13 Jun 91 18:45:22 GMT
Sender: news@eagle.lerc.nasa.gov
Reply-To: mnc0953@mars.lerc.nasa.gov ()
Organization: sei
Lines: 38


      INTEGER*2      DIRL(512,300), DIRLEN
      INTEGER*2      MAX, MAXR
      INTEGER*4      BSIZE, NFILES
      INTEGER*4      STATUS

      CHARACTER*128  DIRNAM                
      CHARACTER*300  CURSOR
      CHARACTER*(*)  PATH
      LOGICAL        SEEK
                                 
      DIRNAM = PATH
      MAX    = NFILES
      DIRLEN = NUMCHR(DIRNAM)
      SEEK  = .TRUE.                     
      BSIZE = 512 * 300 * 2 
      CALL NAME_$READ_DIR_LC (DIRNAM, DIRLEN, SEEK, CURSOR, MAX, 
     O                        BSIZE, DIRL, MAXR, STATUS)


  What I'm trying to do in the above code is get the names of
  the files in the directory DIRNAM.

  Could someone please look at the above code to try to find out
  what is wrong.  This is exactly what the 'name.ins.ftn' file
  says to do, but for some reason it gets all blanks for the file
  names.  From the debugger, I know that DIRNAM, DIRLEN, and MAX
  are all correct and I also know that it returns 42 in MAXR, so
  it's doing something at least 42 times (which is about 
  the number of files in the directory).

  By the way, why is the documentation for the NAME_$READ_DIR_LC
  subroutine different in the 'name.ins.ftn' file from that in
  the system call reference manual?  Which one is correct?
  Neither?  :-)

				Mark Cutshaw
				NASA Lewis Research Center