Re: Rounding

[Sam Spritzer <SSpritzer@GW.CTG.COM>]

Bob...
This really goes over my head but I have sometimes had problems with response times where I am connecting through a Citrix box.  
Sam

<<< Bob Buford-Abba Systems <bbuford@GALEIND.COM> 11/ 4 11:05a >>>
Good morning,

I have an inconsistent behavior in an SQR file operation for which I need
some counsel.

I have to obtain names of files in a directory on a networked drive.  Based
on the list of names (which I then put into an array), I then open each file
in turn and read contents into my database.

I use CALL SYSTEM USING COMMAND.COM /C DIR ...  and redirect output into a
file that I then read.  My problem is that sometimes the file is not
created.  I suspect it may be because the response from the networked drive
may come too late for the code execution.  Even if that is true, I'm not
sure how to proceed.

My code:
   let $SrcDir = '\\raven\psft\interfaces\wo\'
   let $DirFile = 'c:\dirfile.txt'
   let $FilePrefix = 'galwk'
   let $DATType = '.*'

   let $cmd = 'command.com /C dir ' || $SrcDir
   let $cmd = $cmd || $FilePrefix || '*' || $DATType || ' > ' || $DirFile

   !$cmd thus is 'command.com /C dir \\raven\psft\interfaces\wo\galwk*.* >
c:\dirfile.txt'

   call system using $cmd #status
   #debug show 'executed ' $cmd ', status=' #status
   if #status <> 0
       goto ExitProc
   end-if
   open $DirFile as #DirFile for-reading record=65:vary status=#status

When it fails I get #status=-1.000000

TIA

Bob