免费注册 查看新帖 |

Chinaunix

  平台 论坛 博客 文库
› 论坛 › 操作系统 › AS400 › 关于用户密码过期的问题
最近访问板块 发新帖
查看: 4020 | 回复: 6
打印 上一主题 下一主题

关于用户密码过期的问题 [复制链接]

giraffe

论坛徽章:
0
跳转到指定楼层
1楼 [收藏(0)] [报告]
发表于 2005-10-26 10:35 |只看该作者 |倒序浏览
大家好！我想问一下，如果用户的密码过期，怎么可以自动设定它的状态为*DISABLED。不用便程序能实现吗？
zzzddd

论坛徽章:
0
2楼 [报告]
发表于 2005-10-26 11:40 |只看该作者

关于用户密码过期的问题

有系统命令可以直接改得把！你只要确定是几天就好了！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
excuse

论坛徽章:
0
3楼 [报告]
发表于 2005-10-26 12:15 |只看该作者

关于用户密码过期的问题

SYSVALPWDEXPITV
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
giraffe

论坛徽章:
0
4楼 [报告]
发表于 2005-10-26 14:37 |只看该作者

关于用户密码过期的问题

我想大家没明白我的意思，我是说如果用户的密码过期了，你在登陆的时候会出现让你更改密码的画面，而我需要的是不要这个画面出现，直接让这个用户的状态为*DISABLED，如何实现呢
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
qingzhou

论坛徽章:
0
5楼 [报告]
发表于 2005-10-26 19:24 |只看该作者

关于用户密码过期的问题

关于密码方面的系统值有如下，自行查查帮助看看哪个能满足要求？
===>; DSPSYSVAL SYSVAL(QPWDXXXX)

QPWDEXPITV  
QPWDLMTAJC  
QPWDLMTCHR  
QPWDLMTREP  
QPWDLVL     
QPWDMAXLEN  
QPWDMINLEN  
QPWDPOSDIF  
QPWDRQDDGT  
QPWDRQDDIF              
QPWDVLDPGM
QPWRDWNLMT
QPWRRSTIPL
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
xuguopeng

论坛徽章:
0
6楼 [报告]
发表于 2005-10-27 09:54 |只看该作者

关于用户密码过期的问题

需要写程序来实现吧 我这有个比较笨的方法

  2. 0001.00 PGM                                                                     
  3. 0001.01 DCL VAR(&DATE) TYPE(*CHAR) LEN(6)                                       
  4. 0001.02 DCL VAR(&DATE1) TYPE(*CHAR) LEN(6)                                      
  5. 0001.03 DCL VAR(&SYSDATEC) TYPE(*CHAR) LEN(8)                                   
  6. 0001.04 DCL VAR(&SYSDATE) TYPE(*DEC) LEN(8 0)                                   
  7. 0001.05 DCL VAR(&DATDIF) TYPE(*DEC) LEN(5 0) VALUE(0)                           
  8. 0001.06 DCL VAR(&ODLDAT1) TYPE(*CHAR) LEN(6)                                    
  9. 0001.07 DCL VAR(&RCVDATEC) TYPE(*CHAR) LEN(8)                                   
  10. 0001.08 DCL VAR(&RCVDATE) TYPE(*DEC) LEN(8 0)                                   
  11. 0001.09 DCL VAR(&FLAG) TYPE(*CHAR) LEN(1)                                       
  12. 0001.10              DCLF       FILE(DLPAUDIT/CHKUSRPRF1)                       
  13. 0002.00              DSPUSRPRF  USRPRF(*ALL) OUTPUT(*OUTFILE) +                 
  14. 0003.00                           OUTFILE(DLPAUDIT/CHKUSRPRF)                  
  15. 0004.00              RUNQRY     QRY(DLPAUDIT/CHKUSRPRF)                        
  16. 0005.00 NEXT:        RCVF                                                      
  17. 0006.00              MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(END))               
  18. 0006.01              RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE)                     
  19. 0006.02              CHGVAR VAR(&DATE1) VALUE(%SST(&DATE 5 2)||%SST(&DATE 1 2)|
  20. 0006.03              %SST(&DATE 3 2))                                          
  21. 0006.04              CHGVAR VAR(&SYSDATEC) VALUE('20'||&DATE1)                  
  22. 0006.05              CHGVAR VAR(&SYSDATE) VALUE(&SYSDATEC)                    
  23. 0006.08              CHGVAR VAR(&RCVDATEC) VALUE('20'||&UPPWCD)               
  24. 0006.09              CHGVAR VAR(&RCVDATE) VALUE(&RCVDATEC)                    
  25. 0006.10              CHGVAR     VAR(&FLAG) VALUE(%SST(&UPUPRF 1 1))           
  26. 0006.11              CALL       PGM(DLPOPLIB/COMDATE) PARM(&SYSDATE +         
  27. 0006.12                           &RCVDATE &DATDIF)                           
  28. 0006.13                                                                       
  29. 0006.14              IF         COND((&DATDIF *GE 30) *AND (&FLAG *NE 'Q')) +
  30. 0006.15                           THEN(DO)                                    
  31. 0006.16              CHGUSRPRF  USRPRF(&UPUPRF) STATUS(*DISABLED)            
  32. 0006.17              ENDDO                                                   
  33. 0006.18              GOTO CMDLBL(NEXT)                                       
  34. 0006.19              DSPJOBLOG  OUTPUT(*PRINT)                                
  35. 0007.00    END:      ENDPGM                                                   
复制代码


  2. 0001.00 HDATFMT(*ISO)                                                   
  3. 0003.00 DDATEB            S               D   DATFMT(*ISO)               
  4. 0003.01 DDATED            S               D   DATFMT(*ISO)               
  5. 0004.00 D                 DS                                             
  6. 0005.00 D YMD                     1     10                              
  7. 0006.00 D YY                      1      4S 0                           
  8. 0007.00 D D1                      5      5                              
  9. 0008.00 D MM                      6      7S 0                           
  10. 0009.00 D D2                      8      8                              
  11. 0010.00 D D3                      9     10S 0                           
  12. 0011.00 D                 DS                                             
  13. 0012.00 D #YMD                    1      8S 0                           
  14. 0013.00 D Y5                      1      4S 0                           
  15. 0014.00 D M5                      5      6S 0                           
  16. 0015.00 D D5                      7      8S 0                           
  17. 0016.00 C     *ENTRY        PLIST                                       
  18. 0017.01 C                   PARM                    SYSDATE           8 0
  19. 0017.02 C                   PARM                    RCVDATE           8 0
  20. 0017.03 c                   PARM                    DFDAT             5 0
  21. 0022.00 C                   Z-ADD     SYSDATE       #YMD                 
  22. 0023.00 C                   Z-ADD     Y5            YY                     
  23. 0024.00 c                   Z-ADD     M5            MM                     
  24. 0025.00 c                   Z-ADD     D5            D3                     
  25. 0026.00 c                   MOVE      '-'           D1                     
  26. 0027.00 C                   MOVE      '-'           D2                     
  27. 0028.00 C                   MOVEL     YMD           DATEB                  
  28. 0028.01 C                   Z-ADD     RCVDATE       #YMD                    
  29. 0028.02 C                   Z-ADD     Y5            YY                     
  30. 0028.03 c                   Z-ADD     M5            MM                     
  31. 0028.04 c                   Z-ADD     D5            D3                     
  32. 0028.05 c                   MOVE      '-'           D1                     
  33. 0028.06 C                   MOVE      '-'           D2                     
  34. 0028.07 C                   MOVEL     YMD           DATED                  
  35. 0029.00 C     DATED         SUBDUR    DATEB         DFDAT:*D          5 0   
  36. 0029.01 C                   IF        DFDAT < 0                             
  37. 0029.02 C                   EVAL      DFDAT = DFDAT * -1                    
  38. 0029.03 C                   ENDIF                                          
  39. 0031.00 C                   SETON                                        LR
  40. 0032.00 c                   RETURN                                          
复制代码



query中只是把系统用户和组给过滤了，RPGLE只是算日期用的
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
giraffe

论坛徽章:
0
7楼 [报告]
发表于 2005-10-27 10:19 |只看该作者

关于用户密码过期的问题

太谢谢xuguopeng 了，连现成的程序都有了，感谢！
实战分享：从技术角度谈机器学习入门| 【大话IT】RadonDB低门槛向MySQL集群下战书 | ChinaUnix打赏功能已上线！ | 新一代分布式关系型数据库RadonDB知多少？
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则 发表回复

  

北京盛拓优讯信息技术有限公司. 版权所有 京ICP备16024965号-6 北京市公安局海淀分局网监中心备案编号：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年举报专区
中国互联网协会会员  联系我们：huangweiwei@itpub.net
感谢所有关心和支持过ChinaUnix的朋友们 转载本站内容请注明原作者名及出处

清除 Cookies - ChinaUnix - Archiver - WAP - TOP