AS400学习笔记 2006/04，Daniel，Easycon
d．DSPJOBLOG 中特殊符号的意义：
>> ---- 正在运行的命令或下一个要运行的命令 > ------ 作业已被处理
。。----- 命令没有被处理 ？ ------ 需要回复消息
e．为了防止系统定期清理joblog，可以发送joblog文件到独立的输出队列 CHGPRTF FILE(QPJOBLOG) OUTQ(QEZJOBLOG) Job Table
a．如果job table太大，系统性能将受到影响（在IPL过程中） b．使用CHGIPLA命令改变选项，以压缩JOB table。
c．使用命令DSPJOBTBL显示job table。其中会包含的信息： * job talbe的数量
* job talbe的尺寸，字节数 * 在job talbe中包含的条目数 * 对于新使用的job的条目数
* 在job队列（活动job或者已经完成但还没有脱机到输出队列中的job）中，
当前被使用的条目数。
* 在job队列（活动job或者已经完成但还没有脱机到输出队列中的job）中，
当前未被使用的条目数。 批处理作业：
a．提交批处理作业的方法 * 立即提交 * 计划提交
b．立即提交： SBMJOB
输入批处理需要的命令，如果提交的是程序，则前面加CALL。例如：CALL
TESTJOB。如果提交的是RExx程序包，使用STRAR RExx (STRRExPRC)
c．计划提交：WRKJOBSCDE或者在SBMJOB中输入计划运行的时间
d．如果job队列没有隶属于某个子系统，则运行在这个job队列中的job将不会被运
行。可以使用CHGJOB命令来移动job到别的job队列中
e．改变job的优先级
* 最高级为0，最低级为9。用户提交的job最高优先级为1，0为保留给系统，
用以改变优先级为1的job，使它处于队列的最顶处。
f．如果使用CHGJOB改变job的优先级，打印优先级或者时间片，它只能影响一次，
下次运行时将恢复成原始值。要想持续有效，需要改CLASS. 消息（message）：
a． message ID的格式： CPF0083 CPA~CPZ ：系统消息 CBE~CBX：cobol 消息 LBE~LSC：colbol消息 MCH： LIC消息
QRG~RXT：RPG语言消息 SBX~SSC： colbol消息 SQL： SQL消息 常用的目标类型列表：
* LIB 库 * FILE 文件
- 21 -
AS400学习笔记 2006/04，Daniel，Easycon
* MSGF 信息文件 * PGM 程序 * CMD 命令
* JOBQ 作业队列 * DTAQ 数据队列 * MSGQ 信息队列 * OUTQ 输出队列 * DTAARA 数据域 * JRN 日志
* JRNRCV 日志接受器 * USRPRF 用户简要表 * SBSD 子系统描述 * JOBD 作业描述 * LIND 线路描述 * CTLD 控制器描述 * DEVD 设备描述 常用的目标操作列表：
* WRK 工作 * CRT 建立 * ADD 增加 * CHG 改变 * DLT 删除 * DSP 显示 * EDT 编辑 * CPY 拷贝 * MOV 移动 * RNM 变名 * SAV 备份 * RST 恢复 * RTV 获取 * GRT 授权 * DMP 转储 关于文件类型的补充：
*DTAQ *DTAARA *MSGF *QRYDFN
这些类型的object 一般是在CL中用到， 相应的由命令语句生成，相应的由如下命令生成
CRTDTAQ 创建一个数据对列。可能这个数据队列功能要多于一般队列，可以在不同400服务器通信。 CRTDTAARA 创建一个数据区域，可以是一个临时的存放数据的区域，可理解成一个全局变量，它有一个好处就是
更改变量值不需要重新编译调用它的程序。比如有用户不确定的统计某个车间的库存数，可动态的改变这个data area区域
里的变量值（增加，减少变量）就可以统计不同车间的库存数这样不需编译这个调用它的程序。 CRTMSGF 创建自己的message file , 一般系统message file 是在这个命令可检索到 WRKMSGF MSGF(*ALL)
- 22 -
AS400学习笔记 2006/04，Daniel，Easycon WRKQRY 400提供了一个专门做query 文件的功能，可以方便的过滤，累加一些字段。做完这种query后就生成
了*QRYDFN对象。
在TYPE处按下 F1 键可看看。
*DTAQ A data queue (*DTAQ) object is used to communicate and store data used by several programs in a job or between jobs. Multiple jobs can send and receive data from a single data queue.
*DTAARA A data area (*DTAARA) object contains a data value that can be used and changed by different jobs. *MSGF A message file (*MSGF) object contains message descriptions, which are used t describe status and error conditions. *QRYDFN
A query definition (*QRYDFN) object contains information about a query or report defined by a user of the Query/400 licensed program.
3.2 关于lock的一些概念
锁的五种类型
(1) Exclusive(*EXCL): 只有该锁的路径选择过程(routing step)才可能使用该对象；在其他任务中的路径选择过程不能存取该对象。
(2) Exclusive-allow-read(*EXCLRD): 占用该锁的路径选择过程可能读或更新该对象，而其他任务中的路径选择过程只能读它。
(3) Shared-for-update(*SHRUPD): 占用该锁的路径选择过程以及在其他任务中的路径选择过程是可以读或更新该对象。
(4) Shared-no-update(*SHRNUP): 占用该锁的路径选择过程只可以读该对象；而在其他任务中的路径选择过程也是只读该对象。
(5) Shared-for-read(*SHRRD): 占用该锁的路径选择过程只可以读该对象；而在其他任务中的路径选择过程是可以读或更新该对象。
缺省情况下，CL和HLL(高级语言程序）程序只在输入(I)物理文件成员的数据上放置SHRRD锁，并在只输出(O)和输入-输出(U)物理文件成员的数据上放置*SHRUPD锁。
后面这一句不是很理解，为什么O/U类型的文件不放*EXCLRD锁呢？个人理解应是只允许当前程序更新， 别的程序只能读。需要高手指教！
显示对象(object)和记录(record)的锁有三个命令：
(1) wrkobjlck: 查看由所有任务在一个对象上使用的lock。
(2) dsprcdlck(display record locks): 查看一个物理文件中已锁定的记录. (3) dspjob: 查看一个任务的所有外部锁，包括已使用的那些锁和该任务正等待使用的那些
- 23 -
AS400学习笔记 2006/04，Daniel，Easycon
锁。
3.3 AS400口令问题
A：我们公司一台as400，好久没有关机了，今天居然发现秘密不对，里面有重要的应用，而且用户也给锁掉了，不知道该怎么办，希望大侠指点。
Q：如果是DST 密码不对，可以用 22222222 登陆，密码22222222，或者用户11111111，密码11111111
如果是IPL用户密码不对，则需要在控制面板调到 01 D M V=F,放入系统光盘第一张，起来后，把系统的密码恢复。
A：5.1的DST密码被改了，现在把密码忘了，怎么把密码取出 Q：CHGDSTPWD *DEFAULT
需要用QSECOFR用户，而且新的密码不能与以前所用的相同
3.4 实用命令
?
?
查看当前所有用户情况
wrkusrjob user(*all) status(*active) jobtype(*interact) astlvl(*basic) 查看系统SPOOL FILE WRKSPLF 查看用户属性 wrkusrprf
把某个文件发送到打印机上
CHGPRTF FILE(FILENM) OUTQ(PRINTER NAME)
?
?
?
对PGM的操作命令
CRTPGMMOD 创建PGM MODULE CRTPGM 创建PGM UPDPGM 更新PGM DLTPGM 删除PGM
修改用户口令
修改口令使用命令 CHGPWD ? 系统授权相关命令
系统权限分为两个主要类型：特殊权限和指定权限。特殊权限是由用户特征文件来定义的；指定权限则允许用户对系统目标指定操作。
指定权限使用命令： GRTOBJAUT 来授权，使用 RVKOBJAUT 来收回权限，或者使用命令 EDTOBJAUT 编辑权限。 ? 查看周期作业的定义信息：
WRKJOBSCDE QSYS Work with Job Schedule Entries
?
3.5 常用CL命令
系统功能 命令 命令功能 - 24 -
AS400学习笔记 2006/04，Daniel，Easycon
修改过程控制 CL过程界限 CL过程逻辑 CALL (Call) CALLPRC (Call Procedure) RETURN (Return) PGM (program) (1) ENDPGM (End Program) (1) IF (If) (1) ELSE (Else) (1) DO (Do) (1) ENDDO (End Do) (1) GOTO (Go To) (1) 调用一个程序 调用一个过程 返回到引起程序或过程运行的下一条命令 指出CL过程源码的开始 指出CL过程源码的结束 根据逻辑表达式的值执行命令 对IF命令为假条件定义采取的行动 指出DO组的开始 指出DO组的结束 转移到另外的命令 修改CL变量的值 说明一个变量 修改CL变量的值 修改日期格式 修改数据区 生成一个数据区 删除一个数据区 显示一个数据区 把数据区的内容复制到一个CL变量中 取消由前面的RCVF,SNDF或SNDRCVF 命令对一个显示文件发出的输入请求. 说明一个显示文件或数据库文件 从显示文件和数据库文件中读记录 CL过程变量 替换 数据区 CHGVAR (Change Variable) (1) DCL (Declare) (1) CHGVAR (Change Variable) (1) CVTDAT (Convert Date) (1) CHGDTAARA (Change Data Area) CRTDTAARA (Create Data Area) DLTDTAARA (Delete Data Area) DSPDTAARA (Display Data Area) RTVDTAARA (Retrieve Data Area) 文件 ENDRCV (End Receive) (1) DCLF (Declare File) (1) RCVF (Receive File) (1) RTVMBRD (Retrieve Member Description) (1) 取得数据库文件成员的描述 SNDF (Send File) (1) SNDRCVF (Send/Reveive File)(1) WAIT (Wait) (1) 信息 MONMSG (Monitor Message)(1) RCVMSG (Receive Message)(1) RMVMSG (Remove Message)(1) RTVMSG (Retrieve Message)(1) SNDPGMMSG（Send Program Message）(1) SNDRPY （Send Reply）(1) SNDUSRMSG（Send User Message）(1) 往显示文件中写记录 往显示文件中写记录,在用户回答后读记录 等待从显示文件发出的SNDF,RCVF或SNDRVF命令接收文件 监控送往程序队列的逃逸,状态和通知信息 把信息从信息队列复制到一个CL变量中 从信息队列取消信息 把预先定义的信息从信息文件复制到CL变量中 往信息队列发送程序信息 给查询信息的发送者发送回答信息 给显示工作站或系统操作员发送消息或查询信息 - 25 -