如何使用CL程序在IBM i上批量创建用户
作者:佚名
上传时间:2023-04-27
运行软件:IBM
软件版本:IBM i 7.2
版权申诉
使用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
用户评论
相关推荐
如何使用CL程序在IBM i上批量创建用户
使用CL程序作为批处理来创建多个用户可提高效率。本示例代码通过循环读取输入文件中的用户信息,将其传递给CRTUSRPRF命令进行用户创建。/* CL程序:CRTUSRPRFBTCH */ DCLF
IBM i 7.2
IBM
2023-04-27 05:34
使用CL指令在IBM i (OS/400)上创建用户
该示例代码展示了如何在IBM i (OS/400)操作系统中使用CL指令创建用户。实现方式是利用IBM i操作系统的安全性功能,通过授权指令并设置密码,创建新用户。注释和打印语句使用中文。/* 创建
IBM i 7.3
IBM i系列操作系统
2023-03-25 23:17
IBM i (OS/400)中如何使用CL程序创建新的用户库
当您需要在IBM i (OS/400)中创建一个新的用户库时,可以通过CL程序来实现。以下是一个示例程序,可以根据您的需求进行修改和使用。IBM i (OS/400) CL程序示例代码/* 创建新
IBM i (OS/400) V7R3M0
IBM i (OS/400)
2023-03-20 18:51
如何在IBM i (OS/400)上创建用户
在IBM i(原名OS/400)操作系统上,用户管理是一个非常重要的任务。创建用户时,需要了解以下几个概念:用户组:用户组是一组用户的集合,这些用户有着相同的权限和访问控制。用户ID:用户ID是
最新版的IBM i (OS/400)
IBM
2023-05-11 00:02
如何在IBM i上使用CL编程语言创建新的库(库对象)?
在IBM i上,CL(Control Language)是一种常用的编程语言,用于管理操作系统和资源。本示例将简要介绍如何使用CL编程语言创建新的库对象,以及其功能和实现方式。/* 创建新的库对象
IBM i 7.4
IBM i (OS/400)
2023-10-12 13:44
如何在IBM i (OS/400)中使用CL程序调用RPG程序
本示例演示了如何在IBM i (OS/400)中使用CL程序调用RPG程序的方法。使用CL程序可以快速方便地调用各种RPG程序完成复杂任务。/* CL程序调用RPG程序 */PGMDCL VA
IBM i 7.3
IBM i (OS/400)
2023-03-20 00:23
如何在 IBM i(OS/400)中使用 CL程序调用RPG程序?
本文介绍在IBM i (OS/400)操作系统中使用CL程序(Control Language Program)调用RPG程序的方法。RPG是一种面向IBM i (OS/400)操作系统的高级编程语言
IBM i 7.3
IBM i (OS/400)操作系统
2023-05-23 11:52
在IBM i (OS/400)上使用CL程序时,如何解决错误CPF2105?
CPF2105错误通常表示在程序中找不到或无法访问所需的文件或库。要解决这个问题,首先确保程序引用的文件和库存在,并且用户有足够的权限进行访问。您还可以检查程序中的文件引用是否正确,确保文件名和库名的
IBM i (OS/400)
IBM i (OS/400)
2023-11-12 11:35
在IBM i (OS/400)上使用CL程序时,如何解决CPF2105错误?
CPF2105错误通常表示在程序执行期间发生了错误,导致程序中止。要解决这个问题,您可以采取以下步骤:查看CPF2105错误消息的详细信息。您可以使用DSPJOBLOG命令查看作业日志,以获取有
IBM i (OS/400)
IBM i
2023-11-15 21:48
在IBM i (OS/400)上使用CL程序时,如何解决CPF5035错误?
CPF5035错误通常表示文件或记录锁定问题。要解决这个问题,您可以执行以下步骤:检查锁定情况: 使用DSPJOB命令检查当前作业的锁定情况。您可以查看是否有其他作业锁定了相同的文件或记录。
IBM i (OS/400)
IBM i
2023-12-13 15:14