查看as400下全部USER的几种方法：
查看as400下全部USER的几种方法：
前几天跟大家讨论怎莫样查看as400下全部user的方法，增长了很多见识呵，
1 有 brent_wu 提到的 WRKUSRPRF *ALL
2 有 红像 提到的 WRKACTJOB （只可看到有连接的用户）
3 还有 居士 大哥说到的 CA （导航器）
下面再介绍一种方法：
CLP: [color=blue:43fd08e27e]TEST_LIB QCLPSRC_FILE SHOWUSRCLP_MEMBER[/color:43fd08e27e]
[code:1:43fd08e27e]
/***********************************************/
/* 位置: TEST_LIB QCLPSRC_FILE SHOWUSRCLP_MEMBER */
/* 功能: 察看系統中的用戶 */
/* 使用: <- SHOWUSRCMD 或單獨 CALL SHOWUSRCLP */
/* 適用: */
/* 開發: ANDREW HE(何峰) */
/* 時間: 2004 01 12 */
/* 備注: */
/* */
/***********************************************/
DSPUSRPRF USRPRF(*ALL) OUTPUT(*OUTFILE) +
OUTFILE(QTEMP/PROFILES)
OVRDBF FILE(PROFILES) TOFILE(QTEMP/PROFILES)
CALL PGM(TEST/SHOWUSRRPG)[/code:1:43fd08e27e]
DSPF : [color=blue:43fd08e27e]TEST_LIB QDDSSRC_FILE SHOWUSRFM_MEMBER[/color:43fd08e27e]
[code:1:43fd08e27e]*************************************************************
A* 位置 : TEST_LIB QDDSSRC_FILE SHOWUSRFM_MEMBER
A* 功能 : 察看系統中的用戶
A* 使用 : <- SHOWUSRURPG DSPF
A* 適用 :
A* 開發 : ANDREW HE( 何峰 )
A* 時間 : 2004 01 12
A* 備注 :
A*
A*************************************************************
A PRINT
A R SCREEN03 SFL
A S3USER 10 O 5 2
A 32 COLOR(RED)
A 32 DSPATR(BL RI)
A S3CLASS 10 O 5 13
A S3STATUS 10 O 5 24
A S3EXPIRED 4 O 5 38
A S3PREVON 8 O 5 44
A S3PREVCHG 8 O 5 54
A S3ATTEMPTS 6 0O 5 64EDTWRD( 0)
A S3NONE 4 O 5 72
A S3DAMAGE 1 O 5 78
A R SCREEN02 SFLCTL(SCREEN03)
A CA03
A OVERLAY
A SFLSIZ(19)
A SFLPAG(18)
A 70 SFLDSP
A 71 SFLDSPCTL
A 72 SFLCLR
A 70 SFLEND(*MORE)
A SFLPOS 4S 0H SFLRCDNBR
A CURPAG 5S 0H SFLSCROLL
A 1 2Profiles
A COLOR(WHT)
A 1 25 Profile Status
a DSPATR(UL)
A COLOR(WHT)
A 1 72DATE
A EDTCDE(Y)
A 2 72TIME
A 03 44 Previous
A COLOR(WHT)
A 03 54 Password
A COLOR(WHT)
A 03 63 InValid
A COLOR(WHT)
A 03 72 Pass
A COLOR(WHT)
A 04 02 Profile
a DSPATR(UL)
A COLOR(WHT)
A 04 13 Class
a DSPATR(UL)
A COLOR(WHT)
A 04 24 Status
a DSPATR(UL)
A COLOR(WHT)
A 04 36 Expired
a DSPATR(UL)
A COLOR(WHT)
A 04 77 Dmg
A COLOR(WHT)
a DSPATR(UL)
A 04 44 Sign-on
a DSPATR(UL)
A COLOR(WHT)
A 04 54 Changed
a DSPATR(UL)
A COLOR(WHT)
A 04 63 Attempts
a DSPATR(UL)
A COLOR(WHT)
A 04 72 Word
a DSPATR(UL)
A COLOR(WHT)
A R SCREEN04 OVERLAY
A* MESSAGE 70 O 23 2
A* 99 DSPATR(RI)
A 24 02F3=Exit
A COLOR(BLU)
[/code:1:43fd08e27e]
ILERPG : [color=blue:43fd08e27e]TEST_LIB QRPGLESRC_FILE SHOWUSRRPG_MEMBER[/color:43fd08e27e]
[code:1:43fd08e27e]*************************************************************
* 位置: TEST_LIB QRPGLESRC_FILE SHOWUSRRPG_MEMBER
* 功能: 察看系統中的用戶
* 使用: <- SHOWUSRCLP <- SHOWUSRCMD
* 適用:
* 開發: ANDREW HE(何峰)
* 時間: 2004 01 12
* 備注:
*
*************************************************************
FSHOWUSRFM CF E WORKSTN
F SFILE(SCREEN03:RRN)
FPROFILES IF E DISK
D RRN S 6 0 INZ(0)
C TIME TIMEX 6 0
C SETON 7071
C EXSR GETINFO
C WRITE SCREEN04
C EXFMT SCREEN02
C SETON LR
C*********************************************************
c* GET INFO
C*********************************************************
C GETINFO BEGSR
C READ PROFILES
C DOW NOT %EOF
C ADD 1 RRN
C MOVE UPUPRF S3USER
C MOVE UPUSCL S3CLASS
C MOVE UPSTAT S3STATUS
C IF UPSTAT <> *ENABLED
C SETON 32
C ENDIF
C MOVE UPPWEX S3EXPIRED
C IF UPPWON = *YES
C EVAL S3NONE = NO
C ELSE
C EVAL S3NONE = YES
c ENDIF
C MOVE UPUPDM S3DAMAGE
C IF UPUPDM <>
C SETON 32
C ENDIF
C IF UPPSOD <> *BLANKS
C EVAL S3PREVON = %SUBST(UPPSOD:1:2) + /
C + %SUBST(UPPSOD:3:2) + /
C + %SUBST(UPPSOD:5:2)
C ELSE
C EVAL S3PREVON = *BLANKS
c ENDIF
C IF UPPWCD <> *BLANKS
C EVAL S3PREVCHG = %SUBST(UPPWCD:1:2) + /
C + %SUBST(uppwcd:3:2) + /
C + %SUBST(uppwcd:5:2)
C ELSE
C EVAL S3PREVCHG = *BLANKS
c ENDIF
C Z-ADD UPNVSA S3ATTEMPTS
C WRITE SCREEN03
C 32 SETOFF 32
C READ PROFILES
C ENDDO
c*
C RRN IFEQ 0
C Z-ADD 1 RRN
C MOVEL LIST EMPTY S3USER
C WRITE SCREEN03
C ENDIF
C Z-ADD 1 SFLPOS
C ENDSR
[/code:1:43fd08e27e]
CMD : [color=blue:43fd08e27e]TEST_LIB QCMDSRC_FILE SHOWUSRCMD_MEMBER[/color:43fd08e27e]
[code:1:43fd08e27e]
/************************************************/
/* 位置: TEST_LIB QCMDSRC_FILE SHOWUSRCMD_MEMBER */
/* 功能: 察看系統中的用戶 */
/* 使用: 直接在CMD位置敲入 SHOWUSRCMD */
/* 適用: */
/* 開發: ANDREW HE(何峰) */
/* 時間: 2004 01 12 */
/* 備注: */
/* */
/***********************************************/
CMD PROMPT(SHOWUSRCMD)
[/code:1:43fd08e27e]
运行方法，
1 COPY到对应的位置
2 编译CLP
3 运行CLP ,即 CALL SHOWUSRCLP，一定出错误，因为SHOWUSRRPG没有
4 编译DSPF
5 编译ILERPG(如果前面不先CALL 一次CLP,这个地方可能编译不过)
6 编译CLP
7 CALL SHOWUSRCLP,即可以看到结果
8 CRTCMD后，直接敲入 SHOWUSRCMD也可以看到结果
【发表回复】【查看CU论坛原帖】【添加到收藏夹】【关闭】
| xuguopeng 回复于：2004-01-13 10:11:56 |
| ???? where is the another way?? |
| andrewleading_he 回复于：2004-01-13 10:59:29 |
| 这个地方有个问题需要高手指教！
[color=red:6ff73c64b3]怎样避免不去运行那个错误的CLP而同时保证ILERPG编译可以通过？ 注：不考虑将QSYS下的模版进行复制[/color:6ff73c64b3] 目前要运行一次错误的CLP的理由是： 1 QTEMP下没有PROFILES 2 ILERPG 中要用表PROFILES 还请高手指教！ |
| xuguopeng 回复于：2004-01-13 11:11:00 |
| 手工输出一个不就行了 |
| andrewleading_he 回复于：2004-01-13 11:17:36 |
| 那也是针对模版进行复制了，我是想看看可以在rpg中进行动态编译，不知道有没有人玩过？还是rpg根本就没有这个？ |
| yoyoage 回复于：2004-01-14 08:09:51 |
| 似乎还是没办法察看到所有的用户吧 |
| andrewleading_he 回复于：2004-01-14 08:47:47 |
| [quote:445d20fd64="yoyoage"]似乎还是没办法察看到所有的用户吧[/quote:445d20fd64]
具體的情況是什莫樣的，可以描述一下嗎？你是指什莫類型的user沒有顯示出來.可能還跟你運行這個程序的user的權限有觀吧！ |
| yoyoage 回复于：2004-01-14 09:46:20 |
| 因为你这样就是用dspusrprf命令看到的全部结果阿。可是我觉得并不完全 |
| andrewleading_he 回复于：2004-01-14 09:54:16 |
| 有什莫样的USER的USRPRF没有被列出来恩，可以举个例子吗？ |
| yoyoage 回复于：2004-01-14 12:55:02 |
| 不知道，*pgmr只列出来了少部分 |
| 子樵 回复于：2004-01-14 18:44:40 |
| 能看到什么USER ,要看你使用的用户有什么权限了.如果有*ALLOBJ自然什么都看到了.如果没有且没有*SECADM 想看USRPRF 都成问题.安全管理有一条就是不让没权限的人看到不该看的东西. |
| andrewleading_he 回复于：2004-01-15 00:30:36 |
| 有道理，我的权限很高，所以没有注意到这些！
谢谢！ |
最热门文章推荐：
>· voip方案
>· voip系统
>· voip市场
>· 免费voip
>· voip网络
>· voip组网
>· 腾讯rtx
>· 家庭无线局域网
↓相关文章：
- · Fun With Dates In RPGLE
- · as400 I/O 错误小结
- · 我想用ORACLE取AS400的数据，有没有与这个类似的培训!
- · 400中显示在线用户操作记录的方法（用User Space API 实现）
- · 在rpg 里如何对开关进行重命名？
- · AS400 上部署 J2EE 的另一选择-- JBOSS !
- · 问个关于系统MSG的问题？
- · The OS400 Command interface is EXCELLENT, but coukd be impro
- · 帮忙解释安全文档里的一句话
- · 定时启用禁用用户登陆系统的方法
- · 如何更改logon on screen?
- · 跟踪IPL全程、并将产生的spoolfile转成PC上的文本文件,一气呵成.
- · AS400上的FTP可以限制那些用户不能登陆吗？
- · 如何從 AS/400 啟動 PC 程序或 從 PC 啟動 AS/400 程序?
- · 得到4位表示 年份 的新方法？
- · V5R3 CL Programming
- · 原创：建立QINTER外可用于交互式访问的独立子系统
- · hanyu看过来，24小时交易的AS/400如何备份？
- · 磁带放进去就弹不出来三个指示灯一会全亮着
- · 【探讨】如何使用Notes与其它关系数据库进行信息交互？
- · 【探讨】如何限制Notes用户邮箱大小？
- · Some info on AS/400 V5R3
- · iSeries课程学习导航图，给您指引学习或者培训方向。
- · 很菜的问题
- · 关于数据库文件的UC控制的问题
- · 转 Commit/Rollback概念
- · 有倒序排列的KEY值时的SETLL和SETGT
- · 大家帮忙来找茬（到底RPG程序错在哪？）
- · 讨论：关于创建obj时的参数－－share
- · 帮忙看看这段程序的问题出在哪里？
- · 《最后100天的AS400学习心情笔记》
- · 在一个PF中加一字段，用来表示记录的序号！
- · SLR60磁带机可以做200GB系统的全系统备份，何故？
- · 讨论系统设备的异动监控
- · 求助：存储过程的查找和COPY
- · 【步骤】使用SQL DTS功能实现从DB/2向SQL Server传输数据.
- · 请教：如何修改PF文件的CCSID值？
- · 关于触发器的初级问题，请用过的大虾指教
- · 如何使用FTP在PC和AS/400之间传输包含中文的文件
- · 各位前辈，小女子是400初学之初学
- · （原）在as400上更换硬盘
- · pcom各种版本的问题总结
- · (如何在iSeries(AS/400)將资料加密(ZT)
- · 急等 如何更改as/400 V4R5 如何更改IP地址
- · 通过Navigator配置实现PC端拨号登陆远程AS/400.
- · 高版本安全数据向低版本系统迁移问题
- · as400与windows如何互相传送文件
- · 【分享】如何实现直接从AS/400发送信息到指定的邮箱.
- · rpg的小问题谁能解决一下，先谢了！（新手）
- · CA连接不上,PCOMM正常使用，授权及网络正常。什么问题？
- · exfmt与write的区别
- · 在TCPIP基础上建立APPC连接
- · 硬盘利用率的问题
- · 如何利用RPG,CL和ACCESS制作一个条形码标签的打印程序?
- · domino的邮件问题 急! (居士快进)
- · 请教400上的文件问题
- · 如何用PC超级终端对RS6000完成控制及安装（希望是我的精品）
- · (原创) 7133-T40阵列故障解决实例
- · 又来临时抱佛脚了，请教s7a电源问题
- · 经验交流<如何在AIX下面更改before login banner>
- · 刚完成的一个hacmp 5.1 +db2 udb 8.1 ese环境下的HA配置！
- · [原创]SNORT&ACID install on AIX 5.2
- · 一光纤卡的问题的解决，有类似问题的可以参考
- · 使用SFU实现Windows和AIX文件共享－请求加精
- · ORACLE/RAC安装完全攻略
- · Step bye Step for Install the Domino server 7 on aix 5L 5.2
- · 199学习笔记（chap11)
- · 在cp时的怪问题
- · 一个系统频繁宕机(888 102 300 0C0)的案例分析与解决!!!
- · 个人总结-理解和使用aix的日志系统
- · VIO配置1
- · IY19375补丁打不上。-_-!!!
- · 老的文章不一定就没有用处了：）
- · 任何在aix下面看你的系统是32位还是64位的
- · 吃了一个“螃蟹”
- · 监视别人在登录后都输入了什么命令
- · Securing AIX 5L from Scratch
- · 如何确定pSeries和RS/6000 CPU的主频？
- · .kshrc的作用
- · AIX 5.2对用户登录界面的安全性的增强