AS400开发初阶
AS/400开发初阶
1OS/400 (3)
1.1基本系统概念 (3)
1.2作业 (3)
1.3程序开发 (4)
1.3.1ＰＤＭ介绍 (4)
1.3.2AS/400的源码编辑器 (5)
1.3.3AS/400的程序 (6)
2DB2/400简介 (8)
2.1DDS简介 (8)
2.2创建一个物理文件PF (8)
2.3创建一个逻辑文件LF (9)
2.4DB2的常工具 (9)
3RPG语言 (9)
3.1H定义 (10)
3.2F数据库引用 (10)
3.3D数据定义 (10)
3.3.1定义格式 (11)
3.3.2例子 (11)
3.4C计算逻辑 (12)
3.4.1常用C源码结构 (12)
3.4.2程序参数 (13)
3.4.3子例程 (13)
3.4.4调用其他程序 (13)
3.4.5程序分支 (13)
3.4.6程序退出 (15)
3.4.7数据库操作 (15)
3.4.8常用RPG操作码 (17)
4后台业务系统开发 (19)
4.1联机交易 (19)
4.1.1交易调试 (19)
1OS/400
1.1 基本系统概念
●对象
AS/400的操作对象称为：Object。
Object包括的信息：
1．包含该对象的库
2．对象名
3．对象类型（*PGM,*FILE,…）
4．对象的属性（对于*FILE，有LF,PF-DTA,PRTF,DSPF）
5．拥有该对象的用户权限
AS/400的对象由（库/对象名/对象类型）唯一确定。
查看某对象：WRKOBJ
●库
库也是一种对象，相当于AS/400的目录。
DOS目录有多级，即目录下有目录。但库只有一级，库下不能有库。
AS/400的文件系统只有3级：库->文件->成员；
例如在APPLIB库下有APPPF的文件，表示为APPLIB/APPPF。
创建库：CRTLIB
●库列表
相当于作业的工作目录，类似于DOS的PA TH
当前作业库列表的常用命令：
dsplibl
edtlibl
addlible
●汉字支持
使用汉字支持：CHGSYSLIBL QSYS2989
不使用汉字支持：CHGSYSLIBL LIB(QSYS2989) OPTION(*REMOVE)
●命令菜单
OS/400中，进入一个菜单，用go menuName
查看某一相关的命令
go CMDxxx xxx代表命令含义的缩写，例如想看与库有关的命令，go cmdlib
1.2 作业
?概念
作业：AS/400所有程序运行以JOB方式
命令：wrkactjob
子系统（subsystem）:在OS/400中的一个作业运行环境，该运行环境定义一定的资源，如CPU，内存，IO等。在OS/400中可以定义多个子系统
作业标识：Job name/Job user/Job Number
F11可看到
5-work with看
作业类型：BCH，INT
作业功能：PGM-QEZSCNEP，CMD-WRKACTJOB，MNU-MAIN
作业状态：RUN，DSPW，DEQW，MSGW
常用命令
管理活动作业：wrkactjob
管理某一作业：wrkjob job(Number/User/Name);
管理当前作业：wrkjob;
终止作业：wrkactjob+4+option(*immed);
终止当前作业的当前运行程序（例如程序死锁）：
查看作业日志：dspjoblog；wrkjob;
查看作业打开的文件：dspjoblog+14
查看作业的库列表：dspjoblog+13
当查看JOB的LOG的信息
1．显示作业的LOG列表
2．将光标移到某行信息，按F1看详细信息
3．看该信息由那一程序产生。再按F9
4．AS/400的信息文件（MSGF，由应用EC/系统定义）
WRKMSGF命令
后台业务系统的MSGF：EC
常用系统MSGF：QCPFMSG
1.2.1程序开发
1.2.2ＰＤＭ介绍
ＰＤＭ是ＡＳ／４００的集成开发环境
ＡＳ／４００的程序文件结构
库（libraries）／源码文件（objects）／源码成员（members）（程序源码）使用ＰＤＭ
１．进入ＰＤＭ命令
ＳＴＲＰＤＭ
２．显示ＰＤＭ的菜单，选１，并键入指定源码库
３．显示该指定源码库
（１）按Ｆ６，创建新源码库
（２）在指定的库，键入１２，进入该源码库
４．显示该指定源码库的所有源码文件
（１）按Ｆ６，创建新源码文件
（２）键入１２，进入指定的源码文件
５．显示该源码文件下的所有源码成员
（１）按Ｆ６，创建新的源码成员
（２）键入２，编辑源码
（３）键入３，拷贝源码
（４）键入４，删除源码
（５）键入５，显示源码
６．退出ＰＤＭ
（１）按Ｆ１２，退回上一级
（２）按Ｆ３，退到ＰＤＭ菜单1.2.3AS/400的源码编辑器
*启动编辑器：STRSEU命令/PDM
*编辑界面分三部分
行序号——系统产生
数据内容——用户编辑
最后修改日期——系统产生
*左移屏幕F19；右移屏幕F20；
*编辑命令（在行序号上敲入命令）
1．位置
A-在当前行后
B-在当前行前
2．插入行
I-在当前行后，插入一空行
3．删除行
D-删除当前行
4．删除行块
DD-在行块的首行位置，键入DD
DD-在行块的尾行位置，键入DD
回车
5．拷贝行
C-在要拷贝的行位置，键入C
A/B-拷贝到目标位置的后/前
回车
6．拷贝行块
CC-在行块的首行位置，键入CC
CC-在行块的尾行位置，键入CC
A/B-拷贝到目标行位置的后/前
回车
*存盘
在SEU命令行，键入SA VE
*退出SEU
F3
1.2.4AS/400的程序
*程序类型
C
CL
CLLE
RPGLE
*创建程序源码
2．创建一个源码库
CRTLIB LIB(MYLIB)
3．创建一个源码文件
CRTSRCPF FILE(MYLIB/MYSRCPF) RCDLEN(112) IGCDTA(*YES) 4．创建一个源码成员
STRSEU SRCFILE(MYLIB/MYSRCPF) SRCMBR(MYSRCMBR) TYPE(RPGLE) 备注：
（１）源码文件其实是一种类型的数据库文件，该数据库的记录结构由
３个字段构成：
字段名类型长度
SRCSEQ 数字６，２源码行序号
SRCDAT 数字６源码行最后修改日期
SRCDTA 字符100 源码行内容
编写源码行，就相当于往数据库添加记录
（２）程序源码是源码文件中的一个源码成员，源码文件可以包括多个
源码成员
*程序编译
RPGLE程序，使用CRTBNDRPG命令
CRTBNDRPG PGM(PGMLIB/MYPGM) SRCFILE(MYSRCPF/MYSRCMBR)
SQLRPGLEC程序，使用CRTSQLRPGI命令
CL，CLLE程序，使用CRTBNDCL命令
PDM中，编译快捷命令
14 编译
CP RPGLE的编译
CQ SQLRPGLE的编译
*程序编译出错
查编译信息：
使用编译产生的SPOOL FILE，它是一个文本文件，报告编译过程中的相关信息。
用WRKSPLF命令，列出本交互作业的所有SPOOL FILE，找出名字与程序名字相同的最后一个SPOOL FILE，就是最后一次编译所产生的
SPOOL FILE。
查看一般流程：
1．进入SPOOL FILE
2．在Control栏敲入”b”,（bottom）,翻到SPOOL FILE的最后
3．在Message Totals: 项中，如果没有（警告/错误/严重错误）的信息，则表示编译通过
Warning (10) . . . . . . . : 0
Error (20) . . . . . . . : 0
Severe Error (30+) . . . . . . : 0
4．如果编译不通过，往前翻一页，按PgUp键,查看错误报告
Msg id Sv Number Message text
*RNF7031 00 108 xxxxxxxx
*RNF7066 00 1 xxxxxxxx
*RNF7030 30 1 xxxxxxxx
5．注意”Sv”中，不为00的项目，即为编译不通过错误语句
6．查看源码中错误语句，在Find栏中，敲入”Sv”不为00的Msg id,例如RNF7030，然后按F16搜索源码，定位在出错的源码语句7．退出ＳＰＯＯＬＦＩＬＥ，重新进入源码编辑，修改源码
8．重新编译
*程序执行
CALL PGM(MYLIB/MYPGM) PARM(“PARM1” “PARM2” “PARM3”)
*程序调试
使用源码调试的程序，使用编译命令编译时参数DBGVIEW不能为*STMT
（１）启动调试
STRDBG PGM（PGMLIB/PGMOBJ）UPDPROD（*YES）（２）设置调试断点
将光标停在断点源码行，按F6。如要取消断点，再按F6
可以设置多个断点
（３）完成设置断点后，退出
（４）调用程序，进入程序并停在断点
CALL PGM(BANKOBJ/MYRPGLE)
（５）调试命令
*单步执行F10
*多步执行F12
*可以重新设置/取消断点F6
*显示变量值V AR1
方法1．将光标移到该变量V AR1，按F11
方法2．在debug命令行，键入EV AL VAR1
*改变变量值V AR1
EV AL V AR1=xxxxxx
（６）退出程序
F3
（７）结束调试
ENDDBG
2DB2/400简介
2.1 DDS简介
DDS（数据描述规范）是一种源码，是创建物理文件、逻辑文件、显示文件等源码。
使用PDM编写DDS
2.2 创建一个物理文件PF
物理文件是存放实际数据的数据库文件。
源码类型：PF
PF DDS的内容分4部分
（１）文件级关键字
作用范围：整个PF
REF（PFNAME）字段定义参照自PFNAME的字段
UNIQUE 控制索引键字唯一
…
（２）记录定义
*定义记录
名称类型为R
R RCDNAME
*记录级关键字
FORMAT（PFNAME）记录结构参照自PFNAME的记录结构
….
（３）字段定义
*字段名
*字段类型
P-压缩型数字
S-区位型数字
‘’或A-字符
L-日期
T-时间
O-支持汉字的字符
*字段级关键字
COLHDG(…字段描述?)
（４）索引键字
如果有索引键字定义，则该数据库文件包含索引
名称类型为K
可以有多个键字
编译DDS，创建PF
CRTPF命令
或14
2.3 创建一个逻辑文件LF
逻辑文件是索引文件
（１）文件级关键字
UNIQUE 控制索引键字唯一（２）记录级关键字
PFILE（PFNAME）逻辑文件对应的物理文件（３）索引键字
名字类型K
可以有多个索引键字
2.4 DB2的常工具
?RUNQRY
浏览数据库文件
RUNQRY QRYFILE((AM1))
RUNQRY QRYFILE((AM1)) RCDSLT(*YES)
?UPDDTA
UPDDTA FILE(BANKDTA/MYPF)
增加/更新/删除记录
1．F9 当前插入记录
2．F23 删除当前记录
3．回车更新当前记录
4．F3 退出
?STRSQL
执行SQL语句
3RPG语言
RPGLE的结构分为以下几部分
3.2 F数据库引用
每一行F源码结构：
FName Type Desig EOF A/U Seq Fmt Lmts RA T Device Keywords Comment
定义格式：
●文件名字
●使用类型
I 只读
O 只写，不能更新
U 更新
●文件指定
F 全过程文件
●文件添加
A 文件可以进行记录
●文件格式
E 外部描述文件
●地址类型
空不使用索引语句，不能用CHAIN，SETxx语句
K 使用索引语句
●设备
DISK 数据库文件
●关键字
PREFIX（xxx）引用数据库字段前加前缀xxx
COMMIT 使用数据更新的确认/回滚机制
程序中使用COMMIT，该作业必须事先启动COMMIT控制
启动COMMIT：STRCMTCTL LCKLVL(*CHG)
关闭COMMIT：ENDCMTCTL
USROPN 用户程序自定义打开。
如果没有该关键字，程序打开时就打开文件。
3.3 D数据定义
每一行D源码结构：
Name E S/U Type From To/Length DataType DecPos Keywords Comment
●数据名称
●说明类型
C 常量
S 独立变量
DS 数据结构
●长度
●数据类型
空/A 字符
D 日期
P/S 压缩/区位数字
T 时间
* 指针
●小数位长度
●关键字
3.3.2例子
●定义常量
Name Type To/Length DataType DecPos Keywords C_V AR C 'HELLO'
●定义字符变量
Name Type To/Length DataType DecPos Keywords V_STR S 10 A
●定义数值变量
Name Type To/Length DataType DecPos Keywords V_NUM S 14 S 2
小数点定义要右对齐、
●定义日期变量
Name Type To/Length DataType DecPos Keywords V_DA TE S D
系统默认使用*ISO日期格式，即2002-09-21格式
●定义时间变量
Name Type To/Length DataType DecPos Keywords V_TIME S T
●定义数组
定义有10个元素的字符数组
Name Type To/Length DataType DecPos Keywords
V_DIM S 10 A DIM（10）
数组元素使用,建议使用RPG IV的格式。
V_DIM(N)
●定义数据结构
Name Type To/Length DataType DecPos Keywords
ACCT DS
CUNO 10 A
ACSF 5 A
3.4 C计算逻辑
3.4.1常用C源码结构
每一行C源码结构：
Lvl N01 Factor 1 OpCode Factor 2 Result Len Dec Hi Lo Eq Comment
●指令因子1
●指令操作码
●指令因子2
●执行结果
●长度
如果执行结果字段不是在D数据定义部分定义的，这需要在该行源码定义
●小数位长度
如果执行结果字段不是在D数据定义部分定义的，这需要在该行源码定义
●Hi指示器
Hi指示器。指示器的概念：对于执行了某些RPG指令，系统将视情况改变指示器的值。
指示器只有两个值：*ON/*OFF，或者?1?/?0?
例如按某索引键字定位数据库文件某一记录
KEY CHAIN RCD 80
该语句定义了*IN80指示器。
数据库ＰＦ不存在有ＫＥＹ这个索引键字的记录，则*IN80被系统置为*ON;否则置*OFF
●Lo指示器
●Eq指示器
3.4.2程序参数
*ENTRY PLIST
PARM parm1
PARM parm2
3.4.3子例程
子例程
*概念：相当于程序里的过程
*使用：
（１）定义子例程代码段
在程序最后定义：形式
SRNAME BEGSR
….／／子例程代码
ENDSR
（２）执行子例程
EXSR SRNAME
自定义子例程
有（１）部分，也有（２）部分
系统子例程
有（１）部分，但由系统执行
*INZSR －程序的初始化，执行程序首先执行该子例程3.4.4调用其他程序
CALL …PGMNAME?
PARM PARM1
PARM PARM2
3.4.5程序分支
逻辑表达式
使用OR、AND、NOT
●IF选择语句
IF / ENDIF
例子：
IF V AR1=?var1? OR
V AR2=?var2?
。。。
ENDIF
●SELECT多项选择语句
SELECT / WHE / OTHER /ENDSL
例子：
SELECT
WHEN V AR1=?var1? AND V AR2=?var2
。。。
WHEN V AR1=?rav2?
。。。
OTHER
。。。
ENDSL
●DOW循环语句
DOW / ENDDO
例子：
DOW NUM1<=50 AND NUM1>10
。。。
IF NUM1<=30 AND NUM1>20
ITER //重新回到循环开始
ENDIF
。。。
IF NUM1<40 AND NUM1>35
LEAVE
ENDIF
。。。
ENDIF
●GOTO跳转
（１）定义跳转标签
T_END TAG
（２）执行GOTO
GOTO T_END
3.4.6程序退出
EVAL *INLR=*ON
RETURN
3.4.7数据库操作
3.4.7.1 检索记录
●使用检索条件
*对于不使用索引的数据库，RPG程序中不能检索记录，只能顺序存取记录。
*对于使用索引的数据库，RPG可以检索记录
●精确定位检索方式
直接按键字定位记录，并读取记录数据
使用CHAIN指令
K_AM CHAIN RAM 80
系统先将*IN80初始化为*OFF
如果找到记录，则*IN80=*OFF。找不到记录，则*IN80=*ON
使用%FOUND，代替指示器操作
●模糊定位检索方式
分两步：
1.先按键字模糊定位记录，使用SETLL、SETGT指令
例如：有一PF（记录格式名RCD）有三条记录：
KEY1 RECORD1
KEY2 RECORD2
KEY3 RECORD3
◆使用SETLL情况：
执行：
KEY2 SETLL RCD
KEY1 RECORD1
存取游标—>
KEY2 RECORD2
KEY3 RECORD3
◆使用SETGT情况：
执行：
KEY2 SETGT RCD
KEY1 RECORD1
KEY2 RECORD2
存取游标—>
KEY3 RECORD3
2读取邻近记录，使用READ、READE、READP、READPE指令例子：
假设游标已经停在KEY2和KEY3之间。
◆READ
往下读取一条记录
READ RCD 80 将读取到KEY3的记录
◆READE
往下读取指定键字的记录
KEY3 READE RCD 80 将读到KEY3的记录
KEY2 READE RCD 80 将读不到记录，*IN80=*ON
◆READP
往上读取一条记录
READP RCD 80 将读取到KEY2的记录
◆READPE
往上读取指定键字的记录
KEY2 READPE RCD 80 将读取到KEY2的记录
KEY3 READPE RCD 80 将读不到记录，*IN80=*ON
3.4.7.2 更新记录
使用UPDATE指令，分两步
1．必须用CHAIN精确定位要更新的记录
2．UPDATE
UPDA TE RAM
3.4.7.3 写记录
使用WRITE指令
WRITE RAM
3.4.8常用RPG操作码
●MOVE
用于字符/数值/日期等类型
?MOVE
MOVE …HELLO? STR1 10 STR1=? HELLO?
?MOVEL
MOVEL …HELLO? STR1 10 STR1=?HELLO ?
?MOVE(P)
先清空变量，再MOVE
●EV AL
用于字符/数值/日期等类型
EV AL STR1=?HELLO?
EV AL NUM1=(2+3)*5/10
EV AL DATE1=D?2002-09-21?
●内置函数
◆%SUBST
取子串
字符串2=SUBST(字符串1：要截取的：截取长度)
EV AL STR1=?HELLO WORLD?
EV AL STR2=%SUBST(STR1:7:5)
STR2=?WORLD?
◆%TRIM
去掉字符串空格
EV AL STR1=?HELLO WORLD ?
EV AL STR2=%TRIM(STR1)
STR2=?HELLO WORLD?
●日期操作
计算两个日期间的天数、月数、年数
EV AL DATE1=?2001-09-15?
EV AL DATE2=?2002-09-22?
DATE2 SUBDUR DATE1 DNUM:*D
DATE2 SUBDUR DATE1 MNUM:*M
DATE2 SUBDUR DATE1 YNUM:*Y
DNUM为两日间的天数
MNUM为两日间的月数
YNUM为两日间的年数
计算某一日，相隔一段时间的日期
EV AL DATE1=?2002-09-22?
DATE1 SUBDUR 3:*D DATE2
DATE1 ADDUR 4:*M DATE3
DATE1 SUBDUR 5:*Y DATE4
DATE2为相对于?2002-09-22?前3天的日期，即为?2002-09-25?
DATE3为相对于?2002-09-22?后4个月的日期, 即为?2003-01-22?
DATE2为相对于?2002-09-22?前5年的日期，即为?1997-09-22?
详细的指令集，参看RPG Reference.
4后台业务系统开发
4.1 联机交易
●交易流程
（１）柜员在网点终端选择交易界面，录入交易数据，并提交交易
（２）前台SCO服务器将柜员录入的交易数据组成一个数据串（包），通过TCP/IP通讯发送到AS/400主机
包结构定义：
在AS/400的comlib库上，有comm.txt文件，定义了所有交易的包结构（３）AS/400后台通讯服务器接收到数据包，根据包里定义的处理码字段，调用相应的RPG程序。
处理码与程序对应关系
在AS/400的comlib库上，有TRXNLOAD. TRXNLOAD，定义了所有处理码
与RPG程序的对应关系
（４）RPG程序运行，并返回信息给AS/400后台通讯服务器
（５）后台通讯服务器将返回信息发送给前台SCO服务器。
（６）前台SCO服务器显示主机返回信息到网点终端
●前台
进入联机交易程序，执行cx
相关配置cx.def:
SERVER 192.168.1.20 AS/400的IP地址
PORTNM 1039 AS/400的通讯端口
REGION 0116 交易网点号
●后台
后台的交易处理程序
*通讯程序COMLIB
*可执行程序放在BANKOBJ
*源码放在BANKSRC
*交易数据放在BANKDTA
4.1.1交易调试
调试流程
（１）记录交易数据包
●交易用户在前台的交易录入交易数据，并向主机提交
●主机执行RPG交易程序
写交易日记PI表，记录前台上传的数据包
PI表的结构：
TSRF：交易流水号，为每一笔交易分配一个唯一序号
BAG：数据包内容
（２）交易程序调试
●从数据包确定4位长处理码
根据包前4位的包名，查comlib/comm..txt；
确定出处理码（PRID）在包的位置
根据处理码位置，确定处理码
●确定RPG交易程序
根据处理码，查COMLIB库中的TRXNLOAD. TRXNLOAD，确定RPG处理程序
●调用调试程序
CALL PGM(DEBUGPGM) PARM('交易程序名? '该笔交易流水号')
●进入调试状态，源码调试
银行核心系统环境管理之AS400版本部署
银行核心系统环境管理之 AS400版本部署 ***项目组 ***核心系统现已进入UAT测试阶段，现将我们项目组的核心版本部署以及发布流程做一个系统的说明。 ***FAT核心系统的基础库列如下： SRCFATGS SRCFATGF SRCFATGD I725DCBASI I725NLCITP I725NCCHP I725IFIXP I725IBASP I725CSMSPT QGPL QTEMP 在FAT测试的初始阶段，该库列就是FAT的核心库列，其中：SRCFATGS，SRCFATGF，SRCFATGD为数据库，I725DCBASI为程序库，其它为ICBS及AS400系统的基础库。版本流程如下： 为了更规范的符合测试工程的流程，每个测试轮次开始时，我们需要取得核心最新最全的代码以及最完整的数据库脚本。这样，就有了我们现在所使用的PRAM环境和UAT环境，再者，以前的FAT环境（I725DCBASI）作为我们基础库，永远保存我们最新的程序源码和目标码。请参考如下的库列结构：PRAM（SIT环境）UAT (FAT测试环境) SRCPARMS I725CSMSP SRCPARMF SRCUA T1S SRCPARMD SRCUAT1F I725PRAMMT SRCUA T1D I725PARMMU I725DCPGMT I725NLCIT I7 25DCPGMU I725NCCHP I725NLCITP I725IFIXP I725NCCHP I725IBASP I725IFIXP QGPL I725IBASP QTEMP QGPL I725CSMSP QTEMP 说明：库列结构大致一样，数据库：SRC....S/F/D；程序库：I725.....MT/MU。 其中，SRC.....S存放参数，SRC....F存放文件，SRC....D存放核心交易数据；
IBM_AS400_RPG学习手册
1 简单说明 (3) 2 程序代码行的编写 (3) 2.1 最简单的RPGLE程序 (3) 2.2 举例准备 (3) 2.3 简单的程序流程 (4) 2.4 常见的程序流程 (5) 2.5 F行说明 (5) 2.5.1 内容说明 (5) 2.5.2 常用例子 (9) 2.5.3 补充说明 (10) 2.6 D行说明 (10) 2.6.1 内容说明 (10) 2.6.2 常用例子 (13) 2.6.3 补充说明 (14) 2.7 入口参数 (14) 2.8 C行说明 (16) 2.8.1 写在前面 (16) 2.8.2 内容说明 (17) 2.8.3 ILE操作码分类： (18) 2.8.4 ILE操作码 (19) 2.8.4.1 A--C (19) 2.8.4.2 D--E (27) 2.8.4.3 F--N (32) 2.8.4.4 O--R (39) 2.8.4.5 S--Z (43) 3 和程序相关的数据库知识 (49) 3.1 LF（逻辑文件） (49) 3.1.1 逻辑文件概念 (49) 3.1.2 有关编译的问题 ..................................................... 错误！未定义书签。 3.1.3 逻辑文件对效率的影响 (51) 3.2 MEMBER (51) 3.3 游标 (52) 3.3.1 游标的概念 (52) 3.3.2 不同操作码对应的游标的处理 (52) 3.3.3 “有且仅有”的游标 (53) 3.3.4 LOV AL、HIV AL对应的游标操作 (53) 3.4 事务处理-- COMMIT (54) 3.4.1 概念描述 (54) 3.4.2 使用方法 (54) 3.4.3 注意事项 (55) 3.5 关于锁表的问题LCKW (56) 4 DEBUG调试以及常见出错信息 (56)
20150629-AS400测试—答案
AS400基础考核--答案 一、填空题（每小题2分，共20分） 1、编译RPG和RPGLE的CL命令分别是：CRTRPGPGM和CRTBNDRPG。 2、编译PF和LF的CL命令分别CRTPF和CRTLF 。 3、编译CLP程序的CL命令是：CRTCLPGM。 4、创建源物理文件的CL命令是：CRTSRCPF。 5、%MONTHS是为指定日期加上或减去给定月份数，现执行以下语句： D’2011-05-31’+%MONTHS(1), 运行结果是：2011-6-30。 6、查看假脱机文件的命令是：WRKSPLF。 7、CL中日期格式转换命令是：CVTDAT。 8、复写物理文件命令是：OVRDBF。 9、为物理文件添加日志的命令是：STRJRNPF；启用日志 的命令是：STRCMTCTL。 10、修改编译时的库列表的命令是：EDTLIBL ；常用缩 写是：EL 。 二、ILE操作码（每小题2分，共40分） 1、日期时间相加ADDUR 2、定位操作--小于语法SETLL 3、监控程序信息MONITOR 4、将一个字符串中指定的字符，更换成另外的字符XLATE 5、修改记录UPDATE 6、取当前系统时间TIME 7、打开指示器SETON 8、数学运算-乘: MULT 9、数组赋值MOVEA 10、执行子过程EXSR 11、屏幕显示DSPLY 12、根据已知字段来定义新字段DEFINE 13、删除当前记录DELETE 14、清除内容CLEAR 15、检查对象变量中的字符CHECK 16、按键值对文件记录进行查询定位CHAIN
17、字符连接CAT 18、带条件的调用子过程CASXX 19、数学运算-取余MVR 20、日期相减SUBDUR 三、常用函数解释（每小题2分，共20分） 1、%CHAR() 转换为字符数据 2、%ERROR() 返回错误状态 3、%DEC() 转换为压缩十进制格式 4、%EDITC() 使用编辑代码编辑值 5、%FOUND() 返回查找条件 6、%XLATE() 字符转换 7、%SUBST() 截取字符串 8、%TRIMR() 剪切尾部空格 9、%CHECKR() 逆向检查 10、%ADDR() 获取变量的地址 四、SQL（每小题2分，共10分） 根据以下四张表： Student(S#,Sname,Sage,Ssex) 学生表 Course(C#,Cname,T#) 课程表 SC(S#,C#,score) 成绩表 Teacher(T#,Tname) 教师表 完成以下SQL。（注：学生表的唯一键值是S#） 1、查询“001”课程比“002”课程成绩高的所有学生的学号； select a.S# select a.S# from (select s#,sc ore from SC where C#=’001′) a, (select s#,score from SC where C#=’002′) b where a.score>b.score and a.s#=b.s#; 2、查询平均成绩大于60分的同学的学号和平均成绩； select S#,avg(score) from sc group by S# having avg(score) >60; 3、查询姓“李”的老师的个数； select count(distinct(Tname)) from Teacher where Tname like ‘李%’;
AS400 基本命令和操作
数据描述规范DDS通过文件的记录字段仅一次的说明，可定义多种访问路径，多个程序使用。 结构化查询语言SQL/400组成：（1）SQL运行支持程序（2）SQL预编译程序（3）SQL交互式接口（4）DB2 QUERY MANAGER FOR AS/400，提供菜单、填空式提示的交互式接口，允许建立、增加、维护数据，和运行报表 PDM（PROGRAMMING DEVELOPMENT MANAGER）处理源代码、对象和库 SEU（SOURCE ENTRY UTILITY）建立和编辑源文件成员STRSEU SDA（SCREEN DESIGN AID）交互式设计、创建和维护应用屏幕 RLU（REPORT LAYOUT UTILITY）交互式定义打印报表的格式分布 DFU（DA TA FILE UTILITY）快速定义、创建面向数据录入、查询或文件维护STRDFU QUERY/400获取外部描述数据库文件信息STRQRY CL（CONTROL LANGUAGE）调用AS/400的所有系统功能。简化操作，控制工作流程，设置作业运行环境等 AS/400三级存储结构 库（LIBRARY）——数据库文件（FILE）——成员（MEMBER） 一级目录——二级目录——三级目录 字段是用来描述某一属性的一组值；字段定义是对字段属性的说明 记录是把一组字段放在一起命名，用来说明某一事物；记录格式是对记录中所有字段的简单说明以及对各字段排序的说明 文件是已命名的一组记录，文件说明是对文件所有的记录格式和存取路径的说明，数据库文件分为数据文件和源文件，数据文件就是程序中使用的物理文件和逻辑文件。 物理文件（*FILE，PF-DTA）：在SQL中称做表（TABLE），含有系统实际存储的数据，每个物理文件只有一个固定长度的记录格式。CRTPF 逻辑文件（*FILE，LF）：在SQL中称做表（VIEW），它不含有实际数据，依附于物理文件，可以描述一个或多个物理文件的记录（JOIN逻辑文件）。CRTLF 源文件（*FILE，PF-SRC）：是系统用来建立源程序（RPGLE、CLLE、C）或源物理文件（PF）等目标的源说明CRTSRCPF 库名：存放该应用系统的源程序库就命名为SGM SRC，存放该应用系统目标的库可命名为SGM OBJ CRTLIB 源文件名：存放程序的源文件叫R+PGM+SCF，存放物理文件和逻辑文件定义的源文件叫R+DTA+SCF 物理文件/逻辑文件名：学生成绩表命名为STGD+A其中一个逻辑名为STGD L1 程序名：SGM＋0400＋R‘R’：RPGLE，‘C’：C，C或CL，‘R’：报表等 DDS行中对物理文件有效的位置是： 6：A=DDS 17：R=RECORD NAME ，K=KEY FIELD NAME，BLANK=FIELD NAME）
AS400开发初阶
AS/400开发初阶
1OS/400 (3) 1.1基本系统概念 (3) 1.2作业 (3) 1.3程序开发 (4) 1.3.1ＰＤＭ介绍 (4) 1.3.2AS/400的源码编辑器 (5) 1.3.3AS/400的程序 (6) 2DB2/400简介 (8) 2.1DDS简介 (8) 2.2创建一个物理文件PF (8) 2.3创建一个逻辑文件LF (9) 2.4DB2的常工具 (9) 3RPG语言 (9) 3.1H定义 (10) 3.2F数据库引用 (10) 3.3D数据定义 (10) 3.3.1定义格式 (11) 3.3.2例子 (11) 3.4C计算逻辑 (12) 3.4.1常用C源码结构 (12) 3.4.2程序参数 (13) 3.4.3子例程 (13) 3.4.4调用其他程序 (13) 3.4.5程序分支 (13) 3.4.6程序退出 (15) 3.4.7数据库操作 (15) 3.4.8常用RPG操作码 (17) 4后台业务系统开发 (19) 4.1联机交易 (19) 4.1.1交易调试 (19)
1OS/400 1.1 基本系统概念 ●对象 AS/400的操作对象称为：Object。 Object包括的信息： 1．包含该对象的库 2．对象名 3．对象类型（*PGM,*FILE,…） 4．对象的属性（对于*FILE，有LF,PF-DTA,PRTF,DSPF） 5．拥有该对象的用户权限 AS/400的对象由（库/对象名/对象类型）唯一确定。 查看某对象：WRKOBJ ●库 库也是一种对象，相当于AS/400的目录。 DOS目录有多级，即目录下有目录。但库只有一级，库下不能有库。 AS/400的文件系统只有3级：库->文件->成员； 例如在APPLIB库下有APPPF的文件，表示为APPLIB/APPPF。 创建库：CRTLIB ●库列表 相当于作业的工作目录，类似于DOS的PA TH 当前作业库列表的常用命令： dsplibl edtlibl addlible ●汉字支持 使用汉字支持：CHGSYSLIBL QSYS2989 不使用汉字支持：CHGSYSLIBL LIB(QSYS2989) OPTION(*REMOVE) ●命令菜单 OS/400中，进入一个菜单，用go menuName 查看某一相关的命令 go CMDxxx xxx代表命令含义的缩写，例如想看与库有关的命令，go cmdlib 1.2 作业 ?概念 作业：AS/400所有程序运行以JOB方式 命令：wrkactjob
RPG AS400程序员培训手册6
5 CL、CMD 其实有关这一章，以及屏幕文件的，在网上已经有很多人写过了，想了想，还是说一下吧。 5.1 CL 程序 5.1.1 基本认识 简单的理解，CL 程序就是和RPG 相对应的，是控制语言（Control Language）。类型为CLP、CLLE 的源代码编译出来的程序，都属于CL 程序。 可能还是不够直观，这么说吧，我们在交互式命令行上输入的命令，用程序的方式来执 行，这个执行的程序，就是CL 程序。 学过UNIX 的会比较好懂，CL 程序有点类似于SHELL，不过SHELL 是可以直接执行的，而且不用编译；CL 程序需要编译，而且要用CALL 的方式来执行。不过原理是接近的，都是在程序中直接调用命令行的语句。 所以说，CL 程序其实很好写，只要会输入命令，就可以写CL 程序了。在编辑CL 程 序时，也可以用“命令+ F4”的方式来写，不需要老老实实的整行输入。 CL 程序不像RPGLE 程序，在编写时，可以使用自由格式书写；一行的内容如果太长 要，在最末尾处用“+”表示换行 举个最简单的例子，比如说新建个名为FHS01CL 的CLP 源程序，代码如下： PGM WRKACTJOB ENDPGM 编译此程序，然后CALL 之，系统就会执行命令WRKACTJOB，查看当前的活动作业， 效果与在交互式命令行下输入WRKACTJOB 是一样的。 当我们输入F12，退出WRKACTJOB 时，系统就会继续向下执行，发现是ENDPGM， 表示程序结束了，于是判定执行完毕，退出至交互式画面。 5.1.2 CL 程序的常用语法及命令：
一、程序的开始与结束： PGM PARM(&A &B) /* 开始CL 程序*/ ENDPGM /* 结束CL 程序*/ CL 程序，和RPGLE 程序一样，也可以有程序的入口参数，而且程序的入口参数 都是可传递的（也就是输入的参数如果在程序中被修改过，那么原调用的程序中的相应参数也会进行变化。不过CL 的入口参数只能为字符型，或数字型的单个字段，不能象RPGLE 程序中那么多样化（字段、结构、数组、指针）。 如果CL 程序没有入口参数时，那么就可以不需要后面的PARM 语句，直接写成 PGM 即可。 写CL 程序时，不妨多使用F4，看看系统的帮助，这样就不用记那么多命令的参 数名。 二、变量及其定义 CL程序中的所有变量，都使用&做为前缀，这一点与RPGLE 程序不同。比如说 PGM PARM（&A &B） 就表示入口参数为A、B 这两个变量 在CL 程序中使用到的变量，都必须使用DCL 语句来定义： DCL VAR(&FLD01) TYPE(*CHAR) LEN(10) DCL VAR(&FLD02) TYPE(*DEC) LEN(10 2) 上述语句表示： 定义变量FLD01，10 位长的字符型变量 定义变量FLD02，10 长，其中2 位小数的数字型变量 除了字符、数字之外，CL 程序还可以定义逻辑变量(*LGL)，逻辑变量允许的值只 能为’1’或’0’。不过通常有字符与数字也就够了。CL 程序的主要功能在于进行命令处理，
AS400安全与权限管理
AS/400安全与权限管理 AS/400安全体系包括系统安全、用户控制和资源保护三个层次，融贯于整个计算机系统中。可以说从外部硬件到系统内部，从用户登录开始，到用户访问的每一界面（菜单、命令行等），访问的任何资源，安全检查一直处于活跃状态。能有效地对数据进行保护，免遭破坏和非法访问。 本单元介绍OS/400的包括用户描述、与安全相关的系统参数、权限表、组描述、安全工具及安全向导等安全概念。 安全包括系统内置的用来控制系统设备、数据、系统上安装程序使用的安全措施。安全阻止未授权的用户访问数据，从而保护数据的完整性。 菜单是用来控制用户访问权限的方法之一。用户描述扩展了此权限，可控制用户的登录。 1 系统安全 1.1 Security Types
Figure 7-1. Types of Security There are 3 types of security on the AS/400 system: Physical security 、Sign-on security and Resource security Physical security Physical security provides protection of your AS/400 system, device, device output and media on which data is stored from accidental or deliberate loss or damage. Resource Security Resource security protects the data on the system by limiting access to files, programs, libraries, and other objects. Sign-on security Sign-on securitylimits who can sign on to an AS/400 system and what they can do when they sign on (for example, which menu options appear). 对于AS/400计算机系统来说，系统应该有三级安全保护机制。物理安全性(Physical Security)、登录安全性(Sign-on Security)和资源安全性(Resource Security)。物理安全性是指提供系统和相关设备及存贮数据介质的保护，以防意外或有意的数据丢失、破坏。登录安全性限制谁可以在系统上登录，以及登录后可以执行那些操作。资源安全性是在用户登录系统后，附加的用于保护对象和对象中数据安全性，避免非法访问。这里我们主要讨论后两种安全性管理。 1.2 Security Levels
AS400系统培训笔记
AS400系统培训笔记 一、sysid：system name 二、升级微码和增加cpu是需要新的system password，换cpu时需要输入原来的system password。 3、p170面板： 01：display启动方式。 02：设置启动方式。 03：启动。 04：测试报警灯。 11：选择设置值。 s:slow f:fast v=f(上次启动正常) v=s(上次启动失败) A：A区 B：B区 C：IBM实验用 D：外部设备（磁带、光驱） N：normal M： manual 三、常用巡检命令： 1、wrkdevd *opt|*tap 2、dsptap 3、dspopt 4、wrkshrpool：内存 5、wrkhdwrsc type(*stg)：硬盘状态 6、wrkhdwrsc type(*prc)：cpu和内存状态， 7、wrkhdwrsc type(*cmn)：网卡状态 8、wrksyssts 9、wrkdsksts：硬盘（%busy一般不超过40%） 10、dsplog F4 11、wrklicinf:查看版本号等 12、cfgtcp 13、pwrdwnsys:关闭系统 三、系统知识 1、AS：application system 2、cfgtcp、wrkhdwrsc *cmn：配置网卡 3、crtlineth 4、AS400上不支持SNA 5、strtcp：激活tcp 6、AS/400的分层机构：application|os/400|slic|64-bit RISC。(slic:system
license internal code) 7、系统能登陆中进sst（strsst）看log，系统不能登陆进dst看log。 8、src：system ref code 9、pal：product activity log 10、打印系统配置：strsst-start a services tool-hardware services manager-f6=print configuration-退出sst-wrksplf （F4选择相应的项） 11、dspmsg qsysopr 12、黄灯不报警：cpu、内存、风扇没问题，机器可以正常工作。 13、wrksyssts:当%system ASP USED超过90%时，在 dspmsg qsysopr中有相应的报警信息，一般不超过%80。 14、go cleanup：清理系统日志垃圾。 15、wrkactjob 16、恢复被disable权限的用户：strsst-work with services tools uers ids 17、网络：wrklind,crtlineth,sfgtcp,strtcp,dspjoblog. 18、system request：shift + esc 后 enter键回车。
AS400基本操作及常用命令
目录未找到目录项。
1AS/400基本操作 AS/400用户接口满足各种用户的需求，无论他们是新用户、数据管理人员、系统管理员、或程序员。 用户可以灵活的使用OS/400提供的多种方法，对系统进行操作。如果用户并不了解显示屏幕或如何启动任务，通过AS/400帮助功能，在任何屏幕上都可使用帮助。帮助的信息包括整个屏幕的信息到现实屏幕上个别项目的信息。 AS/400系统还提供相应国家语言，支持用户以其所在国家的语言作为与系统的接口。 1.1屏幕显示 AS/400系统提供一些不同的显示屏幕作为其用户接口的一部分。组成用户接口的显示屏幕类型有： 菜单（MENU） 输入（ENTRY） 列表（LIST） 帮助（HELP） 登录画面 用于用户注册：使用用户名和口令 Sign On System . . . . . ：S101766G Subsystem . . . . ：QINTER Display . . . . . ：PC5250 User . . . . . . . . . . . . . . USER Password . . . . . . . . . . . .USER Program/procedure . . . . . . . . Menu . . . . . . . . . . . . . . Current library . . . . . . . . . 进入系统后,首先会看到的显示屏幕就是菜单 1.1.1菜单 用户可以使用菜单选择他们想执行的任务，而不需使用系统命令，如图： MAIN AS/400 Main Menu 菜单名System：S101766G Select one of the following： 1. User tasks
AS400中文培训Query-8
如果决定不修改显示中的任何选项，则按Enter键，如果已经修改了显示但不准备执行，则按F12键。 按F12键不能清除按下F23键的结果（保存做缺省值），按执行键做为修改查询的结果，这样，在以后按F12键时不能清除它而得到不同的显示。所有做的其它修改都可用F12键清除。下面是这个规则的例外情况，根据次显示中的不同内容，在从次提示显示返回到主提示显示后按F12键，能取消在整个定义选项期间所做工作的修改： 由文件选择取消连接测试。 由记录选择测试取消相关值限定。 由列格式修改取消编辑修改。 由中断字段选择（级别定义）取消中断级格式修改。 如果决定不执行前面显示所做的修改，那么可用F3键结束，且在‘结束查询’显示的保存定义提示中写N。 在处理一个显示时，可以help键来看联机帮助信息，它简要地给出如何规定这些选项，也可用F5键和F13键来看这些修改如何影响查询产生结果报告。 在完成所有修改后，返回到‘定义查询’显示，这时你定义的选项左边有>号。可以选择多个选项做多个修改，或用F3键结束修改查询的工作。 从‘结束查询’显示，可以做下列工作： 保存所做的定义修改 运行修改后的查询 * * * Exit This Query * * * * Type choices, press Enter. * * * * Save definition . . . Y Y=Yes, N=No * * * * Run option . . . . . . 1 1=Run interactively * * 2=Run in batch * * 3=Do not run * * For a saved definition: * * Query . . . . . . . __________ Name * * Library . . . . . ________ Name, F4 for list * * * Text . . . __________________________________________ * * Authority . . . . . *LIBCRTAUT *LIBCRTAUT, *CHANGE, *ALL * * *EXCLUDE, *USE * * authorization list name * * * * * * * * * * F4=Prompt F5=Report F13=Layout F14=Define the query *
AS400常用命令
AS/400常用命令（转载） 1、使用系统辅助功能 Go assist 2、更改系统辅助级别 Chgprf astlvl(*basic/*intermed/*advanced) 3、关于控制设备的一些命令 更改设备名称： RNMOBJ 检查设备状态： WRKCFGSTS 使设备可以： WRKCFGSTS 打印本地设备地址： PRT DEVADR 4、关于作业控制的一些命令 更改批处理作业的相关命令： WRKUSRJOB JOBTYPE(*BATCH) CHGJOBD 更改作业队列中批处理作业的优先级： WRKJOBQ 更改活动的批处理作业的优先级： WRKUSRJOB STATUS(*ACTIVE) JOBTYPE(*BATCH) 调度批处理作业： WRKJOBSCDE 提交批处理作业： SBMJOB 使用交互式作业： WRKUSRJOB USER(*ALL) STATUS(*ACTIVE) JOBTYPE(*INERACTIVE) ASTLVL(*BASIC) 使用作业队列： WRKJOBQ
5、处理系统信息 更改信息通知： CHGMSGQ 更改打印机信息队列： CHGDEVPRT 打印消息队列中的信息： DSPMSG MSGQ(名) OUTPUT(*PRINT)将信息发给所有在线用户： SNDMSG TOUSR(*ALLACT) 发送中断在线用户工作的消息： SNDBRKMSG 5、管理系统 更改系统值： WRKSYSVAL 清理系统： CHGCLNUP/ST RCLNUP 收集磁盘空间信息： RTVDSKINF 删除保存文件： WRKF *ALL SAVF 显示系统性能状态： WRKSYSSTS 显示系统硬盘状态： WRKDSKSTS 6、问题处理 显示系统补丁级别： DSPPTF 运行系统故障分析： DSPMSG QSYSOPR F14 处理问题： WRKPRB 7、使用磁带： 查看磁带内容： DSPTAP 初始化磁带：
clementine常用命令
节点命令 （1）创建节点 create NODE create NODE at X Y #指定位置 create NODE between NODE1 and NODE2 #指定连接 create NODE connected between NODE1 and NODE2 还可以使用变量来创建节点： var x set x = create typenode rename ^x as "mytypenode" #使用变量x 返回由x 引用的对象（本例中为类型节点）position ^x at 200 200 var y set y = create varfilenode rename ^y as "mydatasource" position ^y at 100 200 connect ^y to ^x 另外，特殊（预先定义的）变量node 也可以与上面示例中的x 和y 变量相似的方式使用。这种情况下，不需要使用var 命令声明该变量（因为已经预定义），生成的脚本可能读起来更容易一些。 set node = create typenode rename ^node as "mytypenode" position ^node at 200 200 set node = create varfilenode rename ^node as "mydatasource" position ^node at 100 200 connect mydatasource to mytypenode 注意：特殊变量（如node）可重用以引用多个节点。使用set 命令即可重置该变量引用的对象。 （2）连接节点 connect NODE1 to NODE2 connect NODE1 between NODE2 and NODE3 将指定的节点与所有其他节点（默认设置）或与指定的特定节点断开连接。 disconnect NODE disconnect NODE1 from NODE2 disconnect NODE1 between NODE2 and NODE3 （3）删除节点 delete NODE (4)复制节点 duplicate NODE as NEWNAME
RPG常用命令
ＲＰＧ常用的演算命令及语句 RPG常用的演算命令 １）加减运算 ADD ( 加算)（Ｈ） SUB（減算） MULT（乗算） DIV （除算） MVR ( 剰余の転送) Factory 1 Operation Factory 2 Result Z-ADD 100 SUMARY ADD(H) -3.4 SUMARY ２）赋值 Z－ADD（ゼロにして加算） Z－SUB（ゼロにして減算） MOVE ( 移動) MOVEL（左につめて転送） MOVEA（配列の転送） EVAL (RPGLE) ３）逻辑运算 ANDXX （与）
ORXX (或) ４）结构化程序参考RPG语言.pdf 条件转移 IFXX (IF) ELSE ENDIF SELECT WHENXX … ENDSL IF (IF) (RPGLE) WHEN (WHEN) (RPGLE) GOTO (GO TO) 循环 DO (DO) DOU (DO UNTIL) DOUXX (DO UNTIL) DOW (DO WHILE) DOWXX (DO WHILE) ITER ( 繰り返し) LEAVE (DO グループからの抜け出し)
5)程序子模块 BEGSR ( サブルーチンの始め) ENDSR ( サブルーチンの終わり) Factory 1 Operation Factory 2 Result SUB01 BEGSR …. …. ENDSR 程序模块的调用 CASXX （サブルーチンの条件つき呼び出し）EXSR （サブルーチンの呼び出し） Factory 1 Operation Factory 2 Result FLD01 CASEQ ‘1’SUB01 FLD01 CASEQ ‘2’SUB02 CAS…SUB03 ENDCS Factory 1 Operation Factory 2 Result SELECT WHEN FLD01=’1’ EXSR SUB01 WHEN FLD01=’2’ EXSR SUB02 OTHER EXSR SUB03 ENDSL
AS400基础培训
AS/400基础培训 目录 1AS/400体系结构介绍 (2) 1.1AS/400性能概述 (2) 1.2对象和对象管理 (2) 1.3工作管理 (3) 2AS/400的基本操作 (4) 2.1菜单、入口、列表和信息 (4) 2.2常用命令 (5) 3ILE RPG/400编程入门 (6) 3.1文件的创建和操作 (6) 3.1.1物理文件 (6) 3.1.2逻辑文件 (7) 3.2ILE RPG程序编写 (7) 3.2.1常用规范表 (7) 3.2.2内部函数 (9) 3.2.3表达式 (9) 3.2.4操作码 (10) 3.3模板学习 (11) 3.4编程练习 (12) 4SQL/400介绍 (12)
1AS/400体系结构介绍 1.1 AS/400性能概述 ?集成性 AS/400把数据库、通讯、安全性等功能集中在操作系统中，最大限度地实现了各功能之间的兼容性。 ?开放性 支持SNA、TCP/IP协议，DB2/400可与大多数数据库系统实现互联。 ?可移植 对SPEC1170的支持可达到95%，相当于一般UNIX操作系统。 ?兼容性 所有应用可上下兼容。 ?可连接性 哑终端（5250）、仿真终端（PC Communication、Client Access、GUI） ?可支付性 ?可扩充性 1.2 对象和对象管理 ?基于对象 AS/400中，MI由指令和对象组成。也就是说，AS/400是基于对象（object-based）的系统，而不是一个面向对象（object-oriented）的系统。在AS/400中，对象不具备集成性，也没有类和子类的概念。 在AS/400的定义中，系统上所有可存储和检索的东西，都叫做对象。对象由描述这个对象的描述和它的值组成。对象的描述包括：名称、类型、大小、建立日期、建立对象者提供的简单描述、以及存储对象的库的名称。 ?对象的要素 目录名、对象名和对象类型唯一确定一个对象。 ?对象目录 AS/400中的目录结构是单层的，因此对象的表达形式为“Library/Object”。特殊系统目录QSYS可指向其他目录。目录的两种类型：Production和Test。 ?目录表 *LIBL、*CURLIB、*SYSLIBL、*USRLIBL、*IBM、*ALLUSR、*ALL EDTLIBL，ADDLIBLE，DSPLIBL、CHGCURLIB、QSYSLIBL、QUSRLIBL ?对象的类型 *PGM、*FILE、*LIB、*JOBD、*USRPRF、*JOBQ、*DTAARA、*CMD、*MSGQ等。 ?对象的权限
AS400常用命令集
显示AS/400的磁盘容量和使用状况： 1.DSPSYSSTS “显示系统状态” 2.显示用户简要表：DSPUSRPRF查看用户情况 操作用户简要表：WRKUSRPRF 创建新用户：CRTUSRPRF 3.关机：GO POWER，选择3、F16直接关机；选择4、F16关机后重启动。立即关机命令：PWRDWNSYS *IMMED 4.查找命令GO CMD*** 5.使用系统请求菜单：shift +enter or alt +enter 使用命令行显示：call qcmd 使用系统助手：go assist 使用信息助手：go info 显示先前使用过的命令：call qcmd 6.当前信息DSPMSG 系统信息DSPMSG QSYSOPR 7.控制线描述WRKLIND 控制器描述WRKCTLD 控制设备描述WRKDEVD 配置设备状态WRKCFGSTS 8.提交批处理作业SBMJOB +F4 激活作业显示WRKACTJOB 9.输出作业队列WRKOUTQ 假脱机文件WRKSPLF 10.打印机：菜单GO PRINTER WRKDEVD PRT01 11.备份和恢复： 恢复库RSTLIB 恢复目标RSTOBJ 备份目标SAVOBJ 备份库SAVLIB 12.磁带机的常用维护： 初始化磁带机命令INZTAP 磁带机常规检测及可靠性测试VFYTAP 检查磁带机CHKTAP 使用状态监控方法：服务工具——error log utility ——work with tape/disketle lifetime station 13.发送消息SNDMSG参数*INQ表示该消息需要回复。 每个消息队列都有一个发送方式（delivery mode），描述消息队列收到消息时所做的动作和通知用户的方式。 *break中断用户的工作并显示接收到的消息。 *notify用消息警告灯和警铃声提醒用户收到消息。 *hold接收到消息时，不通知用户。 14.AS/400的网络属性： CHGNETA ——更改网络属性 WRKHDWRSC ——显示400的通讯口及位置情况 CRTLINSDLC ——创建线描述 15. 二、400中的集成文件系统：
AS400_CL控制语言基础
AS/400 CL 第一章概述 提要： * CL 命令的作用* CL 命令的分类* 系统菜单 1.1 CL 命令的作用 CL（Control Language) 控制语言是用户与操作系统之间的主要接口。可以说用户管理和操作AS/400 系统，均可以通过CL实现。用户在不同的工作站或客户端可以同时使用CL ，其输入方式有五种: * 在命令行输入* 在菜单画面选择* 在work with 菜单中，option 选项 * 在CL 程序中执行* 远程调用 前三种输入方式给用户提供一种交互式的操作方法，只执行一条命令；第四种方式给用户提供一种操作,并包含逻辑控制,可以完整地实现一项功能；第五种方式给用户提供在客户端直接执行主机操作的接口。 由于CL 使用了统一的命名方法，提供prompt 式的提示功能和具体到域值的在线帮助，以及自动生成命令参数的缺省值, 再加上有效性检查，从而使得CL 的使用变得非常简单、方便和灵活。 1.2 CL 命令的参数 CL 使用了一种很科学，较为成功的命名方法。每条命令由命令名和一系列参数组成。命令名通常由动词加上接受动词的名词（定义为目标Object）组成，单词通常缩写为三个字母。例如： CL 命令命令名 Send Message SNDMSG Copy File CPYF Work with Device Desripyions WRKDEVD CL 的参数由关键字和参数值组成，关键字通常和命令一样缩写，它用于说明参数的作用，在命令输入屏，按（F4）键，即可看到关键字。在命令行输入命令时，如果参数是按照固定的顺序输入，则可以省略关键字。 例如: SNDMSG MSG (HOLLEO) TOUSR (LENG) 命令名关键字（参数值） 大多数CL 都是针对目标而言，目标是一个占据了一定存储空间的实体，它包括自身属性及其数据特征的描述，系统可以对它进行操作。目标的属性包括名字、类型、长度、建立日期及其它属性。不同目标具有不同的属性描述，大部分属性是可以修改的，而不需要重新建立。目标的数据值是储存于目标中的信息集合，例如: 程序的值是组成程序的执行码，文件的值是组成文件的记录。目标的类型很多，常用的几种包括：(18种) * LIB 库* FILE 文件* MSGF 信息文件 * PGM 程序* CMD 命令* DTAARA 数据域 * JRN 日志* JRNRCV 日志接受器* USRPRF 用户简要表 * JOBQ 作业队列* DTAQ 数据队列（4Q） * MSGQ 信息队列* OUTQ 输出队列 * SBSD 子系统描述* JOBD 作业描述* LIND 线路描述 * CTLD 控制器描述* DEVD 设备描述（5D）
AS400命令
AS400命令集 AS400命令集 1.显示AS/400 的磁盘容量和使用状况：DSPSYSSTS “显示系统状态” 2.显示用户简要表：DSPUSRPRF 查看用户情况 操作用户简要表：WRKUSRPRF 创建新用户：CRTUSRPRF 3.关机：GO POWER，选择3 、F16 直接关机；选择4 、F16 关机后重启动。立即关机命令：PWRDWNSYS *IMMED 4.查找命令GO CMD*** 5.使用系统请求菜单：shift +E sc+enter 使用命令行显示：call qcmd 使用系统助手：go assist 使用信息助手：go info 显示先前使用过的命令：call qcmd 6.当前信息DSPMSG 系统信息DSPMSG QSYSOPR 7.控制线描述WRKLIND 控制器描述WRKCTLD 控制设备描述WRKDEVD 配置设备状态WRKCFGSTS 8.提交批处理作业SBMJOB +F4 激活作业显示WRKACTJOB 9.输出作业队列WRKOUTQ 假脱机文件WRKSPLF 10.打印机：菜单GO PRINTER WRKDEVD PRT01 11.备份和恢复： 恢复库RSTLIB 恢复目标RSTOBJ 备份目标SA VOBJ 备份库SA VLIB 12.磁带机的常用维护： 初始化磁带机命令INZTAP 磁带机常规检测及可靠性测试VFYTAP 检查磁带机CHKTAP 使用状态监控方法：服务工具——error log utility ——work with tape/disketle lifetime station 13.发送消息SNDMSG 参数*INQ 表示该消息需要回复。 每个消息队列都有一个发送方式（delivery mode），描述消息队列收到消息时所做的动作和通知用户的方式。 *break 中断用户的工作并显示接收到的消息。 *notify 用消息警告灯和警铃声提醒用户收到消息。 *hold 接收到消息时，不通知用户。 14.AS/400 的网络属性： CHGNETA——更改网络属性 WRKHDWRSC ——显示400 的通讯口及位置情况
AS400基本操作命令
AS/400基本操作命令 一、信息 1．当前信息DSPMSG 2. 系统信息DSPMSG QSYSOPR 关于系统操作的信息，如通讯线、设备出错信息的提示、建议解决方法等。 二、设备 GO DEVICE 1.控制线描述： WRKLIND //work线描述 CRTLINETH //创建线描述 2.控制器描述： WRKCTLD //work控制器信息 DSPCTLD //显示控制器信息 3.控制设备描述： WRKDEVD //work设备信息(*ASP、*TAP、*PRT、*CMN等) DSPDEVD //显示设备信息 4.配置设备状态：WRKCFGSTS 5.wrkmlbsts: Work with Media Library Status 三、提交作业 GO JOB 提交批处理作业：SBMJOB + F4 注：把要执行的作业提交到后台执行 四、处理作业 Work活动的作业：WRKACTJOB 五、输出 1.输出作业队列：WRKOUTQ 2.假脱机文件：WRKSPLF 例：统计某个lib的总大小 DSPLIB LIB(*ALLUSR) OUTPUT(*PRINT) // ALLUSR库文件大小输出 WRKSPLF //显示ALLUSR库文件大小 六、打印机 菜单：GO PRINTER WRKDEVD PRT01 //work打印机信息 七、子系统 作业运行的环境： WRKSBS WRKSBSD *ALL //work子系统信息 WRKACTJOB //查看活动job STRSBS QCTL //启动子系统 八、日志信息 1．作业日志：DSPJOBLOG F10=Display detailed messages