ibmas400rpg学习手册.docx

ibmas400rpg学习手册.docx

《ibmas400rpg学习手册.docx》由会员分享，可在线阅读，更多相关《ibmas400rpg学习手册.docx（104页珍藏版）》请在冰豆网上搜索。

ibmas400rpg学习手册

1简单说明

内部交流、或可作培训使用。

对用户作如下假定：

1、能COPY、修改、编译源代码（RPGLE、CLP），并能运行编译后的程序

2、能COPY、修改、编译文件（PF、LF、PRTF、DSPF）；

3、对数据文件（PF）有简单的认识（FIELD→RECORD→PF），并知道LF与PF的对应关系。

2程序代码行的编写

2.1最简单的RPGLE程序

为便于理解，这里写一个最简单的RPGLE程序

CL0N01Factor1+++++++Opcode&ExtFactor2+++++++Result++++++++Len++D+HiLoEq

***************Beginningofdata*************************************

0001.00C'HELLOWORLD'DSPLY

0002.00CRETURN

******************Endofdata****************************************

这个程序编译成功，并调用（CALL程序名），就是在屏幕上反白显示“HELLOWORLD”字样。

（其中，绿色字样，是系统自动显示的，下同）

与自由风格的C语言不同，RPGLE中的编码，是有一定的格式，如果写错，将会在当前代码行上高亮反绿显示。

初学者如果不太清楚从何处开始下手，可以使用“F4”键查看（F4键只有用2进入的编辑状态才有效，用5进入的查看状态是无效的）

LevelN01Factor1OperationFactor2Result

'HELLOWORLD'DSPLY

Decimal

LengthPositionsHILOEQComment

关于每一项所对应的内容代表什么意思，该如何填写，即如何写程序，将会在下面的具体讲解。

2.2举例准备

列出表名，字段，以方便下面的举例。

假设有PF文件叫PFFHS，文件的记录格式叫FMTFHS

每条记录，都是由FHS01、FHS02、FHS03三个字段组成，每个字段都是两位长的字符型变量。

逻辑文件PFFHSL1的键值为FHS01

逻辑文件PFFHSL2的键值为FHS02

逻辑文件PFFHSL3的键值为FHS01、FHS02

注：

文件的记录格式，可以理解为给这个文件整条记录起的一个名字；或者是说将每条记录视都视做一个类型相同大变量，然后给这个大变量起的名字。

所以文件的记录格式信息中，包含有一条记录由多少个字段组成，总计长度是多少这样的信息。

文件的记录格式，与各个字段同时定义。

（写文件的源码时）

文件的记录格式在RPGLE的程序中，不能与文件名相同。

2.3简单的程序流程

为方便起见，系统自动显示的就不再贴出来了，只贴代码段。

FPFFHSUFEDISK

CREADFMTFHS

CEVALFHS01=”01”

CUPDATEFMTFHS

CSETONLR

CRETURN

这个程序的意思，是说读PFFHS这个文件，然后将读到的第一条记录中的FHS01这个字段的值修改为“01”。

“SETONLR”，LR的位置可在HI、LO、EQ中任选一处。

意思是指将打开指示器*INLR，即赋值使指示器*INLR的值等于1。

等价于“EVAL*INLR=’1’”，意思是强制将内存中的数据写到磁盘中。

（基于效率因素，系统在修改文件时，会先将修改的结果先放在内存中，在同一程序中，读取数据也是先从内存中查询。

）LR，取自是LastRecord

RETURN，表示程序结束，在后面“操作码”一节中，会有讲述。

如果不太明白，就记住

CSETONLR

CRETURN

或

CEVAL*INLR=’1’

CRETURN

这两句话加在一起，表示程序结束就可以了。

从这个程序中，我们可以看到，RPGLE的程序，大致上可以分为两个部分：

1、声明、定义部分：

声明程序中使用到的文件（F行），定义程序中使用的变量（D行）

2、程序运行部分：

即C行，也就是程序段。

在RPGLE程序中，F行必须在D行前面，D行必须在C行前面。

程序执行的起始顺序，将从定义部分之后，第一个C行开始，顺序向下执行。

程序中的F行、D行都不是必须项，一个程序可以没有F行（如仅完成计算功能的公共函数，比如计算利息），也可以没有D行（没有需要特别定义的变量，或者所有变量都在C行进行定义），但不应该没有C行，因为F行与D行都属于非执行行，是起定义作用；C行是执行行。

没有C行的程序，是无执行意义的。

2.4常见的程序流程

FPFFHSUFEDISK//声明文件PFFHS

DLSFLD01S2//定义临时变量LSFLD01

CEVALLSFLD01=’01’//给变量LSFLD01赋值

CEXSRSUB#UPD//执行子过程SUB#UPD

CEVALLSFLD02=’02’//给变量LSFLD02赋值

CEXSRSUB#UPD//执行子过程SUB＃UPD

CSETONLR//数据写入磁盘

CRETURN//程序结束

CSUB#UPDBEGSR//子过程SUB#UPD开始

CREADFMTFHS//读PFFHS文件

CEVALFLD01=LSFLD01//给字段FLD01赋值

CUPDATEFMTFHS//修改文件

CENDSR//子过程结束

“//”后面的，只是简单的解释，如果自已动手写，不需要输入这些内容。

系统在运行这个程序时，是按如下的顺序来执行：

1.首句EVAL赋值语句，直接执行；

2.当系统发现操作码“EXSR”时，根据后面的变量名“SUB#UPD”，去查找对应的“SUB#UPDBEGSR”语句；

3.然后从“SUB#UPDBEGSR”之后，顺序向下执行，直至“ENDSR”语句

4.执行到“ENDSR”之后，将会再回到当初的“EXSRSUB#UPD”处，继续向下执行，直到RETURN语句为止

这里提出一点要注意，如果子过程中，又执行了自身，即在SUB#UPD程序中，又出现了“EXSRSUB#UPD”，是可以编译通过的，但在执行过程中，系统会因为无法定位，而出现死循环，直至报错异常中断退出。

也就是RPGLE的程序中，子过程不允许出现递归。

2.5F行说明

2.5.1内容说明

首位填上F，然后按F4，会出现如下内容：

FileFileEndofFile

FilenameTypeDesignationFileAdditionSequence

FileRecordLimitsLengthofRecord

FormatLengthProcessingKeyFieldAddressType

File

OrganizationDeviceKeywords

Comment

各项的含义分别是：

Filename：

需要声明的文件名，必须顶格，文件名必须唯一，也就是程序中对同样的文件名不能声明两次。

FileType：

声明文件的处理类型。

必须填写。

允许的选项有：

I：

输入型，即只读文件，对声明的文件只取其记录的值，不对记录进行修改

U：

修改型，即对声明的文件进行修改操作（删除记录属于修改操作的一种）

O：

输出型，即只写，对声明的文件只进行写操作。

C：

混合型，用于对屏幕文件的定义。

（混合型，即输入/输出型，以屏幕文件为便，也就是读取屏幕文件的一些输入字段信息，同时也可以输出一些字段的值到屏幕文件中，但不能对屏幕文件自身进行修改，所以与上面的U是有区别的）

FileDesignation：

文件的指定方式，允许的选项有：

不填：

表示这是一个输出文件，即“FileType”项为“O”时，此项不填

P：

表明声明的文件是主文件，这个很少用，cycle相关

S：

表明声明的文件是次文件，这个没用过，cycle相关

R：

Recordaddressfile，记录地址文件？

没用过

T：

数组或表文件？

不懂，没用过

F：

常用，具体含义不知道该如何翻译（Fullproceduralfile）

简单来说，不考虑cycle（循环控制），这样理解就够了：

当“FileType”为I，U，C时，这里填“F”

当“FileType”为O时，这里不填写

EndofFile：

程序结束前，对记录的处理方式。

可以不填，或填“E”。

但从英文解释上来看，不敢妄下定论，似乎不填，表示在程序结束前，要处理所有文件的所有记录（含LF？

）；填E，表示只处理这个文件的所有记录？

总之，此项一般是不填。

FileAddtion：

是否会增加文件中的记录，即是否会对文件进行写操作。

可以不填，或填“A”

当FileType为“O”时，系统自动默认此项为“A”，不必填写；

当FileType为“I”，或“U”时，这项内容可以填“A”，也可以不填。

不填，即表示不会增加文件中的记录，也就是没有写操作；填“A”时，即表示会增加文件中的记录，也就是会对文件进行写操作。

Sequence：

针对cycle使用的，表示排序顺序。

（Cycle我没有用过，估计可能是使用控制起来，程序代码不那么直观，不利于上手和维护，所以现在已经不流行使用了。

）

当定义为非cycle文件时，即“FileDesignation”项非“P”、“S”时，此项必须为空；

当定义为cycle文件时，即“FileDesignation”项为“P”、或“S”时，此项可填空、A、D。

A表示升序，D表示降序。

因为CYCLE现在已不常用，所以通常不填。

FileFormat

文件格式，不能为空，允许的值有：

E：

声明的文件，是外部描述的文件（即文件在程序运行之前就已存在？

）

F：

声明的文件，是一个程序描述文件？

（不知道什么意思，没用过）

这里通常填“E”，即为外部描述文件

RecordLength

“FileFormat”为“F”时，才需要填写。

没用过

通常不填

LimitProcessing

不懂。

通常不填。

LengthofKeyField

查询时，索引键值的长度

如果“FileFormat”项等于“E”，即外部描述文件时，此项不填

如果“FileFormat”项等于“F”，便不需要按KEY值查询时，此项也不填

如果“FileFormat”项等于“F”，需要按KEY值查询时，此项填写KEY值的长度（1—2000）。

因为一般都使用外部描述文件，所以这里一般都不填写。

RecordAddressType

记录寻址类型，好象是对文件键值的描述。

允许的值如下：

空：

不使用KEY值，在程序段中，不会对文件的查询定位操作，如“SETLL”、“CHAIN”操作码都不会用的时，该项填空。

K：

使用KEY值，即表示会对声明的文件进行查询定位操作，此时声明的文件必须有键值，即必须为逻辑文件（LF文件），或在生成文件时，已加入了KEY值。

（下面的选项应该是程序描述文件才会使用）

A：

KEY值为字符型

D：

KEY值为日期型

F：

KEY值为数字型

G：

KEY值为非英文字符

P：

KEY值为压缩型数字

T：

KEY值为时间型

Z：

KEY值为timestamp？

总之，如果要按照键值对声明的文件进行查询定位操作（即程序中使用了CHAIN、SETLL操作码，则此项需要填写“K”；如不需要进行查询操作，则不填。

），此项填“K”时，声明的文件必须含有KEY值。

FileOrganization

不知道，一般不填

Device

声明文件的存放位置，必须填写，允许的值有：

DISK：

磁盘文件，即文件存储在磁盘上，最常见的；

PRINTER：

打印文件，提供打印输出描述，以及对打印设备访问。

打印报表用这个；

WORKSTN：

workstation，工作站，显示文件。

屏幕文件（DSPF）的定义用这个值

（下面这两种我没用过的）

SEQ：

磁带文件，文件存储在磁带上。

SPECIAL：

特殊文件，我现在也不是很清楚具体使用方式。

据blogliou说，这种类型，是允许指定一种不能被RPG直接操作的输入/输出设备。

比如可以通过SPECIAL文件，在RPGLE程序中实现象读写磁盘一样，对DTAQ进行程序间数据交换。

Keyword

可以不填，常用的值有（这里只列出几个常用的）：

COMMIT

该文件记录的数据操作进行日志处理（关于日志处理，后面会章节会讲到）

RENAME

对文件记录格式名进行重命名。

比如说程序中需要同时声明PFFHSL1，PFFHSL2这两个逻辑文件。

这两个逻辑文件的记录格式名都是一样（通常和PF一样，即都为FMTFHS；不过也可以定义成不同。

如果不同，当然就不需要使用RENAME键字了）。

那么，为了能让系统区分，就必须对其中一个的记录格式名进行重命名。

RENAME的语法：

RENAME（旧记录格式名：

新记录格名），如下：

FPFFHSL1IFEDISK

FPFFHSL2IFEDISKRENAME（FMTFHS：

FMTFHS2

新记录格式可以自由定义，只要在该程序中无同名的即可。

RENAME并不会真正的更改文件的记录格式名，仅是在当前运行程序中进行重命名。

对同时运行的其它程序无影响

USROPN

对于声明的文件，由用户自行打开。

如果不填写此关键字，系统将会在程序最最开始（执行第一句C行语句前），自动执行“OPEN文件”的操作，在程序结束后，自动执行“CLOSE文件”的操作。

而填写此关键字之后，OPEN，CLOSE的操作将由用户在C行程序段中，自行处理。

如果用户未执行OPEN操作，就执行CHAIN、READ、SETLL等语句，在编译程序时就会报错。

程序在结束之前，必须关闭所有已打开的文件，所以用起来会比较繁琐。

USROPN常作用于对文件的解锁，在同一程序中打开同一文件的不同MEMBER等，属于一个较高级的用法，可在实际操作中慢慢体会。

OPEN，CLOSE的操作码，对应的是文件名，不是记录格式名。

即

COPENPFFHSL1

CCLOSEPFFHSL1

而不是

COPENFMTFHS

Comment

注释说明。

源自RPG，在RPG中是有作用的，可以对程序作简短的说明，但在RPGLE中，其实已经没有作用了，此项不用填。

（填了也没用）

2.5.2常用例子

对文件进行只读的声明：

FPFFHSIFEDISK

对文件进行修改的声明：

FPFFHSUFEDISK

对文件进行只写的声明：

FPFFHSOEDISK

对文件进行修改，以及增加记录的操作：

FPFFHSUFAEDISK

对文件进行查询，增加记录的操作，并对文件进行查询操作：

FPFFHSL1IFAEKDISK

声明两个记录格式相同的文件，并对其中之一进行重命名

FPFFHSL1IFEKDISK

FPFFHSL2IFEKDISKRENAME（FMTFHS:

FMTFHS2）

注：

在声明时，两个文件不一定要上下紧接着；随便改哪一个文件对应的记录格式都可以；新旧记录格式名用冒号隔开，新记录格式名可自行定义，无规则。

对文件的修改操作进行日志处理：

FPFFHSL2UFEKDISKCOMMIT

cycle类文件的声明：

FPFFHSL2IPEKDISK

这样文件声明为P之后，程序中不需要写循环读文件，也不需要写RETURN，设指示器INLR，也就是

FPFFHSL2IPEKDISK

CREAD记录格式名

等价于

FPFFHSL2IFEKDISK

CDOW1=1

CREAD记录格式名EQ指示器

CIFEQ指示器=’1’

CLEAVE

CENDIF

CENDDO

CRETURN

2.5.3补充说明

声明的文件，可以同时使用多个keyword关键字，并可以不在同一行（但必须紧接在声明的文件的下面），如下：

FPFFHSL2IFEDISKRENAME（FMTFHS：

FMTFHS2）

FCOMMIT

即表示文件PFFHSL2，同时使用了RENAME、COMMIT两个关键字。

如果写得下，也可以写在同一行，以空格键分开，如下

FPFFHSL2IFEDISKCOMMITRENAME（FMTFHS：

FMTFHS2）

2.6D行说明

首行填“D”，然后按F4，会出现如下内容：

DeclarationTo/

NameES/UTypeFromLength

InternalDecimal

DataTypePositionsKeywords

Comment

2.6.1内容说明

Name:

定义的变量的名字，该名字可以不顶格写。

（即允许有缩进）

E：

标识定义的变量是否源自外部数据结构。

可以不填，或填“E”

上面的解释可能有点饶口，其实这个地方的意思，就是说：

如果是程序内部自行定义一个临时变量，此处不填；

如果是引用的一个外部文件作为数据结构，那么这里就要填“E”；同时“DeclarationType”处，就要填“DS”，即定义为一个结构；“Keywords”处要使用EXTNAME关键字

所谓“引用一个外部文件作为数据结构”，也就是说定义一个结构，整个结构中的变量，参照外部文件来定义。

所谓结构，可以理解为一个“由多个变量组合而成的大变量”。

举例而言：

DMYDSEDSEXTNAME（PFFHS）

和

DMYDSDS

DFHS0112（1在From项；2在To/length项）

DFHS0234

DFHS0356

是等价的，都是定义一个结构变量MYDS（名字可以自行定义），这个结构变量是由三个字符型变量FHS01，FHS02，FHS03拼成的。

第一种定义方法，就是引用外部文件“PFFHS”作为数据结构的定义，注意使用到了“EXTNAME”关键字，而且“E”项的值为“E”。

而第二种定义方法，就是直接定义一个结构“MYDS”。

注意没有使用外部文件时，“E”项的值为空。

S/U：

不知道，一般都填空。

DeclarationType：

定义变量的类型，允许的值如下：

不填：

非以下内容：

数据结构、常量、独立变量、数组、表。

此项为空时，好象只能用来表示当前定义的变量是属于结构的一个变量。

在下面会举例

DS：

数据结构，即定义一个结构变量，这个之前已讲过

C：

常量

常量只能使用字符，不需要定义常量的长度、类型。

常量的内容写在“Keywords”处，并使用CONST关键字，在程序段中，不能对常量进行赋值操作。

DMYNUMCCONST（'abcdefghijklmn'）

就是定义一个叫做MYNUM的常量，这个常量包含字母a--n。

PI：

不知道，没有用过

PR：

不知道，没用过

S：

定义以下内容：

独立变量、数组、表

定义一个叫MYFIELD1的变量，变量为1位长的字符型

DMYFIELD1S1//1在“To/length”项

定义一个叫MYARRAY的数组，共含3条记录，每条记录为1位字符型

DMYARRAYS1DIM（3）//DIM在“Keywords”项

表的定义没有用过

总之，这一项，最常用的，就是“DS”、“S”与空。

即结构体与独立变量，其它选项较少用到。

From：

当“DeclarationType”项为“S”时，表示独立变量、数组，此项不填

当“DeclarationType”项为“DS”时，表示结构，此项仍然不填

当“DeclarationType”项为空时，表示当前定义的变量，属于上面定义的结构，此时，此项可以填写，也可以不填写。

当填写时，“From”项表示变量在结构中的起始位置，右对齐；“To/length”表示变量在结构中的结束位置，也是右对齐。

当不填写时，“To/length”表示直接定义为变量长度。

举例：

DMYDSDS

DDSFLD0112//1在“From”项，2在“To/length”项

DDSFLD0234

与

DMYDSDS

DDSFLD012//2在“To/length”项

DDSFLD022

其实是等价的，都是定义一个结构变量MYDS，这个结构变量中，包含了两个变量DSFLD01，DSFLD02，这两个变量都是两位长字符。

所不同的是，第一种定义方法，是指定了变量在结构中的位置；而第二种方法，是直接指定变量的长度和类型

注意到上面的定义中，DSFLD01、DSFLD02的DeclarationType为空，也就是表示这两个字段是属于上面定义的结构MYDS。

如果此项为“S”，即表示这个变量与结构无关

DMYDSDS

DDSFLD012//2在“To/length”项

DDSFLD02S2

在这个定义中，变量DSFLD02就是一个独立的变量，与结构MYDS无关。

Length：

上面已讲述在定义结构时的使用方法。

在定义非结构时，此项的内容即为定义变量的长度。

右对齐

InternalDataType：

定义变量的类型，允许的值有：

空：

变量定义为字符型、压缩型数字

A：

变量定义为字符型

B：

二进制？

不知道

D：

变量定义为日期型

F：

变量定义为浮点型？

G：

变量定义为图型？

（非英文？

汉字？

）

I：

变量定义为带符号的整数

N：

变量定义为指示器变量？

（没用过）

P：

变量定义为压缩型数字

S：

变量定义为普通的数型

T：

变量定义为时间型

U：

变量定义为无符号的整数

Z：

变量定义为日期+时间型（格式：

年-月-日-时.分.秒.微秒）

*：

变量定义为指针型

其实我最常用，就是不填，因为一般的程序，有字符和数字这两种类型变量，就足够了。

DecimalPositions：

当变量定义为数字型时，用来标志小数的位数。

当“To/Length”项为3，“InternalDataType”项为空时

此项为空，表示定义的变量为3位长的字符型

DMYFLD01S3//定义为3位字符型

此项不为空（右对齐），表示定义的变量为数字型