当前位置：文档之家 › AS400培训资料(下)

AS400培训资料(下)

  • 格式：doc
  • 大小：62.50 KB
  • 文档页数：12

AS400培训资料（下）

AS400应用开发培训

高级应用与交易实现

前言

本阶段的培训，在上一级培训的基础上，讲解业务系统的处理以及交易的实现。目的是使大家掌握如何在AS400上实现具体的交易，完成本次开发任务。

在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍，请大家作好记录。

同时为了配合本次培训，我们将下发两本教材，一本是操作码手册，另外一本是本公司原来出的IBM AS400 培训教材第二分册，对这两本教材的内容我们可能不作具体的讲解，主要是给大家在学有余力的情况下进行自学，以及今后进行实际编码时的参考手册。

对于一些非常少见的应用，我们不作讲解，请大家参考下发的教材或使用联机的帮助。

使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标（Object) SLRRPG(可执行程序 *PGM) 物理文件，逻辑文件，打印文件等参与编译，若RPG程序的F表进行了相应的定义其他需要参与编译的目标

第一章 RPG程序使用RLU的方法

在上一期的培训中我们简要的介绍了RLU的一些用法，现在我们来学习RLU的一些应用，以及如何在RPG程序中使用RLU生成的打印文件

在今后的设计过程中，应业务人员的要求，在报表中对于一些域的属性可能要进行修改。

以下是将光标移到域后出现的域属性内容

Work with Field Keywords

Field . . . . . . . . : ' 客户 ... Record format . . . . : HEAD

Type options, press Enter.

2=Specify 4=Remove

Opt Keyword Opt Keyword Opt Keyword

ALIAS EDTCDE MSGCON

BARCODE EDTWRD PAGNBR

BLKFOLD FLTFIXDEC PRTQLTY

CDEFNT FLTPCN REFFLD

CHRID FNTCHRSET SKIPA

CHRSIZ FONT SKIPB

COLOR HIGHLIGHT SPACEA

CPI IGCALTTYP > SPACEB

CVTDTA IGCANKCNV TEXT DATE IGCCDEFNT TIME

> DFT IGCCHRRTT TRNSPY

DLTEDT INDTXT UNDERLINE

Bottom

F3=Exit F5=Refresh F9=Input keyword parameters F10=Specify information

F12=Cancel F16=Remove all keywords

选择（opt）2 进行该项的内容说明 4 是取消该项说明

在这些选项中经常用到的是：

DFT 若前面有 ”>” 则说明该项是常量域，否则是变量域。

若为常量选择2后可以进行常量（显示内容）的修改

EDTCDE 对于数值型，说明数值型数据的显示方法。大家可以通过

实际将一个数值型的字段改成其他类型，比较对于数字格

式的影响。请操作

REFFLD 将本域定义为跟REFFLD的域一样，类似RPG中的*LIKE。

SKIPA 在打印本域后，换页，换页后页满指示器重置值

SKIPB 在打印本域前，换页，换页后页满指示器重置值

SPACEA 在打印本域后，换行（可指定行数） SPACEB 在打印本域前，换行（可指定行数）

由于在这些内容中，对REFFLD的操作较为复杂，以下我们将TESTRLU中的开户日期改为使用数据字典中定义的日期字段的格式。通过这一应用使大家对这一操作有较深刻的认识。

在常量域 开户日期 位置打F23 出现

Keyword . . . . . . . . . . . . . . : REFFLD

Field . . . . . . . . . . . . . . . : CSOPDT

Record format . . . . . . . . . . . : DETAIL

Type choices, press Enter.

Field . . . . . . . . . . . . . . . Name

F4 for list

Record format . . . . . . . . . . Name

F4 for list

File . . . . . . . . . . . . . . . Name

*SRC

F4 for list

Library . . . . . . . . . . . . . *CURLIB Name

*CURLIB

*LIBL

F3=Exit F4=Prompt F5=Refresh F12=Cancel F16=Remove keyword

Field 栏是定义要参考到具体的哪个域

Record format 栏定义所参考的域的物理文件的记录名 File 栏是定义所参考的域的物理文件名

Library栏是定义存放该物理文件的Library的名字

输入以下内容后按执行

Specify Referenced Field

Keyword . . . . . . . . . . . . . . : REFFLD

Field . . . . . . . . . . . . . . . : CSOPDT

Record format . . . . . . . . . . . : DETAIL

Type choices, press Enter.

Field . . . . . . . . . . . . . . . @@DATE Name

F4 for list

Record format . . . . . . . . . . @@RCD Name

F4 for list

File . . . . . . . . . . . . . . . aaref Name

*SRC

F4 for list

Library . . . . . . . . . . . . . cccbcmn Name

*CURLIB

*LIBL

F3=Exit F4=Prompt F5=Refresh F12=Cancel F16=Remove keyword

Errors found. Correct errors or press Enter to continue. 系统报错可不管

其中CCCBCMN是专用于存放业务系统的参数表的业务系统的一个库

aaref 是开发系统的数据字典名称，是一个物理文件。

@@RCD 是物理文件的记录名 按执行键后在屏幕的下方出现，一行提示出错信息，可以暂时不管。

有关数据字典的内容将在今后业务系统的讲解中讲述。

执行后屏幕返回

Work with Field Keywords

Field . . . . . . . . : CSOPDT Record format . . . . : DETAIL

Type options, press Enter.

2=Specify 4=Remove

Opt Keyword Opt Keyword Opt Keyword

ALIAS EDTCDE MSGCON

BARCODE EDTWRD PAGNBR

BLKFOLD FLTFIXDEC PRTQLTY

CDEFNT FLTPCN > REFFLD

CHRID FNTCHRSET SKIPA

CHRSIZ FONT SKIPB

COLOR HIGHLIGHT SPACEA

CPI IGCALTTYP SPACEB

CVTDTA IGCANKCNV TEXT

DATE IGCCDEFNT TIME

DFT IGCCHRRTT TRNSPY

DLTEDT INDTXT UNDERLINE

Bottom

F3=Exit F5=Refresh F9=Input keyword parameters F10=Specify information

F12=Cancel F16=Remove all keywords Specify reference in CSOPDT for REFFLD.

大家可以看到在REFFLD的opt中出现了反显，此时需要键入F10

屏幕出现

Specify Field Information

Edited length . . . . . . . . . . . . : 8

Record format . . . . . . . . . . . . : DETAIL

Number of keywords . . . . . . . . . : 1

Number of indicators . . . . . . . . : 0

Type choices, press Enter.

Field . . . . . . . . . . . . . . . . CSOPDT Name

Option indicators . . . . . . . . . . 01-99, N01-N99

More indicators . . . . . . . . . . N Y=Yes, N=No

Starting line . . . . . . . . . . . . 1-255

Starting position . . . . . . . . . . +3 1-255, +nn

Length of data . . . . . . . . . . . 8 1-378, +nn, -nn

Data type . . . . . . . . . . . . . . 1 1=Character

2=Zoned

3=Floating point

4=Open

5=Graphic

More...

F3=Exit F5=Refresh F11=Convert to constant field F12=Cancel

合集下载

AS400培训-RPG

AS400培训-RPG

63350902.doc 创建时间：1998-8-18 12:35:00

© 北京宇博电子科技有限公司 作 者: 于 勇 第 1 页 共 61 页

AS/400培训资料

于 勇

IPACS北京

63350902.doc 创建时间：1998-8-18 12:35:00

© 北京宇博电子科技有限公司 作 者: 于 勇 第 2 页 共 61 页 在RPGLE中的文件定义 _________________________________________________ 3

在RPGLE中有关文件操作的操作码 _______________________________________ 5

只输出子文件定义 _______________________________________________________ 8

实现输出类型子文件 _____________________________________________________ 9

输出类型子文件有定位处理 ______________________________________________ 12

实现有定位处理输出类型子文件 __________________________________________ 13

处理类型子文件有定位处理 ______________________________________________ 17

实现处理类型子文件有定位处理 __________________________________________ 20

AS400培训课程2（DDS,MENU,MSGF介绍）

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)

四、DDS

1、概况

用途

数据结构定义

分类

PF,LF, DSPF PRTF, ICFF（Intersystem Communications

Function File）

文件类型命令

物理文件CRTPF

逻辑文件CRTLE

显示文件CRTDSPF 打印机文件CRTPRTF

ICF文件CRTICFF

辅助工具

STRSDA （Screen Design Aid）

RPG AS400程序员培训手册

RPG AS400程序员培训手册

*

/ 2.8.4.4 O--R

ON-ERROR (On-Error)

没用过

OPEN {(E)} (Open File for Processing) 打开文件

Factory 1 Operation Factory 2 Result HI LO EQ

OPEN 文件名

OPEN 后面的目标，必须是在当前程序中已声明的文件名（不是文件的记录格式名），

而且在OPEN 操作之后，在程序结束之前之前，必须有对应的CLOSE 操作。

使用OPEN 操作，文件在声明时，必须使用USROPN 关键字（详见D 行说明）。

ORxx (Or) 逻辑判断—或

Factory 1 Operation Factory 2 Result HI LO EQ

FLD01 IFGT FLD03

FLD01 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 EQ

SELECT

WHEN 条件判断1 *

/ 处理语句1

WHEN 条件判断2

处理语句2

OTHER

处理语句3

ENDSL

在这个例子中，当满足条件判断1 时，运行处理语句1，运行结束后跳至ENDSL 处；

如果不满足条件判断1，则程序继续向下执行，判断是否满足条件判断2。

AS400培训资料(下)

AS400培训资料(下)

AS400培训资料（下）

AS400应用开发培训

高级应用与交易实现

前言

本阶段的培训，在上一级培训的基础上，讲解业务系统的处理以及交易的实现。目的是使大家掌握如何在AS400上实现具体的交易，完成本次开发任务。

在讲解业务系统的例子程序和会计记帐核心的过程中我们将穿插讲解AS400中一些编程方式和一些简单工具的使用。由于篇幅和时间的关系在本教材中对一些简单工具不作具体的介绍，请大家作好记录。

同时为了配合本次培训，我们将下发两本教材，一本是操作码手册，另外一本是本公司原来出的IBM AS400 培训教材第二分册，对这两本教材的内容我们可能不作具体的讲解，主要是给大家在学有余力的情况下进行自学，以及今后进行实际编码时的参考手册。

对于一些非常少见的应用，我们不作讲解，请大家参考下发的教材或使用联机的帮助。

使用F6或其他方式建立的成员在Opt选14编译物理文件参与编译其他类型的目标（Object) SLRRPG(可执行程序 *PGM) 物理文件，逻辑文件，打印文件等参与编译，若RPG程序的F表进行了相应的定义其他需要参与编译的目标

第一章 RPG程序使用RLU的方法

在上一期的培训中我们简要的介绍了RLU的一些用法，现在我们来学习RLU的一些应用，以及如何在RPG程序中使用RLU生成的打印文件

在今后的设计过程中，应业务人员的要求，在报表中对于一些域的属性可能要进行修改。

以下是将光标移到域后出现的域属性内容

Work with Field Keywords

Field . . . . . . . . : ' 客户 ... Record format . . . . : HEAD

Type options, press Enter.

2=Specify 4=Remove

Opt Keyword Opt Keyword Opt Keyword

ALIAS EDTCDE MSGCON