关于LIB及其下的OBJECT的使用权限的问题

xuguopeng

那是不可能的 PUBLIC的权限放开了就等于给其他用户授权了

如果能做到象你所说的那样 那PUBLIC *EXCLUDE还有意义么？？

qm

如果不信你可以自己申请一个TEXAS400的帐户去看看情况是否是我说的那样！
正因为不明白，所以对这个事实我是反复确认了的！

xuguopeng

首先你要确认你对他的LIB是否有权限？ 接着是对SOURCE FILE是否有权限？
你用WRKOBJ看的是PGM的授权吧？

qm

1. 
   
2.                          Display Object Authority
   
3. Object . . . . . . . :   USR5184         Owner  . . . . . . . :   USR5184
   
4.    Library  . . . . . :     QSYS          Primary group  . . . :   *NONE
   
5. Object type  . . . . :   *LIB
   
6. Object secured by authorization list  . . . . . . . . . . . . :   MYLIST
   
7.                           Object
   
8. User        Group       Authority
   
9. USR5184                 *ALL
   
10. QTMHHTP1                *ALL
    
11. USR4093                 *CHANGE
    
12. *PUBLIC                 *ALL
    

复制代码

这是WRKOBJ USR5184看到的这个库的授权的信息，

1. 
   
2.                             Display Object Authority
   
3. Object . . . . . . . :   QRPGSRC         Owner  . . . . . . . :   USR5184
   
4.    Library  . . . . . :     USR5184       Primary group  . . . :   *NONE
   
5. Object type  . . . . :   *FILE
   
6. Object secured by authorization list  . . . . . . . . . . . . :   *NONE
   
7.                           Object
   
8. User        Group       Authority
   
9. *PUBLIC                 *CHANGE
   
10. 
    

复制代码

这是USR5184库下QRPGSRC这个OBJ的授权，但是我无权更改其下的SOURCE MEMBER，

1.                           Display Library Description
   
2. Library  . . . . . . . . . . . . . . . . . :   USR5184
   
3. Type . . . . . . . . . . . . . . . . . . . :   PROD
   
4. ASP of library . . . . . . . . . . . . . . :   1
   
5. Create authority . . . . . . . . . . . . . :   *SYSVAL
   
6. Create object auditing . . . . . . . . . . :   *SYSVAL
   
7. Text description . . . . . . . . . . . . . :   
   

复制代码

这是WRKLIB的Library Description。

用DSPSYSVAL SYSVAL(QCRTAUT)看到的系统值是*CHANGE，
DSPSYSVAL SYSVAL(QCRTOBJAUD)  ，值为*NONE。
不明白     

xuguopeng

看看MYLIST这个authority list里是什么？？

dljy79

in concern!

qm

mylist的描述：

1.                       Display Object Description - Full
   
2.                                                                 Library 1 of 1
   
3. Object . . . . . . . :   MYLIST          Attribute  . . . . . :
   
4.   Library  . . . . . :     QSYS          Owner  . . . . . . . :   USR4195
   
5. Type . . . . . . . . :   *AUTL           Primary group  . . . :   *NONE
   
6. User-defined information:
   
7.   Attribute  . . . . . . . . . . . . :
   
8.   Text . . . . . . . . . . . . . . . :
   
9. Creation information:
   
10.   Creation date/time . . . . . . . . :   03/03/04  08:26:43
    
11.   Created by user  . . . . . . . . . :   USR4195
    
12.   System created on  . . . . . . . . :   S102Y34M
    
13.   Object domain  . . . . . . . . . . :   *SYSTEM
    

复制代码

mylist的内容：

1.                            Display Authorization List
   
2. Object . . . . . . . :   MYLIST          Owner  . . . . . . . :   USR4195
   
3.    Library  . . . . . :     QSYS          Primary group  . . . :   *NONE
   
4.               Object    ---------------Data---------------
   
5. User        Authority  Read  Add  Update  Delete  Execute
   
6. USR4195     *ALL        X     X     X       X        X
   
7. USR4576     *USE        X                            X
   
8. USR4894     *USE        X                            X
   
9. *PUBLIC     *CHANGE     X     X     X       X        X
   

复制代码

我的用户的profile中比较特殊的一点就是开始的时候调用了一个SOC000的CLP程序，但是我在看其源文件如下，是不是有些问题？

1. 
   
2.              PGM
   
3.              DCL        VAR(&USR) TYPE(*CHAR) LEN(10)
   
4.              RTVJOBA    USER(&USR)
   
5.              OVRDBF     FILE(SO) TOFILE(SOLIB/SO)
   
6.              CALL       PGM(SOLIB/SOR000) PARM(&USR)
   
7.              DLTOVR     FILE(SO)
   
8.              CHKOBJ     OBJ(&USR/SOC000) OBJTYPE(*PGM)
   
9.              MONMSG     MSGID(CPF0000) EXEC(GOTO CMDLBL(EOJ))
   
10.              CALL       PGM(&USR/SOC000)
    
11. EOJ:
    

复制代码

看其他用户的profile没法看，想用RTVCLSRC来直接提取源码还没有权限，无奈           

xuguopeng

这个程序只是LOG你的登陆信息罢了 没有限制权限的

xuguopeng

给*ALL的权限是可以更改的 我试过了 必须要有OBJ管理权限才可以 *CHANGE是不行的