AS400_初级培训
AS400培训培训手册
/QNFS
SUN公司的网络文件系统。
/QNETWARE Novell Netware文件系统。
/QLANSrv LAN Server文件系统。
最新课件
23
Question?
最新课件
24
四、工作管理
作业 WRKACTJOB 子系统 WRKSBS 内存池 WRKSHRPOOL / CHGSHRPOOL 队列 WRKJOBQ 作业描述 DSPJOBD 用户描述 WRKUSRPRF / DSPUSRPRF 系统值 WRKSYSVAL / DSPSYSVAL 进程、任务、作业及线程 作业的启动
作业描述(*JOBD，Job Description)
作业队列(JOBQ)、输出队列(OUTQ)、打印机、排队优先级的最 高限定值、作业的库列表、作业行踪纪录的等级、作业的运行优 先级、使用的内存池以及时间片的长度等。
用户描述(*USRPRF，User Profile)
作业描述、输出对列、打印设备、当前库、最高排队优先级、交 互作业初始化的执行程序和初始菜单等。
5
POWER 处理器发展规划
2001-4 POWER4 / 4+
2004-7 POWER5 / 5+
2007-9 POWER6 / 6+
Future POWER7
180 nm
130 nm
1.5+ GHz 1.5+ GHz
1+ GHCzore 1+ GCHorze
Core
Core
Shared L2
SDhisatrribeudtedL2Switch
其它状态：11－显示SRC代码，21－进入DST模式 …
最新课件
AS400-RPG入门
AS400-RPG入门一：RPG介绍RPG程序的特点：1．程序的编写对于每一个位置都有明确的定义，所以程序的编写必须在指定的位置开始。
通过使用ILE工具可以进行一些方便的输入。
2． RPG程序的设计针对每一部分都有严格的要求，有相应的规格说明，他们包括a) 配置规格说明（Control Specifications）：主要规定了程序的命名，日期格式等信息。
b) 文件描述说明（File Description Specifications）：对程序使用到的文件的说明c) 定义说明（Definition Specifications）：主要对程序使用的数据进行说明。
d) 输入说明（Input Specifications）：主要对文件输入数据进行说明。
e) 计算说明（Calculation Specifications）：主要对数据计算和计算顺序的说明。
f) 输出说明（Output Specifications）：主要针对数据的输出记录和字段的说明。
g) 子程序说明：包括有三种，对子程序的各种进行进行了定义说明。
3．指示器（Indicators）通常是一个字节，被设置为‘0’或者‘1’，他主要作为程序操作的结果或者进行操作的条件。
好像程序的逻辑开关，决定着程序的流程。
指示器必须在定义规范中进行定义。
RPG VI也有一些系统的指示器，他们一般是两个字符的变量，如LR等。
指示器可以在程序的任何地方使用，也可以在程序中修改他的值。
4．操作代码相当与汇编语言的命令一样，有RPG程序提供一套完整的操作代码，比如读一条数据使用READ ，RPG程序对操作代码进行了分类，比如字符串操作符，数组操作符等。
5．定义描述文件a) 文件服务是程序和IO设备的连接。
系统里的每一个文件都有相应的描述文件，对文件的特性和数据的组织形式进行描述。
如果在程序中要使用IO操作，必须要指定一个描述文件，对IO的设备进行描述。
对于文件的类型，系统支持以下几种：1. 数据库文件（database files）：对数据进行持久存储。
AS400开发培训 - 简介与就业前景
多元应用服务器 同一台机器可以同时支持多类型的应用 编程语言除CL和RPG，也可使用Cobol、Java、C等 常用语言
扩展性
伸缩范围很大，最高端与最低端的性能相差超过 300倍 最高端的单机可支持最多18TB硬盘，98G内存，26 个光盘库， 400条广域网通信线路， 和96个局域网 端口
AS400 工资概况
AS400 工资概况
数据来自 /viewthread.ph p?tid=1850486&extra=&page=1
AS400开发培训 - 简介与就业前景
科锐萨斯
Info@
Agenda
简介 优点 主要应用领域 开发人员就业前景 开发人员薪酬概况
AS400 简介
IBM推出的商用中、小型机 原配操作系统OS400集成数据库DB2/400， 编程工具RPG、CL、COBO、C、JAVA 等 被大型制造业、银行、证券、保险等广 泛使用 IBM商用机器的典范之作
AS400主要应用领域
金融机构（银行、证券、保险等）的专 业系统
使用AS400的代表企业有：HSBC（汇丰银 行），AIA（友邦保险），AXA（法国安 盛），以工商银行，建设银行为代表的国内 大银行
大型制造业
AS400 开发人员就业前景
金融机构的专业系统 使用AS400的代表企业有：HSBC（汇丰 银行），AIA（友邦保险），AXA（法国 安盛），以工商银行，建设银行为代表 的国内大银行
AS400 优点
安全性
具有领先于业界的系统安全性。 先进的体系结构确保了系统抗击各种破坏的能力， 目前，只有AS400是世界上唯一没有受到黑客攻击 和病毒感染的系对2000台AS400跟踪后收集的数据 显示了系统可用性平均达到了99.9+%。
AS400教程(一)
AS/400教程第一章AS/400系统概况1.1 AS/400发展历史1.1.1 AS/400发展历史Figure 1-1. AS/400的发展历史为了深入了解一个系统，必须熟悉它发展的历史和背景。
多数的计算机系统是从原有的系统基础上发展起来的。
AS/400的发展历史：◇ 1969年6月发布System/3（Batch machine）◇ 1975年1月发布System/32 (用于小型商务办公环境)◇ 1977年4月发布System/34◇ 1978年10月发布System/38（第一代AS/400，商业上失败，技术上成功）◇ 1983年5月发布System/36（商业上非常成功）◇ 1988年6月发布AS/400 B型号（Application System/400，第二代AS/400）◇ 1994年5月发布AS/400先进系列/服务器（Advanced System/400，第三代AS/400）◇ 1995年6月发布AS/400 Power PC 先进系列/服务器◇ 1997年8月发布AS/400e系列◇ 1999年2月发布AS/400 e 服务器170、7XX◇ 1999年7月发布AS/400e Domino 专用服务器（莲花宝箱）◇ 2000年10月发布iSeries 400,包括270、820、830、840及IBM莲花宝箱（DSD）1.2 iSeries 400的特点1.2.1 iSeries 400的特点Figure 1-2. iSeries400iSeries 400通过紧密集成硬件、软件、中间件和操作系统提供能够满足不同业务需求的高性能、可靠和易于使用特性。
从e系列开始，在电子商务大舞台上开始扮演更为重要的角色。
它可以提供扩展业务确保电子商务优势所需的技术和工具。
它的突出特点有：● 卓越的性能，不断获得各种荣誉和认可，全面实现64位处理，先进的体系结构，最领先的SOI芯片技术；● 卓越的可靠性和可用性，系统可提供99.97%的可用性,使iSeries成为商业关键事务处理的首选服务器平台；● 高度集成的系统环境，使用户不需要太多的系统管理员就能保证其应用平稳地运行；● 严密的安全防范系统，荣获美国联邦政府定义的商业计算机最高安全性级别C2级认证，堪称世界上"最安全"的计算机系统。
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 源程序，代码如下：PGMWRKACTJOBENDPGM编译此程序，然后CALL 之，系统就会执行命令WRKACTJOB，查看当前的活动作业，效果与在交互式命令行下输入WRKACTJOB 是一样的。
当我们输入F12，退出WRKACTJOB 时，系统就会继续向下执行，发现是ENDPGM，表示程序结束了，于是判定执行完毕，退出至交互式画面。
5.1.2 CL 程序的常用语法及命令：一、程序的开始与结束：PGM PARM(&A &B) /* 开始CL 程序*/ENDPGM /* 结束CL 程序*/CL 程序，和RPGLE 程序一样，也可以有程序的入口参数，而且程序的入口参数都是可传递的（也就是输入的参数如果在程序中被修改过，那么原调用的程序中的相应参数也会进行变化。
不过CL 的入口参数只能为字符型，或数字型的单个字段，不能象RPGLE 程序中那么多样化（字段、结构、数组、指针）。
AS400技术培训(12)-附录1_AS400系统命令
AS/400基本操作命令 AS/400基本操作命令
– 文件复制CPYF 文件复制CPYF
可以复制文件的一个成员。 FROMFILE、TOFILE指明源文件及目的文件。 FROMFILE、TOFILE指明源文件及目的文件。 FROMMBR、TOMBR指明源成员及目的成员。 FROMMBR、TOMBR指明源成员及目的成员。 MBROPT：复制方式。 MBROPT：复制方式。 CRTFILE：建立方式。如果文件已存在，则不会建 CRTFILE：建立方式。如果文件已存在，则不会建 立。 FMTOPT：记录格式字段映射。如果两个文件的格 FMTOPT：记录格式字段映射。如果两个文件的格 式不完成一致，则需要定义该参数。
删除用户时系统检查是不是有该用户为*OWNER的 删除用户时系统检查是不是有该用户为*OWNER的 目标，如果有，则一般情况不删除用户。 可以选择*OWNDLTOPT的值确定是删除这些目标， 可以选择*OWNDLTOPT的值确定是删除这些目标， 还是将目标的*OWNER改为其他用户。然后删除该 还是将目标的*OWNER改为其他用户。然后删除该 用户。
AS/400基本操作命令 AS/400基本操作命令
数据区的操作命令：
– 建立数据区CRTDTAARA 建立数据区CRTDTAARA
建立数据区必须指定库。 TYPE；数据区的类型。 TYPE；数据区的类型。 LEN：数据区的长度。 LEN：数据区的长度。
– 删除数据区DLTDTAARA 删除数据区DLTDTAARA – 显示数据区的内容DSPDTAARA 显示数据区的内容DSPDTAARA
AS/400基本操作命令 AS/400基本操作命令
系统库列表的操作命令：
– 由于应用系统是双字节的，为了保证系统的运 行正确，应该增加系统库QSYS2989到系统库 行正确，应该增加系统库QSYS2989到系统库 列表。 – 增加系统库列表CHGSYSLIBL（*ADD） 增加系统库列表CHGSYSLIBL（ ADD） – 除去系统库列表CHGSYSLIBL（*REMOVE） 除去系统库列表CHGSYSLIBL（ REMOVE）
IBM AS400培训教程和手册
12
磁带组使用者的名字，这一项一般不用进行修改 Check tape for active files . . . . . . . Y Y=Yes, N=No 这一项与格式化一盘磁带的意义相同，一般使用N，也就是NO的意 思，表示不进行检查
13
第五章 磁带什么时候该丢弃
每盘磁带都有一定的使用寿命，AS/400系统提供了一个磁带文卷寿 命统计的监督程序，通过该程序可以确定某盘磁带是否已到使用寿 命需要更换新磁带。 操作步骤： 1、在命令行输入STRSST命令，进入System Service Tools菜单 2、选择1（Start a Service Tool） 3、在Start a Service Tool 3 Start Tool菜单上选择1（Product activity log ） 1 Product 4、在Product activity log 菜单上选择4（Work with tape/diskette lifetime Statistes） 5、在Select Media Option屏幕上在Removable media参数选择相 应的介质类型
20
第八章 提交作业
（1）在主菜单(Main)中选择3(General system tasks) （2）在General system tasks菜单中选择1（Jobs） （3）在Jobs菜单上键入选项7（Submit a job） （4）按执行键（Enter）出现Submit a job命令提示屏幕，或者键 入命令SBMJOB，并按F4键。 （5）在Command to run 5 Command run输入字段内键入在批作业中你要运行的命 令。如果该作业是一个CL程序，则要键入程序名，如CALL PAYROLL。 （6）如果需要可修改其它字段的缺省值，也可以不修改。
AS400基础知识
AS400基础知识AS400（Application System/400）是IBM公司开发的一种中型计算机系统，广泛应用于企业的信息管理与处理中。
本文将介绍AS400系统的基础知识，包括其特点、结构和应用领域等。
一、AS400的特点AS400是一种集成的业务处理系统，具有以下特点：1. 可靠性：AS400采用了可靠性高的硬件和操作系统，具备极高的稳定性和可靠性。
2. 安全性：AS400内置了多层次的安全机制，保护用户的数据不被非法访问和篡改。
3. 可扩展性：AS400系统支持多种扩展方式，如扩展存储、增加处理器等，以适应不断增长的业务需求。
4. 易用性：AS400提供友好的用户界面，使得用户可以轻松进行操作和管理。
5. 兼容性：AS400能够与各种主流的操作系统和数据库进行良好的兼容，方便与外部系统进行数据交互。
二、AS400的结构AS400由硬件和软件两个层次构成，具体如下：1. 硬件层：AS400的硬件由处理器、存储器、磁盘、网络接口等组成，采用了冗余设计，保证系统的可靠性和稳定性。
2. 操作系统层：AS400的操作系统称为i5/OS，它提供了丰富的功能和服务，包括作业管理、文件管理、安全管理等。
3. 应用软件层：AS400上可以运行各种应用软件，如ERP系统、财务管理系统、人力资源管理系统等，以满足企业的不同需求。
三、AS400的应用领域AS400被广泛应用于各个行业的企业信息化建设中，主要应用领域包括：1. 金融行业：AS400可用于银行、证券等金融机构的核心业务处理，如账户管理、交易处理等。
2. 制造业：AS400可以支持制造企业的生产计划、物料管理、质量控制等业务流程。
3. 零售业：AS400适用于零售企业的库存管理、销售统计、订单处理等业务。
4. 物流业：AS400可提供物流企业的配送管理、运输跟踪等功能。
5. 公共事业：AS400可以支持政府和其他公共事业单位的信息管理和服务提供。
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”。
AS400教程
AS400教程【新客网AS400教程】AS/400 CL （Control Language) 控制语言是用户与操作系统之间的主要接口。
AS/400 CL控制语言基础◇课程大纲：l 第一章概述l 第二章 CL 编程l 第三章程序间的通讯l 第四章测试功能◆第一章概述提要：* 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 SNDMSGCopy File CPYFWork with Device Desripyions WRKDEVDCL 的参数由要害字和参数值组成，要害字通常和命令一样缩写，它用于说明参数的作用，在命令输入屏，按F11 键，即可看到要害字。
在命令行输入命令时，假如参数是按照固定的顺序输入，则可以省略要害字。
例如:SNDMSG MSG (HOLLEO) TOUSR (LENG)命令名要害字参数值大多数 CL 都是针对目标而言，目标是一个占据了一定存储空间的实体，它包括自身属性及其数据特征的描述，系统可以对它进行操作。
AS400入门
可与其他终端或系统传递数据
控制语言（CL-Control Language）
指令的形式
指示操作的命 令
指令名 + 参数
指示操作的内容
例：CALL PGM(SEIKYU)
指令名命名规则
动词 + 目的语
例：生成指令---CRTXXX（CReaTe XXX） 开始指令---STRXXX（STaRt XXX） 结束指令---ENDXXX（END XXX）
记录的读取方法
➢ 指定读取顺序 ➢ 限定读取字段 ➢ 选择条件
DB文件例
a.
[物理文件] 得意先マスター
得意先 得意 住所 電話 売掛金
番 号 先名
番号 残 高
b. 直接邮寄用 得意先番号
记录样式
c.
读取顺序
债权管理用 売掛金降序 売掛金10万元以上
记录样式
[逻辑文件]
得意先 得意 住所 番号 先名
源程序文件成员:生成/修改 数据库文件成员:表示/删除
Query（动态信息检索）
Query的使用流程
➢ 定义:哪个文件的哪个记录按何种次序输出
➢ 执行:结果可输出到显示器,打印机,文件
Query的机能
➢ 选择特定的记录
QUERY
DB文件
➢ 按一定顺序分类
➢ 集计
➢ 四则运算
显
➢ 编辑打印
示
打印报告
DDS登录 （STRSEU）
生成打印文件 （CRTPRTF）
辅助存储器 源文件 打印文件
程序的生成
程序类型
➢ 对话型：利用画面与操作员边对话边处理 ➢ BATCH型：无需操作员参加统一处理
文件类型
➢ DB文件 ➢ 画面文件 ➢ 打印文件
《AS400系统操作》课件
实现更高效的应用开发。
3
安全管理和设置
4
学习AS400系统中的安全管理措施和设置 方法，确保系统的安全性。
数据库管理和操作
深入了解AS400系统中的数据库管理和各 种操作技巧，提高数据管理效率。
网络管理和配置
了解AS400系统的网络管理功能，掌握网 络配置和维护方法。
AS400系统的应用和实例
企业中的应用和实践
探索AS400系统在企业中的广泛 应用和成功实践案例。
行业中的应用和案例
了解AS400系统在不同行业中的 应用领域和成功案例。
发展趋势和未来展望
展望AS400系统的未来发展趋势， 了解新兴技术对其的影响。
结语
价值和意义
总结AS400系统的价值和意义， 包括其对企业和个人带来的 影响。
学习和掌握
强调学习和掌握AS400系统操 作的重要性，并提供学习资 源和建议。
问题和解决方案
分享一些常见问题和解决方 案，帮助用户更好地使用 AS400系统。
了解AS400系统的窗口界面和各种菜单选项的 功能与用途。
3 文件管理和操作
4 打印和输出
掌握如何在AS400系统中管理和操作各种文件 和文档。
学习如何在AS400系统中进行打印和输出操作， 实现信息的传递和共享。
AS400系统的高级操作
1
程序编写和调试
2
掌握AS400系统中的程序编写和调试AS400系统操作
介绍AS400系统
起源和发展
探索AS400系统的起源，并了解其在计算机技术领域的发展历程。
特点和优势
深入了解AS400系统所具备的独特特点和在实际应用中的优势。
AS400系统的基本操作
AS400教程
AS400教程本教程将介绍AS400操作系统的一些基本功能和常用命令，以帮助用户更好地理解和使用AS400系统。
一、作业管理作业管理是AS400系统最重要的功能之一，它可以帮助用户有效地管理和控制系统中的作业流程。
以下是一些常用的作业管理命令：1.WRKJOB：用于查看和管理正在运行的作业，可以查看作业的状态、作业队列、作业日志等信息。
2.STRSRVJOB：启动一个后台作业，可以在后台运行用户指定的任务。
3.ADDJOBSCDE：添加一个作业计划，可以在指定的时间和日期自动启动一个作业。
4.DEPJOB：设置作业的依赖关系，当一个作业完成时，可以自动启动下一个作业。
二、用户管理1.CRTUSRPRF：创建一个新用户账户，可以指定用户的登录名、密码、菜单等信息。
2.CHGUSRPRF：修改用户账户的属性，如密码、权限等。
3.DLTUSRPRF：删除一个用户账户。
4.WRKUSRJOB：查看用户账户相关的作业信息。
三、文件管理1.CRTLIB：创建一个新的库，库是AS400系统用来存储文件和数据的基本单位。
2.CRTF：创建一个新的文件，可以指定文件的格式和属性。
3.OPNQRYF：打开一个查询文件，可以按照指定的条件查询文件中的记录。
4.CPYF：复制文件，可以复制一个文件到另一个文件或库。
5.DLTF：删除一个文件。
6.DSPFD：显示文件的描述信息，包括文件的大小、保存日期等。
7.WRKLIB：查看和管理库，可以查看库中的文件列表和属性。
四、打印管理1.WRKSPLF：查看和管理打印输出队列，可以查看打印任务的状态、优先级等信息。
2.WRKOUTQ：查看和管理输出队列，可以查看输出队列中的作业，如打印任务、文件等。
3.PRTUSRPRF：设置用户的打印输出设备。
4.CHGOUTQ：更改打印输出队列的属性，如优先级、限制等。
五、系统管理1.WRKSYSSTS：查看系统的状态和性能指标，如CPU利用率、内存占用等。
AS400培训资料(上)
AS400培训资料（上）AS400应用开发基础知识培训教材前言本教材提供给参与本次项目开发的项目成员，目的是使大家能够尽快地掌握基本的程序开发。
本次培训分两阶段，第一阶段讲解AS400的数据文件和基本的RPG编程内容共四章。
第二阶段讲解AS400的较为深入的内容以及交易程序的编写。
在教材中对于AS400的技术理论不作过多的讲解，主要围绕RPG编程使用的物理文件，逻辑文件，程序三块进行讲解。
结合我们在以前项目的培训的过程中学员反映的重点和难点，根据我们个人的理解，对一些概念进行了通俗化的描述。
在讲解过程中，将通过及时的交流和沟通，尽量的把大家都带入门由于时间短和水平有限，在教材中和讲解中难免有错漏，请大家见谅！教材编写组第一章物理文件的建立物理文件用于存放数据使用SEU进行编辑产生的MEMBER不是物理文件，而是物理文件的定义物理文件一般由MEMBER编译产生后，但它的存在不会依赖MEMBER 的存在源物理文件是特殊的物理文件，用于存放各类源代码的定义，在本章中若无特殊说明物理文件均指存放数据（RECORD）的物理文件（PF-DTA）物理文件的删除，必须在删除建立在该物理文件上的逻辑文件删除之后物理文件的数据，受已经建立的逻辑文件影响，如非重复关键字或非重复关键字组合（即这些关键字能够唯一确定一条记录）在RPG程序中因为效率的原因，一般不使用物理文件进行操作建立物理文件的准备建立 Library的操作CRTLIB + Library的名字直接按默认的配置生成或Create Library (CRTLIB)Type choices, press Enter.Library . . . . . . . . . . . . > SSS NameLibrary type . . . . . . . . . . *PROD *PROD, *TESTText 'description' . . . . . . . 这是一个用来测试的 LibraryBottoF3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel建立存放源程序的源物理文件建立源物理文件的方法Create Source Physical File (CRTSRCPF)Type choices, press Enter.File . . . . . . . . . . . . . . wjdsrc NameLibrary . . . . . . . . . . . sss Name, *CURLIBRecord length . . . . . . . . . 92 NumberMember, if desired . . . . . . . *NONE Name, *NONE, *FILEUser specified DBCS data . . . . *yes *NO, *YESText 'description' . . . . . . . 这是测试用的源文件BottoF3=Exit F4=Prompt F5=Refresh F10=Additional parameters F12=Cancel备注: User specified DBCS data 该项必须选择*yes,否则在建立的SRCPF中将不能使用汉字进入源物理文件（SRCPF）的方法STRPDM 3Specify Members to Work WithType choices, press Enter.File . . . . . . . . . . wjdsrc Name, F4 for listLibrary . . . . . . . . sss *LIBL, *CURLIB, nameMember:Name . . . . . . . . . *ALL *ALL, name, *generic*Type . . . . . . . . . *ALL *ALL, type, *generic*, *BLANK或使用WRKOBJPDM+F4或 WRKLIBPDM+F4或 WRKMBRPDM+F4在以上命令中若不使用F4则将使用最近一次使用的环境建立定义物理文件的（类型为PF）MEMBER使用F6键产生新的MemberStart Source Entry Utility (STRSEU)Type choices, press Enter.Source file . . . . . . . . . . > WJDSRC Name, *PRVLibrary . . . . . . . . . . . > SSS Name, *LIBL, *CURLIB, *PRV Source member . . . . . . . . . wjd tstpf Name, *PRV, *SELECTSource type . . . . . . . . . . pf Name, *SAME, BAS, BASP...Text 'description' . . . . . . . 这是测试用的ＰＦBottF3=Exit F4=Prompt F5=Refresh F12=Cancel F13=How to use this displayAS400的编辑器SEU的内容，常用的操作使用编辑器进行物理文件的结构定义执行后进入以下画面Columns . . . : 1 71 Edit SSS/WJDSRC 名称SEU==>行命令输入区 WJDTSTPFFMT PF ++++++RLen++TDpB......Functions+++++++++++++++++ 提示行*************** Beginning of data ************************************''''''''''''''''''''''''''''行号序号区域''' 内容输入区'''''''''''''''''''''''''''''''''''''''''''''''''****************** End of data ***************************************F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=Toggle行命令区域常用的命令T 移到头部 B 移到尾部F+字符串(不必用引号) 查找字符串C + 要替换的字串+替换成的字串 (+A) 替换字符串(或全部替换)行号序号区域常用的命令I 插入一行 In 插入n行D 删除一行 Dn 删除n行DD 将两个DD之间的行删除.C 将本行进行拷贝,此命令必须与A或B配合使用CC 将两个CC之间的行进行拷贝,此命令必须与A或B配合使用M 将本行进行移动,此命令必须与A或B配合使用MM 将两个MM之间的行进行移动,此命令必须与A或B配合使用A –after 将拷贝或移动的行放到本行后面B—before 将拷贝或移动的行放到本行后面在本区域输入行号可以快速将编辑窗口移到所输的行(以该行作第一行)请大家在今后的练习中多加使用!!一个物理文件的DDSColumns . . . : 1 71 Edit SSS/WJDSRCSEU==> WJDTSTPFFMT PF ++++++RLen++TDpB......Functions+++++++++++++++++ *************** Beginning of data ************************************ 0001.00 A R WJDPF0001.01 A* 上行是说明记录的名称 PF0002.00 A PENUMB 3P 00002.01 A* 上行是将个人序号说明为３位长度的整数（小数长度为 0 ）0003.00 A COLHDG(' 个人序号 ')0004.00 A PENAME 10O0004.01 A* 上行将个人中文名说明为 10 个汉字长0005.00 A COLHDG(' 个人中文名 ')0006.00 A PEENNM 12A0006.01 A* 上行将个人英文名说明为 12 个字母长度0007.00 A COLHDG(' 个人英文名 ')0008.00 A PESARY 7P 20008.01 A* 上行将每日消费说明为 7 位长，其中小数位为 2 位长的数值0009.00 A COLHDG(' 每日消费 ')****************** End of data ***************************************F3=Exit F4=Prompt F5=Refresh F9=Retrieve F10=Cursor F11=ToggleCOLHDG用来在进行数据的显示DSPDBF（见P19）和UPDDTA（见P18）时作为域的说明，便于理解域的内容，若不使用COLHDG则这些内容为定义域时的域名，如个人序号将为 PENUMB注意: 在输入COLHDG的）时window的输入法可能不是处于中文状态！！！因此输入的）可能为中文的）造成错误（亮条)此时屏幕出现MEMBER 存盘ExitType choices, press Enter.Change/create member . . . . . . . Y Y=Yes, N=NoMember . . . . . . . . . . . . . WJDTSTPF Name, F4 for listFile . . . . . . . . . . . . . . WJDSRC Name, F4 for listLibrary . . . . . . . . . . . . SSS NameText . . . . . . . . . . . . . . 这是测试用的ＰＦResequence member . . . . . . . . Y Y=Yes, N=NoStart . . . . . . . . . . . . . 0001.00 0000.01-9999.99Increment . . . . . . . . . . . 01.00 00.01-99.99Print member . . . . . . . . . . . N Y=Yes, N=NoReturn to editing . . . . . . . . . N Y=Yes, N=NoGo to member list . . . . . . . . . N Y=Yes, N=No此时若想取消本次修改的内容则Change/create member选项改为N 存盘后产生Member wjdtstpfWork with Members Using PDM S105067File . . . . . . WJDSRCLibrary . . . . SSS Position to . . . . .Type options, press Enter.2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename8=Display description 9=Save 13=Change text 14=Compile 15=Create module. Opt Member Type TextWJDTSTPF PF 这是测试用的ＰＦBottoParameters or command===>F3=Exit F4=Prompt F5=Refresh F6=Create将定义物理文件的MEMBER编译产生物理文件PF的编译方法为了把数据文件和源文件分开先建立存放PF的Library使用命令CRTLIB SSSDTA方法一使用方法二直接在Member前的OPT中选择Work with Members Using PDM S105067File . . . . . . WJDSRCLibrary . . . . SSS Position to . . . . .Type options, press Enter.2=Edit 3=Copy 4=Delete 5=Display 6=Print 7=Rename8=Display description 9=Save 13=Change text 14=Compile 15=Create module. Opt Member Type Text14 WJDTSTPF PF 这是测试用的ＰＦBottoParameters or command===>F3=Exit F4=Prompt F5=Refresh F6=Create按下F4后出现CRTPF的画面Create Physical File (CRTPF)Type choices, press Enter.File . . . . . . . . . . . . . . > WJDTSTPF NameLibrary . . . . . . . . . . . > SSSDTA Name, *CURLIB Source file . . . . . . . . . . > WJDSRC NameLibrary . . . . . . . . . . . > SSS Name, *LIBL, *CURLIB Source member . . . . . . . . . > WJDTSTPF Name, *FILE Record length, if no DDS . . . . NumberGeneration severity level . . . 20 0-30Flagging severity level . . . . 0 0-30File type . . . . . . . . . . . *DATA *DATA, *SRC Member, if desired . . . . . . . *FILE Name, *FILE, *NONE User specified DBCS data . . . . *NO *NO, *YESText 'description' . . . . . . . *SRCMBRTXT。
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：normalM： manual三、常用巡检命令：1、wrkdevd *opt|*tap2、dsptap3、dspopt4、wrkshrpool：内存5、wrkhdwrsc type(*stg)：硬盘状态6、wrkhdwrsc type(*prc)：cpu和内存状态，7、wrkhdwrsc type(*cmn)：网卡状态8、wrksyssts9、wrkdsksts：硬盘（%busy一般不超过40%）10、dsplog F411、wrklicinf:查看版本号等12、cfgtcp13、pwrdwnsys:关闭系统三、系统知识1、AS：application system2、cfgtcp、wrkhdwrsc *cmn：配置网卡3、crtlineth4、AS400上不支持SNA5、strtcp：激活tcp6、AS/400的分层机构：application|os/400|slic|64-bit RISC。
(slic:systemlicense internal code)7、系统能登陆中进sst（strsst）看log，系统不能登陆进dst看log。
8、src：system ref code9、pal：product activity log10、打印系统配置：strsst-start a services tool-hardware services manager-f6=print configuration-退出sst-wrksplf （F4选择相应的项）11、dspmsg qsysopr12、黄灯不报警：cpu、内存、风扇没问题，机器可以正常工作。
AS400中文培训Query-4
可以规定多在100个比较。
每次比较都可以使用需要的多行，最多可使用100行。
‘选择记录’显示为一次提供六行让你输入比较。
如果需要更多行，按PAGE DOWN键来获得更多的空输入行。
如果光标定位在任何输入行（无论是否在此进行比较），都可用翻页键来观查所有输入的比较。
2.5.2.1 比较字段要做测试，字段必须是下列之一：字段在你所选定的文件中。
可以是任何字段，包括没有选择包括在输出中的字段。
为查询定义的结果字段。
当规定一个字段做比较，如果此字段在列表中的多个文件中，必须在字段名前输入文件标识符且用句点分开。
例如：如果字段ACCTNUMBER在两个选定的文件中都有，它们的标识为T01、T02，则必须指定T01.ACCTNUMBER或T02.ACCTNUMBER。
如果不包含文件标识，查询就不知道从哪个文件得到比较测试所需要的字段。
可以用F18键来看所选择的文件目录及与每个文件相关的文件标识。
2.5.2.2 比较值可比较的值可以是：另一个字段一个数值常数一个字符常数（SBCS或DBCS）一个日期常数一个时间常数一个时间标记常数比较的字段和值必须是兼容的数据类型。
下面是记录选择测试有效的比较：SBCS字符字段与：SBCS字符DBCS-eitherDBCS-openDBCS-either字段与：SBCS字符DBCS-eitherDBCS-openDBCS-onlyDBCS-open字段与：SBCS字符DBCS-eitherDBCS-openDBCS-onlyDBCS-only字段与：DBCS-eitherDBCS-openDBCS-onlyDBCS-图形字段与：DBCS-图形UCS2—图形字段与：UCS2-图形数值字段与数值字段日期字段与：SBCS字符日期DBCS-eitherDBCS-open时间字段与：SBCS字符时间DBCS-eitherDBCS-open时间标记字段与：SBCS字符时间标记DBCS-eitherDBCS-open任何字段都可以用IS或ISNOT同NULL键字进行比较，来确定此字段是否为空。
RPGAS400程序员培训手册
RPGAS400程序员培训手册ON-ERROR (On-Error)没用过OPEN {(E)} (Open File for Processing) 打开文件Factory 1 Operation Factory 2 Result HI LO EQOPEN 文件名OPEN 后面的目标，必须是在当前程序中已声明的文件名（不是文件的记录格式名），而且在OPEN 操作之后，在程序终止之前之前，必须有对应的CLOSE 操作。
使用OPEN 操作，文件在声明时，必须使用USROPN 关键字（详见D 行说明）。
ORxx (Or) 逻辑判定—或Factory 1 Operation Factory 2 Result HI LO EQFLD01 IFGT FLD03FLD01 OREQ FLD02等价于IF FLD01>FLD03 OR FLD01=FLD02与IF、IFxx，AND、ANDxx 类似，RPGLE 的写法OR，比RPG 的写法ORxx 要灵活，而且能够用来表达一些复杂的逻辑关系。
有鉴于此，因此通常IF 语句中，我会以OR 为主，差不多不用ORxx。
假如在编程序方面，公司/项目组无硬性要求，那我觉得依旧少用ORxx 吧，总觉得这种写法的逻辑关系看起来不直截了当，专门是有专门复杂的AND,OR 时。
OTHER (Otherwise Select) 分支语句的判定与分支语句SELECT 一起使用，表示不符合上述所有条件时的操作，如下：Factory 1 Operation Factory 2 Result HI LO EQSELECTWHEN 条件判定1处理语句1WHEN 条件判定2处理语句2OTHER处理语句3ENDSL在那个例子中，当满足条件判定1 时，运行处理语句1，运行终止后跳至ENDSL 处；假如不满足条件判定1，则程序连续向下执行，判定是否满足条件判定2。
当满足条件判定2 时，运行处理语句2，跳至ENDSL；当不满足当不满足条件判定2 时，程序连续向下执下，当读到OTHER 操作码时，无条件运行处理语句3（即当程序当前不满足以上因此条件判定时，则执行OTHER 之后的语句。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
一.AS/400简介 (3)二.开发环境和开发工具介绍 (4)1．AS/400环境简介 (4)1.1三级存储结构 (4)1.2 如何建立库、文件和成员 (7)2、ILE简介 (8)3、AS/400开发工具介绍 (9)三.DDS介绍和实例说明 (10)1、AS/400的DDS常用类型介绍 (11)2、AS/400物理文件和逻辑文件介绍 (11)3、AS/400如何使用DDS来创建物理文件和逻辑文件 (11)4、AS/400如何使用DDS来创建显示文件 (16)四.RPG介绍和实例说明 (20)1、RPG的基本结构介绍 (20)2、F段介绍 (21)3、D段介绍 (23)3.1 单独变量的定义 (23)3.2 结构变量的定义 (24)3.3 常量的定义 (24)3.3 数组的定义 (24)4、C段介绍 (25)4.1 概念 (25)4.2 程序入口的定义 (27)4.3 程序的结束 (27)4.4 变量的赋值 (27)4.5 子过程的定义 (28)a）概述 (28)b）子过程的建立 (28)c）子过程的调用 (29)4.6 程序过程控制（判断、循环） (30)a) 判断 (30)b) 多重判断 (30)c) 循环 (30)4.7 数据文件的操作 (31)a) 文件相关操作 (31)b) 记录定位相关操作(游标) (31)c) 记录更新相关操作 (33)5、一个程序的实例及分析 (34)6、在RPG中嵌入SQL (48)五.CL程序的开发介绍 (48)1、CL 命令的介绍 (48)2、CL 程序 (49)3、CL 程序实例 (50)六.程序间的互相调用 (53)1、RPGIV之间的调用 (53)2、CLP与RPG之间的调用 (55)AS/400 初级培训讲义目的：希望通过短期培训，让有编程基础的技术人员，了解AS/400的一些基本概念和操作方式。
了解AS/400的代码编辑方式和基本概念一. AS/400简介AS/400是IBM于1988年推出的一种商用小型机，它是在 IBM System/32，System/34，System/36，System/38这个系列的基础上发展而来的。
因为IBM一些历史原因，于是干脆加了个零（不叫System/40，而叫400），同时在前面加了个Application，组成Application System，表示它是应用系统，这就是Application System/400(AS/400)的名称来历。
后来随着AS/400从CISC机器变成RISC机器，Application System也变成了Advanced System，不过缩写还是AS/400。
再到后来，随着互联网的兴起和商业上的实用化，IBM AS/400这个名字又变成了IBM eServer iSeries。
图1像IBM的其他赚钱的电脑系统一样，AS/400也用的是自己的专有技术，硬件是这样，操作系统也一样，它的操作系统是Operating System/400(OS/400),和别的操作系统都不兼容。
它上面的数据库只有一种，那就是DB2/400，名字符合IBM DB2系列，但是技术底层则完全不同。
同样，它上面的应用程序也基本上不具备可移植性。
也就是说，一旦客户选购了这种机型，它只能够用OS/400+DB2/400+SQL/400，没有别的选择，只能够以此为基础开发应用程序或者选用专为它开发的应用程序，这个客户就实际上被拴在了这个平台上而不可能离开，除非用户决心彻底重来。
而这个彻底重来经常意味着连应用程序的开发语言都必须改变，因为AS/400上的主要商用应用程序的开发语言是RPG，一种只有IBM AS/400才有的编程语言。
AS/400其优点是高度的集成性和稳定性，以及相对低廉的维护成本（拥有成本，新名词）当然，目前iSeries系列下，用户可以用其他编程语言来开发程序（例如，Java），但是传统观念认为，就性能而言，RPG产生的代码是最高效的。
目前iSeries系列下，允许在一台服务器上安装Linux、Java、Windows2000和Domino 等多种应用，支持多种文件格式如：NTFSAS/400的操作方法分为两种。
1）菜单操作；2）命令操作（希望可以打开AS/400界面做一下直观的介绍，顺便介绍一下通用的功能键）二. 开发环境和开发工具介绍1．AS/400环境简介1.1作业(Job)和假脱机文件(Spool file)OS/400以作业（Job）为单位进行，进行作业的运行方式一般分为前台交互和后台批量。
作业在子系统下运行，作业有自己的惟一标示和运行属性。
假脱机文件是由程序产生的可用于打印输出的特殊文件，假脱机文件存放在称作输出队列（Output queue）的容器里。
假脱机文件可以转换成数据文件。
演示：Wrkactjob，Wrksplf1.2三级存储结构OS/400是完全的面向对象(Object)的操作系统。
在AS/400e中除了库列表（Library List）以外，其它的可操作部件均为对象，如菜单（Menu），用户简要表（User Profile），屏幕（Display File），子系统描述（Subsystem Description），作业描述（Job Description）等都是对象。
对象在AS/400上占有一定的存储空间，并可创建，删除，修改对象的描述，在实际使用时将其实例化。
库（LIBRARY）——> 对象（OBJ & FILE）——> 成员（MEMBER）对象（Object）这里我们所说的对象是指在系统的存储器中存在并占用一定的存储空间的实体，对其可执行一定的操作.每一个对象拥有一个名字，并可以通过CL命令创建和删除对象。
每种对象类型有自己的类型标识，文件对象的标识为*FILE、命令对象的标识为*CMD等。
演示命令：Wrkobj的使用库(Library)库是OS/400操作系统上的一种对象，是一种可以经由它找到其他OS/400对象的对象。
库不象PC或UNIX等操作系统上的多层目录结构，它是单级结构。
要在OS/400上搜索一个对象，我们必须知道该对象的名称及所在的库(例如：库/对象)，同时我们还需要知道对象的类型，以次来唯一确定这个对象。
两个或多个对象可以有相同的名称，但是它们必须是不同类型的对象。
换而言之，在同一个库里，可以有一个名称为SAM的程序和一个名称为SAM的数据区域，但是不能在这个库里有两个名称为SAM的程序。
同样的道理，一个对象能且只能存在于一个库里。
演示命令：Wrklib 和Wrkobj库列表（Library List）每当一个作业在OS/400中被初始化时，系统就会为这个作业创建一张库列表，库列表中含有若干个库的名字。
当用户使用简单名字访问一个对象时，系统就会在这个作业的库列表中自上而下地逐个搜索那些库，一旦在某个库中找到该对象，就停止搜索。
显然一个库在库列表中的位置是很关键的。
库列表不是一个对象，它不能够被创建和删除，库列表对于不同的作业来说可能是相同的，但每个库列表只可由其所属的作业使用。
当作业被创建时库列表自动被创建，当作业结束时该作业的库列表被清除。
库列表的编辑：在命令行下键入EDTLIBL按回车演示命令：EDTLIBL;再演示Wrkobj 说明libl的意义成员(Member)文件（File）是一种用于存放各种数据的对象（Object）。
400的文件可分为两种属性，一种是数据文件其属性标识为PF-DTA，另一种是源文件其属性标识为PF-SRC。
一个文件可以包含0个到多个成员（Member），成员是真正存储数据的实体，通常创建一个文件后，系统默认包含一个成员。
需要说明的是：虽然DB2/400支持多成员的数据文件，提高了数据查询程序的灵活性和简洁性。
但是一般不推荐使用，原因是多成员文件增加了系统数据结构的复杂度，并且不利于数据移植。
为了更好说明成员的概念，举例说明，某百货商厦将营业数据存放在一个数据文件（File）中。
图A表示，存在一个名为ASALTP的数据文件，该文件有一个名为ASALTP 的成员。
成员ASALTP内，存放着2000年度的销售明细数据图A图B表示，存在一个名为ASALTP的数据文件，该文件有四个成员，分别名为ASALTP1、2、3、4。
每个成员存放着2000年度的每一季度的销售明细数据图B总结图1.3 如何建立库、文件和成员使用CRTLIB命令给自己建个库，如：CRTLIB LIB(MYLIB)使用CRTSRCPF命令建立一个源物理文件，用来放置源码CRTSRCPF FILE(MYLIB/MYSRCPF)到此为止，自己存放源码的地方已经生成，你可以直接使用以下命令直接进入该源物理文件：WRKMBRPDM FILE(MYLIB/MYSRCPF)进入该文件之后,就可以建立任何源码文件了，按F6，显示“Start Source Entry Utility (STRSEU)”画面参数说明如下：Source member：表示建立的成员名，我们把它理解成存放源码的文件就可以，类似WINDOW平台的TXT文件；Source type：表示建立的成员名的类型，如果不确定，可按 F4 查看，常用类型有(1)PF：物理文件；(2)LF：逻辑文件；(3)RPG： RPG程序源码文件；(4)RPGLE： RPGLE程序源码文件；(5)DSPF：显示文件；(6)CLP： CL程序源码文件；(7)CLLE： CLLE程序源码文件；(8)CMD：命令文件通过wrkobjpdm 的演示，了解库结构、文件成员、文件后缀2、ILE简介首先介绍两个概念：OPM (original programing mode) 是老式的程序开发和运行环境，在OPM中最小的结构单元是程序，各个OPM程序之间使用动态调用，在ODP中会出现一个程序的多个样本，要求内存足够大，而且OPM的API集合比较小，功能简单。
目前的机器依然支持OPM 环境。
ILE（integrated language environment)是新式的程序开发和运行环境，其提供了一系列新理念和工具，以增强原有的AS/400程序开发（OPM）。
ILE中最小的结构单元是module,各个module之间支持静态调用和动态调用，支持强大的API集合，支持ILE C，ILE COBOL，ILE RPG等语言。
下图说明了ILE的编译步骤。
ILE中，源码将会先编译成Module，然后将各种Module 绑定成程序下图说明ILE环境下使用各种语言编写的程序，最终形成一个PGM。
使用ILE技术可以构建类似WINDOWS下的DLL程序，用以减少内存使用，加速应用程序访问速度。