如何使用CL程序在IBM i上批量创建用户

使用CL程序作为批处理来创建多个用户可提高效率。本示例代码通过循环读取输入文件中的用户信息，将其传递给CRTUSRPRF命令进行用户创建。

/* CL程序：CRTUSRPRFBTCH */ 
DCLF DEFINED(*FILE) FILE(INPUTFILE)
DCL &USERID *CHAR 10
DCL &USERPWD *CHAR 20
DCL &USERFULLNAME *CHAR 20
DCL &USERDEPT *CHAR 10
DCL &USERTYPE *CHAR 1
DCL &CTLFMT *CHAR 8
DCL &EOF *LGL
DCL &INPUTRCDS *DEC (5 0)
DCL &ERRORS *DEC (5 0)

CRTPF FILE(QTEMP/TEMPTBL) SRCFILE(QGPL/QCLSRC) SRCMBR(TEMPTBL)
OVRDBF FILE(INPUTFILE) TOFILE(QTEMP/TEMPTBL) MBR(TEMPTBL)

CRTPF FILE(QTEMP/CMDSTR) SRCFILE(QGPL/QCLSRC) SRCMBR(CMDSTR)
OVRDBF FILE(CMDSTR) TOFILE(QTEMP/CMDSTR) MBR(CMDSTR)

PGM                                                                   
DOW NOT &EOF                                                         
   RCVF                                                               
   MONMSG MSGID(CPF0864) EXEC(DO)                                      
     CHGVAR &EOF '1'                                                 
     LEAVE                                                            
   ENDDO                                                              
   CHGVAR &USERID %SST(&TEMPTBL 1 10)                                  
   CHGVAR &USERPWD %SST(&TEMPTBL 11 20)                                
   CHGVAR &USERFULLNAME %SST(&TEMPTBL 31 20)                            
   CHGVAR &USERDEPT %SST(&TEMPTBL 51 10)                               
   CHGVAR &USERTYPE %SST(&TEMPTBL 61 1)                                
   IF COND(&USERTYPE *EQ '1') THEN(DO)                                  
     CRTUSRPRF USRPRF(&USERID) PASSWORD(&USERPWD)                     
     TEXT('Created via batch')                                        
     INLMNU(*SIGNOFF) FULLNAME(&USERFULLNAME) USRCLS(*USER)           
     DEPARTMENT(&USERDEPT)                                            
     STATUS(*ENABLED)                                                 
     OUTPUT(*PRINT)                                                  
     /* 如果需要给创建的用户授权，则在此处添加相应的授权命令 */   
     MONMSG MSGID(CPF0000) EXEC(CHGVAR &ERRORS &ERRORS + 1)            
   ENDDO                                                              
ENDDO                                                                 
ENDPGM    

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com