Chinaunix

标题: 3写给刚接触RPG的朋友 --- 如何编写RPG程序（1） [打印本页]

作者: wxn100 时间: 2007-04-03 16:05
标题: 3写给刚接触RPG的朋友 --- 如何编写RPG程序（1）
刚刚开始学习400，真有点不知从何下手好，在网上逛了几天，找到了一些适合初学者的资料，和大家一起分享一下。

这部分我也循序渐进的讲解如何RPG里头更项的含义。

先说说RPG一般用来做什么吧，举例说：
1. 整个RPG程序不包含任何外部程序，只是做些简单的数学运算，或者对数据区、DATAQ等非文件目标进行操作，这属于相对最简单的情况；
2. RPG程序对物理文件或者逻辑文件进行读、写、更新、删除操作；
3. RPG程序结合物理文件或逻辑文件、以及显示文件进行操作，这属于比较复杂的情况；
4. RPG程序结合物理文件或逻辑文件、显示文件、以及ICF文件（即通讯文件）进行操作，这种情况也比较复杂。
当然，以上的情况只是平时使用的归纳，你也可以根据自己的实际需要结合各种情况，此处不再深入探讨。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
以下结合例子简单说说各种情况，假设以下源码文件存放的路径是库MYLIB、源物理文件MYSRCPF
1. (1)做个简单的运算，比如AXB/(C-D)+E，有加减乘除等运算，代码如下：

      *************** Beginning of data *************************************
0001.00    C                   Z-ADD2       A       10
0002.00    C                   Z-ADD10       B       20
0003.00    C                   Z-ADD5       C       10
0004.00    C                   Z-ADD1       D       10
0005.00    C                   Z-ADD2       E       10
0006.00    C                   Z-ADD0       TEM    30
0007.00    C                   Z-ADD0       RST    30
0008.00    C          A       MULT B       TEM
0009.00    C          C       SUB  D          RST
0010.00    C          TEM DIV  RST       RST
0011.00    C                   MVR             TEM2 30
0012.00    C          RST ADD  E          RST
0013.00    C          RST DSPLY
0014.00    C                   SETON                            LR
      ****************** End of data ****************************************


<注>:
(a) Z-ADD表明把Factor2处的变量值赋给Result处的变量，值得注意的是这两个变量都是数值型的，例如，"Z-ADD2 A 10 "表示把2赋给变量A，后面的"10"中的“1”表示变量A的长度是1，“0”表示小数位长度是0，即A是一个长度为1整型变量；
(b) MULT表示做乘法运算，“A MULT B TEM”表示AXB，把结果赋给整型变量TEM；
(c) SUB表示做减法运算，“C SUB D RST”表示C-D，把结果赋给整型变量RST；
(d) DIV表示做除法运算，“TEM DIV RST RST”表示TEM/RST，把结果赋给整型变量RST；
(e) MVR表示做取余数运算，“MVR TEM2 30”表示把余数赋给整型变量TEM2；
(f) ADD表示做取加法运算，“RST ADD E RST”表示RST+E,把结果赋给整型变量RST，这句一般写成“ADD E RST”也可以。
(g) DSPLY表示显示变量值，“RST DSPLY”表示显示变量RST的值；
(h) SETON表示给指示器置为*ON的状态，即'1'，“SETON LR”表示把LR指示器置为*ON，该句的意思表示最后一条记录，即程序结束。

按F3保存，假设该文件名是MYRPG，所在的库是MYLIB，源物理文件是MYSRCPF。

程序写好之后，应该进行编译了。用WRKMBRPDM FILE(MYLIB/MYSRCPF)，找到刚才的文件MYRPG，输入14，按F4，进入“Create RPG/400 Program (CRTRPGPGM)” 画面，参数：
(i) Program：生成的目标名（假如为MYOBJ）；
(ii) Library：生成的目标存放的库（假如为MYLIB）。
参数填好之后，按确认键即进行编译，如果程序没错，则生成目标文件，假设为MYOBJ。
在命令行输入CALL MYLIB/MYOBJ，这时命令上应该显示RST的值。
(<注>:目标即可执行文件)

[ 本帖最后由 wxn100 于 2007-4-4 12:47 编辑 ]

作者: qingzhou 时间: 2007-04-03 21:53
感谢分享~~~

论坛很需要这样的朋友支持.

作者: just a kid 时间: 2007-04-03 22:42
还是MM面子大啊~~~

作者: lordlost 时间: 2007-04-04 09:35
Z-ADD在處理時，會把Result的值先回復成0再做ADD的動作，這點初學者要留意。
if X=3
Z-ADD 1 X
X=1

if x=5
ADD 1 x
x=6

作者: qingzhou 时间: 2007-04-04 10:11

原帖由 just a kid 于 2007-4-3 22:42 发表
还是MM面子大啊~~~

什么时候你也秀一下。

作者: wxn100 时间: 2007-04-04 12:55
标题: 4.写给刚接触RPG的朋友 --- 如何编写RPG程序（1）【续1】
刚刚开始学习400，真有点不知从何下手好，在网上逛了几天，找到了一些适合初学者的资料，和大家一起分享一下。

续《写给刚接触RPG的朋友 --- 如何编写RPG程序（1）》

上文中，只举例说明了如何进行简单的数学运算，下面再举一例子讲解如何操作数据区（DATAARA）和数据队列（DTAQ）。

1. (1) 如何建立数据区（DATAARA）

<注>:
下面只建立*CHAR型的数据区，其他类型的有兴趣可以自己试试。在系统命令行输入CRTDTAARA，按F4，进入“Create Data Area (CRTDTAARA)”画面，参数如下：
(a) Data area：数据区的名字，这里假设为MYDTAARA；
(b) Library：存放数据区的库，默认值是*CURLIB，即当前库，这里我们输入MYLIB；

<注>:
MYLIB库之前的文章里头已建立，这里不再重复讲述了，如果还不知道如何建立，请参考《写给刚接触AS/400的朋友 --- 如何建立属于自己的库、文件和成员》
(c) Type：数据区的类型，*DEC数值型，*CHAR字符型，*LGL逻辑型，*DDM分布式数据管理(这个我没用过),这里我们选择*CHAR；
(d) Length：数据区的长度，这里假设是20，当然你可以根据自己需要输入对应的长度值；
(e) Decimal positions：指小数位位数，一般是针对*DEC型的才需要设置；
(f) Initial value：数据区初始值，可填可不填，我们这里选择不填，在程序里进行更改；
(g) Text：注释。

整个命令请参考如下：

CRTDTAARA DTAARA(MYLIB/MYDTAARA) TYPE(*CHAR) LEN(20) TEXT('建立属于自己的数据区MYDTAARA')

(2)在RPG里如何操作数据区，假设该源码文件名为DTAARAR，存放在MYLIB/MYFILE下：

      *************** Beginning of data *************************************
0001.00    I#DTA       DS                                              20
0002.00    I                                                                1 8 CURDAT
0003.00    I                                                             11  16 CURTME
0004.00    C          *NAMVAR DEFN MYDTAARA  #DTA
0005.00    C          *LOCK    IN    #DTA
0006.00    C                         TIME                   DATTME 140
0007.00    C                         MOVE DATTME    CURDAT
0008.00    C                         MOVELDATTME    CURTME
0009.00    C                         OUT  #DTA
0010.00    C                         UNLCK#DTA
0014.00    C                         SETON                   LR
      ****************** End of data ****************************************

<注>:
(a) 第一行#DTA是字段名，与上面的Dsname左对齐，DS表示#DTA是个字段，与上面的Ds对齐，20表示字段#DTA的长度，与上面的Len+右对齐，注意，由于我们需要用它来定义数据区MYDTAARA的格式，所以长度要和MYDTAARA相同，整行的意思是定义一个长度20的字段#DTA；
(b) 第二第三行进一步详细定义字段#DTA的内部结构，第二行的CURDAT是字段名，与Field+左对齐，1与From右对齐，8与To++右对齐，整行的意思是把大字段#DTA的第1～8位定义位另一个字段，第三行同样的意思，在此不在赘述；
(c) 第四行的DEFN表示定义，一般用来定义字段和数据区，*NAMVAR是定义数据区格式时必用的参数，整行的意思就是把数据区MYDTAARA的格式按照字段#DTA定义，以后对字段#DTA进行操作就等于对数据区MYDTAARA进行操作；
(d) 第五行的IN用来读数据区，*LOCK表示操作时把数据区MYDTAARA锁住，一般只有对数据区进行更/新操作才需要设置才参数，如果只是读数据区，则不用该参数；
(e) 第六行的TIME是取系统当前日期和时间，整行的意思是把系统当前日期和时间赋给一个14位长0位小数的数值型变量DATTME中，由于系统当前的日期和时间是按照“hhmmssMMDDYYYY”存放，所以刚好也是14位；
(f) 第七行意思是把变量DATTME右移给字段CURDAT，所以CURDAT的值刚好是日期“MMDDYYYY”；
(g) 第八行意思是把变量DATTME左移给字段CURTME，所以CURTME的值刚好是日期“hhmmss”；
(h) 第九行的OUT表示对数据区进行写操作，记住Factor处是我们程序开始定义的大字段#DTA；
(i) 第十行的UNLCK表示解锁，因为我们在第五行使用了参数*LOCK；
(j) 第十一行表示程序结束。

按 F3 退出编辑器并保存，进行编译，生成的程序名假设为DTAARAR，那么在命令行 CALL DTAARAR，那么数据区已经成功更改了，使用命令 DSPDTAARA MYDTAARA 就可以查看数据区内容了。
================================================================================

到此为止，你已经基本懂得如何对数据区进行操作了！

作者: qingzhou 时间: 2007-04-04 13:07
OK，验收通过！

合并为一个主题吧。

作者: sh-vagrant 时间: 2007-04-04 16:03
呵呵，比我学的快，我用了1年as400后才开始涉及到dtaara，惭愧哈

作者: 三个石头 时间: 2007-04-05 13:14
这些好像在新儒论坛里面有呀。

作者: 紫菜蛋汤 时间: 2007-04-06 22:22
又是非自由格式的

看的很晕。。。

作者: wxn100 时间: 2007-04-13 10:41
标题: 回复 10楼紫菜蛋汤的帖子
这样是不太好，但是排了半天也排不好啊，而且比较浪费时间，
不过大家可以到我的博客里看一下原文件，代码部分是帖图的，
就不会有什么问题了。

作者: tree_ch 时间: 2008-07-09 10:34

特地注册,感谢一下!

作者: ypzhou25 时间: 2011-01-28 14:07

作者: yeeXun 时间: 2012-07-14 23:04
好贴，学习学习！

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)