OPENDIR() using a cifs file system mount

[Nancy Palmquist]

Boaz,
Yes that would be my workaround.  This worked so much easier and it is 
already written.  But it seems everything else works ok so, I might just 
do that.

Nancy

On 6/14/2019 8:36 AM, Boaz Bezborodko wrote:
>
>> Message: 1
>> Date: Thu, 13 Jun 2019 17:34:50 -0400
>> From: Nancy Palmquist <Nancy.Palmquist at vss3.com>
>> To: filePro Mailing List <filepro-list at lists.celestial.com>
>> Subject: OPENDIR() using a cifs file system mount
>> Message-ID: <e2372286-9ee9-9cfc-a3cc-eb57d2ecc9f6 at vss3.com>
>> Content-Type: text/plain; charset="utf-8"; Format="flowed"
>>
>> Fellow Filepro users,
>>
>> I have run into an issue using a Linux version of filepro 5.0 and we
>> store historical data on a cifs mounted device.? FilePro needs to read
>> the filenames and move the files to permanent storage based on some
>> information.
>>
>> So generally the files are dropped in a tmp folder, filepro uses
>> OPENDIR() to get an array with the file names, we lookup the order and
>> then move the file to an archive folder based on the looked up info.
>>
>> This worked great until the drive failed and we had to replace it.
>>
>> cifs mount on the Linux side was setup the same.? I added commands to
>> the mount to set the owner, group, file modes and directory modes.? I
>> setup the drive as Read/Write.? I can export a file into the TMP
>> folder.? I can use SYSTEM "ls -l TMPFOLDER" and get a directory listing.
>> But aa=opendir("*.xml",TMPFOLDER) returns 0 files (There are a few
>> hundred in the folder)
>>
>> Any ideas?
>>
>> I expect the NAS device we had to put in place in this emergency is not
>> functioning correctly.? It is WINDOWS based and the one that crashed was
>> LINUX based.
>>
>> Is there something else I should be checking before I reprogram the
>> logic using another method than OPENDIR()???
>>
>> Nancy
>>
>
> I use to use OPENDIR until I ran into its 32 character limit.  Now I 
> regularly use a routine to list the contents of the directory into a 
> file and a loop to READLINE the file into an array.  (This is a DOS 
> version.)
>
> ::DECLARE Command, File_Location, NextLine, Total_Files(4,.0)
> GetFil:::
> ::Command="DIR"<File_Location{"Inbound\*.csv /b > 
> H
\fpro\temp\XXX_Dir_List.txt":
> ::SYSTEM Command:
> ::ar=OPEN("H
\\FPRO\\temp\\XXX_Dir_List.txt","rt"):
> ::CHDIR File_Location:
> ::Total_Files="0":
> LOOP:'Read file information:as=READLINE(ar,NextLine):
> :as eq "0":CHDIR "H
\fpro" ; RETURN:
> ::o=Total_Files+"1":
> ::DownFile(o)=NextLine:
> ::Total_Files=Total_Files+"1":
> ::GOTO LOOP:
>
>
>
> ---
> This email has been checked for viruses by Avast antivirus software.
> https://www.avast.com/antivirus
>
>

-- 
Nancy Palmquist         MOS & filePro Training Available
Virtual Software Systems    Web Based Training and Consulting
PHONE: (412) 835-9417           Web site:  http://www.vss3.com

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mailman.celestial.com/pipermail/filepro-list/attachments/20190614/295436f2/attachment.html>