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

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

感谢分享~~~

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

---

 just a kid 回复于：2007-04-03 22:42:55

上一页 1 2 34 5 6 7 下一页

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