RPG常用命令

合集下载
  1. 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益,请联系客服反馈,我们会尽快为您处理(人工客服工作时间:9:00-18:30)。

RPG常用的演算命令及语句

RPG常用的演算命令

1)加减运算

ADD ( 加算)(H)

SUB(減算)

MULT(乗算)

DIV (除算)

MVR ( 剰余の転送)

Factory 1 Operation Factory 2 Result

Z-ADD 100 SUMARY

ADD(H) -3.4 SUMARY 2)赋值

Z-ADD(ゼロにして加算)

Z-SUB(ゼロにして減算)

MOVE ( 移動)

MOVEL(左につめて転送)

MOVEA(配列の転送)

EVAL (RPGLE)

3)逻辑运算

ANDXX (与)

ORXX (或)

4)结构化程序参考RPG语言.pdf

条件转移

IFXX (IF)

ELSE

ENDIF

SELECT

WHENXX

ENDSL

IF (IF) (RPGLE)

WHEN (WHEN) (RPGLE)

GOTO (GO TO)

循环

DO (DO)

DOU (DO UNTIL)

DOUXX (DO UNTIL)

DOW (DO WHILE)

DOWXX (DO WHILE)

ITER ( 繰り返し)

LEAVE (DO グループからの抜け出し)

5)程序子模块

BEGSR ( サブルーチンの始め)

ENDSR ( サブルーチンの終わり)

Factory 1 Operation Factory 2 Result SUB01 BEGSR

….

….

ENDSR

程序模块的调用

CASXX (サブルーチンの条件つき呼び出し)EXSR (サブルーチンの呼び出し)

Factory 1 Operation Factory 2 Result FLD01 CASEQ ‘1’SUB01 FLD01 CASEQ ‘2’SUB02

CAS…SUB03

ENDCS

Factory 1 Operation Factory 2 Result

SELECT

WHEN FLD01=’1’

EXSR SUB01

WHEN FLD01=’2’

EXSR SUB02

OTHER

EXSR SUB03

ENDSL

数据的读取

KFLD ( キーの各部分の定義)

KLIST ( 複合キーの定義)

Factory 1 Operation Factory 2 Result

F@KEY KLIST

KFLD FLDA 3 0

KFLD FLDB 3 0 CHAIN ( ファイルからのランダム検索)

只读取符合条件的第一条数据

Factory 1 Operation Factory 2 Result

F@KEY CHAIN LF01 80

SETLL ( 下限のセット)

READ ( レコードの読み取り)

READE ( 「等しい」キーの読み取り)

SETOFF (標識のオフへのセット)

SETON ( 標識をオンにセット)

相关文档
最新文档