请问: 如何指定某个程序的运行权限?

红像

我自己写了几个小程序, 我想指定该程序的权限为只有我自己可以运行. 请问该如何指定??在哪里指定?

qingzhou

只要在你的CL程序里加上下面判断语句即可：

IF         COND(&USER *NE '红像') THEN(GOTO CMDLBL(END))
...                                                         
                     
END:         ENDPGM

红像

明白了. 谢谢

向唐

不错的主意，但是这好象是应用软件的方法。如果从系统的角度来说的话，应该是不能实现的。拥有*ALLOBJ的权限的用户应该可以执行的。

michael9406

可以作一个权限库。包括用户名和程式名及权限三个字段就可以了。
一般用一个RPG来控制比较容易实际一些。

qingzhou

[quote]原帖由 "向唐"]不错的主意，但是这好象是应用软件的方法。如果从系统的角度来说的话，应该是不能实现的。拥有*ALLOBJ的权限的用户应该可以执行的。[/quote 发表：


我已经测试过，在你的程序加上那句后，即使是QSECOFR登陆400时CALL 你的程序，系统也会报错:"rogram *** in library *LIBL not found."。从而无法执行！

zzzddd

Library list不对，所以not found!

qingzhou

[quote]原帖由 "zzzddd"]Library list不对，所以not found![/quote 发表：


不是这个原因，因为我把其他用户的LIBRARY LIST也设置成一样，执行时也是无效的！

向唐

抱歉，没有表达清楚。我是说通过软件控制的确是可以实现的。
如果希望通过系统的设置来实现是不行的。

红像

如果通过系统方式, 只能指定某个库的权限. 是吧~~~