Actually your copybook does use the options(*string), but I just stripped that code out off a fix format program and it compiled and worked, so didn't bother fixing it up. I'm not having the issue. My example is how it is working for me, which is the way I expect it to, and the way it is documented to work. It's not working for Michael, and I think he is going to open up a PMR. My example was just to make sure Michael and I were talking apples to apples.
-----Original Message-----
From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Scott Klement
Sent: Monday, December 30, 2019 2:42 PM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Re: mkdir() API and IFS authorities
Kevin,
Thanks for the example. From what you've posted there, you are doing this:
Mode = S_Ixusr // My user profile - *X only
+ S_Iroth + S_Iwoth; // Other (*PUBLIC) *RW Path = '/kevin/mkdirtest/newfolder' + x'00'; Mkdir(%Addr(Path):Mode);
This code looks like it was written for V3R2 with the manual x'00' and %addr(). It'd be nice to modernize that a bit to use options(*string), but the old way still works.
As the comments say, you're asking for your user profile to have *X and the public to have *RW. in your screenshot that follows the code you show this:
*PUBLIC *RW
KEVIN *X
As far as I can tell, this is exactly what was expected. Can you
explain what the trouble is?
-SK
On 12/30/2019 1:14 PM, Kevin Bucknum wrote:
I'm in the root file system. I threw together an example of what I'm seeing just to make sure we are talking about the same things. And I'm on V7R3 btw.
https://code.midrange.com/076773896a.html
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
[
https://www.medtronsoftware.com/img/MedtronMinilogo.bmp] Kevin Bucknum
Senior Programmer Analyst
MEDDATA / MEDTRON
120 Innwood Drive
Covington LA 70433
Local: 985-893-2550
Toll Free: 877-893-2550
https://www.medtronsoftware.com
CONFIDENTIALITY NOTICE
This document and any accompanying this email transmission contain confidential information, belonging to the sender that is legally privileged. This information is intended only for the use of the individual or entity named above. The authorized recipient of this information is prohibited from disclosing this information to any other party and is required to destroy the information after its stated need has been fulfilled. If you are not the intended recipient, or the employee of agent responsible to deliver it to the intended recipient, you are hereby notified that any disclosure, copying, distribution or action taken in reliance on the contents of these documents is STRICTLY PROHIBITED. If you have received this email in error, please notify the sender immediately to arrange for return or destruction of these documents.
midrange.com
