RPG常用命令
- 1、下载文档前请自行甄别文档内容的完整性,平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 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 ( 標識をオンにセット)