模板
教程
环境
性能
功能
管理
查看as400下全部USER的几种方法：
发表于：2007-05-26来源：作者：点击数：
标签：
查看as400下全部USER的几种方法： 前几天跟大家讨论怎莫样查看as400下全部user的方法，增长了很多见识呵， 1有brent_wu提到的WRKUSRPRF*ALL 2有红像提到的WRKACTJOB（只可看到有连接的用户） 3还有居士大哥说到的CA（导航器） 下面再介绍一种方法： CLP:[col
查看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 2'Profiles'
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 02'F3=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论坛原帖】【添加到收藏夹】【javascript:window.close()">关闭】
| 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 |
| 有道理，我的权限很高，所以没有注意到这些！
谢谢！ |
