哪位大哥帮忙编写一个最简单的RPG程序并截图出来看一下，感激不尽！

toeven

如题，能说明一下其中的语句更好。相信好人还是很多的，感激不尽！

wxn100

做个简单的运算，比如AXB/(C-D)+E，有加减乘除等运算，代码如下：

<注>:
    (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的值。
(<注>:目标即可执行文件)

toeven

真的非常感谢!好人哪,受益非浅

dazzling2000

为什么那么多不用LE?

fairyboy

好多以前的系统都用RPG的

toeven

再弱问一下,上面程序创建的是什么类型的MEMBER啊?好象RPG和RPGLE都不是这画面啊

灯草和尚

如提

uglyneo

MEMBER类型是RPG

raykiwang

原帖由 wxn100 于 2007-5-9 11:31 发表
做个简单的运算，比如AXB/(C-D)+E，有加减乘除等运算，代码如下：

<注>:
    (a) Z-ADD表明把Factor2处的变量值赋给Result处的变量，值得注意的是这两个变量都是数值型的，例如，"Z-ADD2 A 10 &qu ...

没有检查除数是否为零：）

bjtzh

我严格按照界面去操作了，可是为什么编译不过去呢？一直在显示：
The compile of member RPGTEST was submitted to batch.