《AS400中文培训教程》.pdf
AS400_初级培训
一.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这个系列的基础上发展而来的。
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培训课程2（DDS,MENU,MSGF介绍）
AS400培训课程2（DDS,MENU,MSGF介绍）AS400培训课程2 (DDS,MENU,MSGF介绍)(海外事业部)拟稿: 杨群涛日期: 2008/7/22目录四、DDS (4)1、概况 (4)用途 (4)分类 (4)辅助工具 (4)2、数据文件和索引文件定义 (4)文本格式 (4)示例: (6)3、显示文件及实例讲解 (8)使用工具SDA快速建立显示文件 (8)文本格式说明 (12)显示文件的使用: (12)显示文件的Subfile子文件介绍 (13)4、打印文件实例讲解 (15)概况 (15)source文本格式: (15)使用RLU工具处理打印文件 (17)使用 (23)5、ICFF介绍 (24)五、MENU (25)组成 (25)Source (25)示例 (25)工具及使用 (26)菜单属性 (29)命令行 (29)DSPKEY (29)六、MSGF (29)系统msgf (29)所有用户msgf (30)列表系统当前可用的msgf (30)Msgf的建立 (30)Msgf的维护 (30)使用 (35)其他messgae相关 (38)Reply List设置自动应答列表 (38)七、数据文件属性和关系以及程序依赖信息 (42)文件描述 (42)字段描述 (45)数据文件关系 (46)程序依赖信息 (47)系统文件的格式的使用 (56)四、DDS1、概况用途数据结构定义分类PF,LF, DSPF PRTF, ICFF（Intersystem Communications Function File）文件类型命令物理文件CRTPF逻辑文件CRTLE显示文件CRTDSPF打印机文件CRTPRTFICF文件CRTICFF辅助工具STRSDA （Screen Design Aid）STRRLU （Report Layout Utility）2、数据文件和索引文件定义文本格式0001.00:顺序号和格式类型在DDS中是可选的。
AS400程序员培训手册(中级)
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 逻辑文件对效率的影响 (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)4.1 写在前面 (56)4.2 常规用法 (57)4.2.1 程序编译 (57)4.2.2 执行DEBUG命令 (57)4.2.3 运行程序 (57)4.2.4 在DEBUG模式中进行调试 (58)4.2.5 跟踪被当前程序调用的程序 (58)4.2.6 一定要退出DEBUG模式 (59)4.2.7 补充 (59)4.3 跟踪批处理程序( From qingzhou) (60)4.4 常见的出错信息 (60)4.4.1 编译程序时的出错信息 (60)4.4.2 运行时的出错信息 (62)5 CL、CMD (62)5.1 CL程序 (62)5.1.1 基本认识 (62)5.1.2 CL程序的常用语法及命令： (63)5.1.3 不常用的语法 (65)5.2 CMD (66)6 屏幕文件及使用（整理中） (67)7 其它 (72)7.1 报表打印 (72)7.2 SA VF，备份与恢复 (77)7.3 菜单--MENU (78)7.4 几个命令 (78)7.5 关于代码风格的几点想法 (81)1简单说明内部交流、或可作培训使用。
IBM 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级认证，堪称世界上"最安全"的计算机系统。
AS400中文教程
AS400中文教程AS400是一种使用广泛的主机操作系统，也是一种经典的企业级计算机系统。
它具有稳定性、可靠性、安全性和易用性等特点，广泛应用于企业、金融、物流、制造等领域。
本篇教程将介绍AS400的概念、原理、操作和应用等内容，帮助初学者了解和掌握AS400系统。
一、AS400是什么AS400（即IBMi）是IBM公司推出的一种企业级计算机系统。
它以稳定性、可靠性和安全性著称，广泛应用于企业的核心业务系统和数据处理中心。
AS400采用了先进的虚拟化技术，可以同时运行多个操作系统和应用程序，提供强大的计算和存储能力。
二、AS400的原理AS400的核心原理是通过操作系统管理和控制计算机硬件资源，提供一种可靠、高效的计算环境。
AS400操作系统采用了独特的对象概念，将计算机资源（例如打印机、磁盘、网络连接等）抽象为对象，通过开放的API接口提供给应用程序使用。
这种面向对象的设计可以方便地进行系统管理、应用开发和资源分配。
三、AS400的基本操作1.登录系统：AS400通常通过终端或PC客户端进行远程登录。
输入正确的用户名和密码后，即可登录到系统。
2.发布任务：AS400支持多任务处理，可以同时运行多个任务。
通过发布任务可以在系统中创建新的任务，并指定其优先级和执行时间。
3.管理文件：AS400系统使用基于对象的文件系统，管理文件非常方便。
可以通过命令行或图形界面操作，创建、删除、复制和移动文件等。
4.资源监控：AS400提供了强大的系统监控工具，可以实时查看系统的运行状态、资源使用情况和性能指标等。
通过监控可以及时发现和解决系统问题，保证系统的稳定运行。
四、AS400的应用1.金融系统：AS400可以作为金融机构的核心业务系统，处理各种金融交易、资金结算和风险管理等业务。
2.物流系统：AS400可以用于物流企业的仓库管理、货物跟踪和配送管理等业务。
3.制造系统：AS400可以用于制造企业的生产计划、工艺控制和品质管理等业务。
AS400技术培训(12)-附录1_AS400系统命令
AS/400基本操作命令 AS/400基本操作命令
AS/400基本操作命令 AS/400基本操作命令
– AS/400的基本操作都是针对目标的操作。 AS/400的基本操作都是针对目标的操作。 AS/400有多种不同类型的目标，针对每种不同 AS/400有多种不同类型的目标，针对每种不同 类型的目标，系统都提供了一组操作命令。 – 一般情况常用的目标有：用户简要表*USRPRF， 一般情况常用的目标有：用户简要表*USRPRF， 库*LIB，文件*FILE（包括物理文件、逻辑文件、 LIB，文件*FILE（包括物理文件、逻辑文件、 显示文件、打印文件等），数据区*DTAARA， 显示文件、打印文件等），数据区*DTAARA， 数据队列*DTAOBJ，程序*PGM等。 数据队列*DTAOBJ，程序*PGM等。
– 修改用户口令CHGPWD 修改用户口令CHGPWD
一般情况下用户没有使用CHGUSRPRF命令的权限， 一般情况下用户没有使用CHGUSRPRF命令的权限， 可以使用该命令更改口令。用户应该定期修改口令。
AS/400基本操作命令 AS/400基本操作命令
– 删除用户DLTUSRPRF 删除用户DLTUSRPRF
AS/400基本操作命令 AS/400基本操作命令
源物理文件操作命令：
– 建立源物理文件CRTSRCPF 建立源物理文件CRTSRCPF
RCDLEN：92。 RCDLEN：92。 IGCDTA： YES，可以双字节的数据。 IGCDTA：*YES，可以双字节的数ID：935。 CCSID：935。
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教程】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基础培训
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应用开发基础知识培训教材前言本教材提供给参与本次项目开发的项目成员，目的是使大家能够尽快地掌握基本的程序开发。
本次培训分两阶段，第一阶段讲解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——SDA使用手册（中文版）
目录第一章 SDA简介1.1 SDA优点1.2 SDA的概念及术语1.3 SDA有关考虑1.4 SDA使用已有的DDS1.5 启动和结束SDA1.6 使用STRSDA命令1.7 启动SDA1.8 启动系统38环境下的SDA（略）1.9 从PDM启动SDA1.10 结束SDA第二章 SDA工作屏功能2.1 所有SDA工作屏的一般功能2.2 往工作屏中增加常量2.3 修改工作屏的常量2.4 修改常量的长度2.5 增加信息常量2.6 显示属性位2.7 字段居中2.8 删除字段2.9 移动字段2.10 复制字段2.11 做多个修改2.12 规定显示属性2.13 去掉属性2.14 删除属性2.15 规定颜色2.16 去掉字段颜色2.17设计映象工作屏的工作2.18在工作屏显示数据库字段2.19在多字段和单字段方式之间切换2.20删除工作屏底行字段2.21用符号把数据库字段放在工作屏2.22显示字段名、长度和说明2.23修改字段名2.24修改非引用命名字段的长度2.25修改引用命名字段的长度2.26用字段名检索2.27往工作屏加字段2.28定义字段长度及小数位2.29定义数字字段2.30用显示标尺加一个数字字段2.31删除多个字段2.32修改字段类型2.33规定颜色键字2.34输入系统命令2.35处理条件工作屏显示第三章生成简单的显示3.1使用SDA显示的考虑3.2生成一个新记录3.3从数据库文件选择字段3.4在设计映象工作屏上定位标尺3.5在设计映象工作屏上放常量3.6在设计映象工作屏上放数据库字段3.7在设计映象工作屏上规定显示属性和用户定义字段3.8编辑一个字段3.9加信息标识3.10保存DDS生成显示文件3.11复制记录3.12重命名记录3.13删除记录3.14用PDM删除显示源成员第四章生成一个复杂的显示4.1选择文件层键字4.2选择记录层键字4.3从数据库文件选择字段4.4在设计映象工作屏设计显示4.5在工作屏放字段和加常量4.6生成重叠字段4.7在设计映象工作屏上移动字段4.8选择字段层键字4.9从设计映象工作屏上删除字段4.10用第一个显示设计第二个显示4.11重叠显示4.12对第二个显示定义字段4.13在设计映象工作屏上加用户定义的字段4.14打印工作屏映象4.15保存DDS生成显示文件第五章生成子文件5.1生成子文件记录5.2对子文件记录选择记录层键字5.3对子文件控制记录选择数据库字段5.4在映象工作屏上设计显示5.5从数据库文件定位字段5.6选择字段层键字5.7保存DDS，生成显示文件第六章测试显示文件6.1选择要测试的记录6.2测试输出及输入/输出数据字段6.3显示输入字段和缓冲区第七章生成菜单7.1AS/400菜单7.2为菜单建立源文件7.3定义菜单映象工作屏7.4对菜单映象工作屏定义提示7.5定义菜单命令7.6限制访问命令行及保存菜单7.7测试生成的菜单7.8修改菜单7.9更新菜单7.10生成菜单列表的子集7.11生成缺省菜单映象7.12删除菜单7.13用PDM删除菜单源文件第八章生成联机帮助信息8.1生成一个显示的联机帮助信息8.2定义文件层键字8.3对字段定义帮助区8.4定义文件层的联机帮助信息8.5定义记录层的联机帮助信息8.6保存DDS8.7对菜单生成联机帮助信息8.8生成新的帮助记录8.9复制一个帮助记录8.10更新复制的帮助记录8.11删除帮助记录8.12备份及完成帮助记录8.13使用帮助记录8.14生成联机帮助信息文本第九章生成窗口9.1生成窗口记录9.2选择窗口键字9.3显示设计映象工作屏的窗口第十章生成下拉菜单10.1生成下拉记录10.2生成菜单条记录10.3定义菜单条字段10.4定义下拉字段10.5保存DDS生成显示文件10.6测试下拉菜单第一章SDA简介可以使用屏幕设计辅助工具（SDA）来完成下列任务：设计菜单，用户可以从列出的选项中选择一个执行设计显示，可以帮助用户使用显示程序为显示和菜单生成联机帮助信息1.1SDA优点SDA与传统的设计显示的方法相比有以下优点：生成DDS，用户不用非有DDS的有关知识。
AS400中文培训教程之DDS（4）
2.3.12 用途（第38列）用这项指定字段是仅输入的，输入/输出的，或不可输入/不可输出的。
对于物理文件，可指定下列项：项意义空白缺省值为B（允许输入和输出）B 允许输入和输出由于缺省值即为B，所以无需指定这一项。
在38列上的项是不能由REF和REFFLD键字引用的。
因此当显示文件引用物理文件中的一个38列上为B的字段是没有影响的。
对于逻辑文件，可指定下列项：空白（缺省值）：如果38列是空白，发生下面情况：·对于简单和多格式逻辑文件（在记录层指定了PFILE），这个字段是可输入/输出的字段（B）。
·对于连接逻辑文件（在记录层指定JFILE键字），这个字段是只输入的（I）。
B（既输入又输出）：如果38列是B，那么这个字段是一个既输入又输出字段。
也就是说，程序既可以从这个字段中读数据亦可以向这个字段写数据。
对于连接逻辑文件二者都可的字段是无效的，这是因为连接逻辑文件是一个只读文件。
I（只输入）：如果38列是I，这是一个仅输入的字段。
也就是说，程序可以从这个字段读数据，但不能改变它的内容。
作为只输入字段的一个典型的情况是键字字段（为了降低对访问路径的维护开销），用户可以看但不能改的敏感字段（如：在顾员记录中的工资），以及这些字段指定SST或TRNTBL键字。
如果程序对指定了只输入字段的记录格式执行一个修改操作，那么只输入字段不被修改，并且也不送出信息。
如果程序对一个指定了只输入的字段的记录格式执行一个输出操作，那么只输入字段采用缺省值（见2.4.16DEF键字）。
在物理文件中只输入字段是无效的。
N（二者都不是）：如果38列是N，则这是一个既不输入也不输出的字段并且只对连接逻辑文件有效。
这样的字段可以用来作为连接逻辑文件的一个连接字段，但是程序不能用这个字段。
当在物理文件中连接字段的属性不区配时，使用这个字段。
在这种情况下，必须重定义一个或两个连接字段，但可能不想在记录格式中包含这些重定义的字段（也就是说，不想让应用程序看到这些重定义的字段），因此，为这些重定义的字段编码N，则它们就不出现在这个记录格式中。
RPG AS400程序员培训手册-19页精选文档
2.8.4.4 O--RON-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 之后的语句。
AS400程序员培训手册(中级)
4.2
5
6 7
常规用法 .................................................................................................................57 4.2.1 程序编译 .........................................................................................................57 4.2.2 执行DEBUG命令 ...........................................................................................57 4.2.3 运行程序 .........................................................................................................57 4.2.4 在DEBUG模式中进行调试 ...........................................................................58 4.2.5 跟踪被当前程序调用的程序 .........................................................................58 4.2.6 一定要退出DEBUG模式 ...............................................................................59 4.2.7 补充 .................................................................................................................59 4.3 跟踪批处理程序( From qingzhou).........................................................................60 4.4 常见的出错信息 .....................................................................................................60 4.4.1 编译程序时的出错信息 .................................................................................60 4.4.2 运行时的出错信息 .........................................................................................62 CL、CMD ..............................................................................................................................62 5.1 CL程序....................................................................................................................62 5.1.1 基本认识 .........................................................................................................62 5.1.2 CL程序的常用语法及命令： ........................................................................63 5.1.3 不常用的语法 .................................................................................................65 5.2 CMD .......................................................................................................................66 屏幕文件及使用（整理中） .................................................................................................67 其它.........................................................................................................................................72 7.1 报表打印 .................................................................................................................72 7.2 SAVF，备份与恢复 ...............................................................................................77 7.3 菜单--MENU ..........................................................................................................78 7.4 几个命令 .................................................................................................................78 7.5 关于代码风格的几点想法 .....................................................................................81
AS400中文培训Query-1
目录第一部分 Query/400简介1.1 第一章什么是Query/4001.1.1 查询的基本概念1.1.2 查询的主要功能1.2 第二章查询一般操作信息1.2.1 查询实例1.2.2 启动查询1.2.3 告诉查询做什么1.2.4 使用查询命令1.2.5 使用查询菜单1.2.6 使用‘处理查询’显示1.2.7 显示常量的格式1.2.8 查询配置文件信息1.2.9 处理查询信息和错误第二部分定义和使用查询定义2.1 第三章生成查询定义2.1.1 启动查询定义2.1.2 选择定义查询的步骤2.1.3 生成查询考虑的问题2.2 第四章规定和选择文件2.2.1 规定文件选择2.2.2 选择文件2.2.3 选择文件成员2.2.4 选择记录格式2.2.5 显示所有被选文件2.2.6 连接文件2.2.7 显示所有连接测试2.2.8 假如字段遗漏2.3 第五章定义Query/400的结果字段2.3.1 生成结果字段2.3.2 日期、时间和时间标记的算术操作2.3.3 日期、时间和时间标记函数2.3.4 转换数据格式2.3.5 生成表达式时一般考虑2.3.6 列标题2.3.7 长度和十进制小数位2.3.8 增加或取消结果字段2.4 第六章字段的选择和排序2.4.1 让查询选择和排序字段2.4.2 选择字段并指定顺序2.5 第七章选择记录2.5.1 让查询选择记录2.5.2 选取要想的记录2.5.3 在一个OfficeVision相关栏列表中选择记录2.6 第八章选择分类字段2.6.1 让查询确定记录的顺序2.6.2 选取你想用的分类字段2.7 第九章选择一个整理顺序2.7.1 让Query/400选取一个整理顺序2.7.2 整理顺序的目的2.7.3 整理顺序如何影响Query/4002.7.4 选择一个整理顺序2.8 第十章规定报表列格式2.8.1 查询报表列的格式2.8.2 编辑数值字段2.9 第十一章规定报表汇总函数2.9.1 汇总函数的类型2.9.2 汇总列2.9.3 列汇总值的分配2.10 第十二章定义报表断点2.10.1 定义一个报表断点2.10.2 定义报表断点格式2.11 第十三章选择输出类型和输出格式2.11.1 选择所用的输出类型和格式2.12 第十四章规定处理选项2.12.1 处理选项的用途2.12.2 舍入数值字段的值2.12.3 忽略十进制数据错误2.12.4 忽略字符替换警告2.13 第十五章退出和运行查询2.13.1 结束查询定义2.13.2 运行查询2.14 第十六章处理查询定义2.14.1 修改查询定义2.14.2 拷贝查询定义2.14.3 重新命名查询定义2.14.4 删除查询定义2.14.5 显示Query/400查询定义2.14.6 打印查询定义第三部分查询的高级信息3.1 第十七章为程序员提供的附加信息3.1.1 有不同的记录格式的文件3.1.2 文件共享考虑3.1.3 替换数据库文件3.1.4 在定义结果字段时DBCS的考虑3.1.5 连接文件3.1.6 使用非分类字段做报表中断3.1.7 结果字段长度及小数位3.1.8 选择记录（忽略字段大小写）附录查询的实际练习第一部分 Query/400简介1.1 第一章什么是Query/400？Query/400是IBM的一个特许程序，此程序支持从AS/400数据库中获得信息来设计应用。