Wow, thanks, Chuck. You did this in CL? What, to prove you could? :)

I really appreciate the follow-up. Strange that that one parameter would be (apparently) mishandled while the others are intact. It makes me wish, once again, that I could see code generated by the ILE RPG compiler, which does handle this properly. Of course, it probably (?) doesn't go through this API to get there, so there is that.

I can live with inherited rights in this case - thanks for that tip! Life goes on, and I will march forward with that flag. But this one's going in my back pocket for occasional review 'cuz it bothers me. :)

Thanks again.

"CRPence" <CRPbottle@xxxxxxxxx> wrote:

On 3/16/11 12:58 PM, Dennis wrote:
Folks, I have posted MI code at that:
- Deletes file mi-ifs-file.txt from the current directory
- Creates a new file by same name in the current directory
- Writes a line if all successful
- Closes that file

It creates the file just fine, except that there are no permissions
(flags ----------). I am absolutely convinced that this is my error
(I used the same concept in RPG and it worked great), but my eyes
don't see where I might have gone wrong. Would some kind soul mind
steering me in the right direction?


I created an equivalent CALL to the Call Service Program Procedure
(QZRUCLSP) API from a CLP to invoke the open procedure in QP0LLIB1 and
got what I infer are the same [at least similar] results creating a
in my directory under /home; i.e. *NONE data authority was the effect.
When I changed the oflag mask to include O_INHERITMODE I got the same
authorities to both *PUBLIC and to my user\owner as those which were
for my directory under /home. However attempts at changing the
permissions mask for the mode parameter in that same CLP saw no change
for any of the owner, group, or public data authorities even when
passing 0d511. :-(

Regards, Chuck
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
or email: MI400-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives

Sent from my Galaxy tablet phone with with K-9 Mail. Please excuse my brevity.

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2021 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.