Scott,
The problem was my mistake, I did not know that zero was a valid file handle. But now I have the problem fix. So thanks for the help, everyone.
Thanks,
Marvin
No trees were killed in the sending of this message, but a large number of electrons were terribly inconvenienced, traumatized, triggered, and crying for their safe spaces.
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Wednesday, September 12, 2018 2:58 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: Re: What Does 'Descriptor not Valid' mean in an open statement.
Marvin,
"Descriptor not valid" is error code EBADF. This code usually means that you passed a bad descriptor as input to a function. for example, if
open() had returned the number 5, and you called write() and passed the number 6, you'd get this error (assuming 6 had not been opened elsewhere). Since the open() API does not take a descriptor as input, it does not normally return this error.
This makes me think that there is some memory corruption going on in your program. Most likely not in the code you posted, but somewhere else... Check all of the parameters to be sure they callers always pass the same length (or greater) when calling your programs/subprocedures -- this is the most common cause. If you're using pointer logic, make sure you're using it correctly.
I also noticed what appear to be some linefeeds in the path name.
Perhaps something is going wrong there?
-SK
On 9/12/2018 2:02 PM, Marvin Radding wrote:
Bradley,
Here is the error message:
open file:
/massmutual/rateinc_in/results/lifecare_rate_rnwl_agnt_file_push_201
80
815100
041.dat Descriptor not valid.
And here is the code:
p open_file b
d open_file pi n
d path 254a
d filepath s 256a
d filehandle s 10i 0 inz
filepath = %trim(path) + x'00';
filehandle = open(filepath:O_RDONLY + O_TEXTDATA);
if filehandle <= *zero;
die('open file: ' + %trim(path) + ' ' + %str(strerror(errno)));
return *on;
else;
return *off;
endif;
return *on;
p open_file e
/eject
--
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:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://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
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).
midrange.com
