Re: Strange Problems opening and closing IFS files

I guess you should test fd < 0 and not fd < 1:

The api help states:
Return Valuevalue open() was successful. The value returned is the file
descriptor.-1 open() was not successful. The errno global variable is set
to indicate the error.

HTH

--
Marco Facchinetti

Mr S.r.l.

Tel. 035 962885
Cel. 393 9620498

Skype: facchinettimarco

2017-08-04 17:53 GMT+02:00 Marvin Radding <
marvin.radding@xxxxxxxxxxxxxxxxxxxxx>:

I am having problems with open and closing IFS file using Scott's IFS
stuff.

I am working under 7.1 and trying to open a file on the IFS. The first
time I run the program I get an Invalid Descriptor error. But if I run it
again right after the first time, it works with no problem.

Then, after reading the file using the same descriptor, the close gets the
same error.

Here is the code:
//------------------------------------------------------------
// Variables
//------------------------------------------------------------
d headers s 20a dim(50)
d fd s 10i 0 inz
d fdclose s 10i 0 inz
d line s 1024a
d msg s 52a
d index s 10i 0
d bytesread s 10i 0
d start s 10i 0
d len s 10i 0
d info s 256a varying
d replymsg ds likeds(ReplyMsg_T)
//------------------------------------------------------------
// Prototypes
//--------------------------------------------------------------
d lexnexrcpr pi
d pathto 256a
d path 256a
d filename 256a
/EJECT
//------------------------------------------------------------
// Main Program
//------------------------------------------------------------
/free
pathto = %trim(pathto) + x'00';
fd = open(pathto:O_RDONLY+O_TEXTDATA);
if fd < 1;
die('open ' + %trim(pathto) + %str(strerror(errno)));
*inlr = *on;
return;
endif;

// load headers
bytesread=readline(fd: %addr(line): %size(line));
if bytesread <= *zero;
sndmsg('CPF9898':'file did not have a header');
*inlr = *on;
return;
endif;
line = %trim(line) + ',';
start = 1;
for index = 1 to 50;
len = %scan(',':line:start) - start;
if len <= 0;
leave;
endif;
headers(index) = %subst(line:start:len);
headers(index) = %subst(headers(index):2);
headers(index) = %subst(headers(index):1
:%len(%trim(headers(index)))-1);
start += len + 1;
endfor;

fdclose = close(fd);
if fdclose < 1;
die('close: ' + %str(strerror(errno)));
endif;

*inlr = *on;
return;

Can you see if there is anything I am doing wrong?
Notice: This e-mail transmission may contain information that is
proprietary, privileged and/or confidential and is intended exclusively for
the person(s) to whom it is addressed. This message may also contain
Protected Health Information (PHI) and must be treated confidentially and
handled in accordance with HIPAA and other federal and state privacy laws.
Any use, copying, retention or disclosure by any person other than the
intended recipient or the intended recipient's designees is strictly
prohibited. If you are not the intended recipient or their designee, please
notify the sender immediately and delete this e-mail (and any accompanying
attachments).
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD