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

还是MM面子大啊~~~

---

 lordlost 回复于：2007-04-04 09:35:29

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:05

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

什么时候你也 秀 一下。 :mrgreen:

---

 wxn100 回复于：2007-04-04 12:55:20

刚刚开始学习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              

论坛热门帖子:	[lch203] 写得蛮好的linux学习笔记(10-21) [黑马制造] 学习java的30个目标(10-19) [笑傲股林] 做测试半年了，有点迷茫，应该再学些什么提高自己的测试水平和测试能力呢？(10-19) [udp8589] 大家用google的来吱一声? 用百度的~~也来报道下?(10-18) [沂偌掳兆] 本人总结的一些认为C++比较经典的书籍，希望对大家有用(10-18)
TAG标签:	编写 程序 如何 朋友 接触 写给 表示 数据 文件 变量