× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Kevin/Scott and others,

Kevin--Yes that's what we're talking about.

Thanks to all who responded.

The issue came down to the requirement for the Mode to be passed by value.
The requirements for the system where this is being run are that this
routine be written in COBOL. (Hence, I haven't posted the sample code as
most on this list wouldn't follow it.)

I added the "BY VALUE" phrase for Mode and now I'm getting the expected
results. I found this before IBM got back to me on the Case (formerly known
as PMR) by searching through previous code working in the IFS.

Thanks for the responses to Kevin and all who responded.

Michael Quigley
Computer Services
The Way international
www.TheWay.org


-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf
Of Kevin Bucknum
Sent: Monday, December 30, 2019 3:54 PM
To: Midrange Systems Technical Discussion <midrange-
l@xxxxxxxxxxxxxxxxxx>
Subject: RE: mkdir() API and IFS authorities

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




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

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

This mailing list archive is Copyright 1997-2024 by midrange.com 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.