查看as400下全部USER的几种方法：

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 操作系统 > IBM Server

查看as400下全部USER的几种方法：

作者:未知时间:2005-09-13 15:43 出处:ChinaUnix.net 责编:chinaitpower

摘要：查看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  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论坛原帖】【添加到收藏夹】【关闭】

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

有道理，我的权限很高，所以没有注意到这些！
谢谢！

关闭本页