RE: What Does 'Descriptor not Valid' mean in an open statement. -- RPG400-L

Bradley,

Maybe this will help solve the problem. I found that the descriptor is a Java term and there must be 3 of them open for the default I/O that Java has. When I found this I included a single call that uses a java routine from Scott's HSSF interface and the open was successful. But now there is another problem. It is reading garbage. It is supposed to be an ascii file. When I use WRKLNK, I can put a 5 on the file and it displays no problem. But when the program uses read, the line looks like garbage. The Job's CCSID is 37 and the files attributes say that it is CCSID 37. I have no idea what is going on. I made the change you suggested but the read is still garbage.

Between the descriptor error and this garbage read, I hope someone can come up with an explanation of what is happening.

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 Bradley Stone
Sent: Wednesday, September 12, 2018 11:00 AM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Subject: Re: What Does 'Descriptor not Valid' mean in an open statement.

Here's what I believe is the problem:

if filehandle <= *zero;

filehandle can be, and probably is zero (since it's the first descriptor you're probably using to open a file). This should be:

if filehandle < *zero;

or

if filehandle < 0;

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #6 <https://www.bvstools.com/mailtool.html>: Easily send group emails with Distribution Lists

On Wed, Sep 12, 2018 at 11:24 AM Marvin Radding < marvin.radding@xxxxxxxxxxxxxxxxxxxxx> wrote:

Bradley,

Here is the error message:

open file:
/massmutual/rateinc_in/results/lifecare_rate_rnwl_agnt_file_push_20180
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

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
Bradley Stone
Sent: Wednesday, September 12, 2018 6:49 AM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Subject: Re: What Does 'Descriptor not Valid' mean in an open statement.

And you're sure it's on open() and not read() or write()?

Do you have a lot of programs that use sockets and/or open IFS files?
Or maybe 3rd party applications? I've seen a lot of issues where
descriptors aren't closed properly and other programs can't open a new
one, or they try to use one that isn't the one it opened.

I asked for a code snippet for a reason... I was curious. If you
could post the return codes and error numbers as well, that would help.

If it's working on devo and not on prod I see two possible issues:

1. OS issue (doubtful)
2. Job isn't properly creating/closing open descriptors (for IFS
and/or sockets).

Of course, another possibility is the code isn't the same.

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #1 <https://www.bvstools.com/mailtool.html>: Command
and ILE Interfaces available which means easily sending email from
your programs.

On Wed, Sep 12, 2018 at 8:24 AM Marvin Radding <
marvin.radding@xxxxxxxxxxxxxxxxxxxxx> wrote:

Bradley,

It worked with no problems on our development box. This problem only
occurred on the Production system.

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
Bradley Stone
Sent: Wednesday, September 12, 2018 6:04 AM
To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Subject: Re: What Does 'Descriptor not Valid' mean in an open statement.

Can you post your open code? Maybe you defined your file descriptor
incorrectly?

Bradley V. Stone
www.bvstools.com
MAILTOOL Benefit #5 <https://www.bvstools.com/mailtool.html>: Easy

setup!

No confusing or obscure setup instructions, directory entries, SMTP
users, aliases or host tables. All you need is TCPIP, a connection
to the internet and you're done!

On Wed, Sep 12, 2018 at 8:03 AM Marvin Radding <
marvin.radding@xxxxxxxxxxxxxxxxxxxxx> wrote:

I am having a very strange problem. When I attempt to open an IFS
file, the error I get is 'Descriptor not Valid'. When I google
this error all the problems others have had are with writing and
reading, but no one has had the error on opening.

Can anyone tell me why I am getting this error. We are on 7.1 and
I am using Scott Klement's set up.

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.
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: 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

--
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
--
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

--
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
--
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

--
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