RE: How to retrieve all user profiles in an IFS object's authority

Snippets from one of my programs.

* Retrieve users authorized to an object:
D RtvUsrObjAut Pr ExtPgm( 'QSYRTVUA' )
D RuRcvVar 32767a Options( *VarSize )
D RuRcvVarLen 10i 0 Const
D RuFdbInf 256a Options( *VarSize )
D RuFdbInfLen 10i 0 Const
D RuFmtNam 8a Const
D RuObjPth 4096a Const Options( *VarSize )
D RuObjPthLen 10i 0 Const
D RuError 32767a Options( *VarSize )

* Clean the security off the IFS object.
c Eval Ruobjnam = '/medtron/mcera/' + @prac

c Callp Rtvusrobjaut( rurcvvar
c : %size( rurcvvar )
c : rufdbinf
c : %size( rufdbinf )
c : 'RTUA0100'
c : ruobjnam
c : %len( ruobjnam )
c : apierror
c )

c If Aebytavl = *zero

c Eval Pinfent = %addr( rurcvvar )
c For Idx = 1 to finbrautusr


c Eval @cmd = 'chgaut obj(' + ''''
c + '/medtron/mcera/' + @prac
c + '''' + ') USER(' + %trim(reusrprf)
c If %trim(reusrprf) = '*PUBLIC'
c Eval @cmd = %trim(@cmd)
c + ') dtaaut(*exclude) objaut(*none)'
c Else
c Eval @cmd = %trim(@cmd)
c + ') dtaaut(*none) objaut(*none)'
c Endif
/free
@Retry = 0;
Dow @Retry <= 5;
Monitor;
qcmdexc(@cmd:%len(@cmd));
On-Error;
Sleep(10);
@Retry += 1;
Iter;
EndMon;
Leave;
EndDo;
/end-free

c If Idx < finbrautusr
c Eval Pinfent = pinfent + fiusrentlen
c Endif

c Endfor
c Endif

Kevin Bucknum
Senior Programmer Analyst
MEDDATA/MEDTRON
Tel: 985-893-2550

-----Original Message-----

From: MIDRANGE-L [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf
Of Dan
Sent: Monday, September 10, 2018 1:51 PM
To: Midrange Systems Technical Discussion
Subject: How to retrieve all user profiles in an IFS object's

authority

(We are still on v7r1. Preaching to the choir not necessary; it's out

of my

hands.)

I am modifying an interactive application that moves IFS objects from

one

folder to another. At times, we run into authority issues because a

named

user is excluded at the object level. What I have been tasked with is

to

remove all user authorities on the IFS object and ensure the object

has

*PUBLIC *ALL authority on it, before attempting to move it. Some

questions:

CHGAUT does not allow USER(*ALL), nor is there any RVKAUT command.
What are my options for retrieving all of the users in an IFS object's
authority?

Will an interactive user necessarily have sufficient authority to use

CHGAUT

to change the authority on a given object? We discovered an IFS

object

today where the user who owned the object had authority = *EXCLUDE.
We have no idea how this happened.

- Dan
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx 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: http://amzn.to/2dEadiD