RPGLE 编程基础

52760329.doc

RPGLE 编程基础

本章主要介绍RPGLE语言的基础知识，包括规范表，操作码，编译方法等，通过本章的学习了解并初步掌握RPGLE的基本操作码并应用于简单编程，能编译程序并查看跟踪错误，能使用单步调试源码方法，并能读懂简单的RPGLE程序。

1 RPGLE规范表

? H表(Control)：指定程序使用的数据区 ? F表(File Description)：文件说明

? D表(Input)：说明输入文件记录结构和数据 ? C表(Calculation)：程序主体

? O表(Output)：说明输出文件记录结构 常用的表有F表，D表，C表

2 操作码简介

RPGⅣ程序设计语言允许对数据进行多种类型的操作。在计算规范表中写入的操作码指出要做的操作，通常是操作的缩写。 下表概括说明了每个操作码。 ·一个空列表示此字段必须为空 ·所有下划线的字段都是必须的

·一个下划线区域表明此位置没有结果指示器

符号 符号说明

（H） 四舍五入（整数的数值型结果） （N） 不锁定记录

（P） 用空格或零填充结果 （D） 操作描述符或日期字段 （T） 时间字段 （Z） 时间标记字段 + 正的 - 负的 BL 空格

BN 数值型空格 BOF 文件头 EOF 文件尾 EQ 等于 ER 错误

第 1 页 共 55 页

52760329.doc

FD 找到 HI 大于 IN 指示器 LD 小于

LR 最后一个记录 NR 没有找到记录 NU 数字 OF off ON on Z 零

ZB 零或空格

操作码说明一览表 操作码 ACQ ADD(1/2) ADDDUR ANDxx BEGSR BITOFF BITON CABxx CALL CALLB(D) CASxx CAT(P) CHAIN(N) CHECK(2) CHECKR(2) CLEAR CLOSE COMMIT COMP(1) DEFINE DEFINE DELETE DIR(1/2) DO DOU DOUxx DOW 因子1 设备名 加数 日期/时间 比较数 子程序名 比较数 比较数 源串1 查找自变量 比较串 比较串 *NOKEY 边界 比较数 *LIKE *DTAARA 查找自变量 被除数 初值 比较数 因子2 WORKSTN文件 加数 期间:期间码 比较数 位数 位数 比较数 程序名 比较数 源串2:空格数 文件名 基串：开始 基串：开始 *ALL 文件名 比较数 参考字段 外部数据区 文件名 除数 限定值 指示器表达式 比较数 指示器表达式 第 2 页 共 55 页

结果字段 和 日期/时间 字符字段 字符字段 标号 列表名 子程序名 目的串 数据结构 最左边位置 最右边位置 结构或变量或记录格式 定义字段 内部字段 商 索引值 结果指示器 71-72 73-74 75-76 + HI HI NR HI NR + ER - ER LO ER ER LO ER ER ER ER ER LO ER - Z EQ LR LR EQ FD FD EQ Z 过程名或过程指针 列表名 52760329.doc

DOWxx DSPLY(4) DUMP ELSE END ENDCS ENDDO ENDIF ENDSL ENDSR EVAL EXCEPT EXFMT EXSR EXTRCT FEOD FORCE GOTO IF IFxx IN INER KFLD KLIST LEAVE LOOKUP(1)（数组） EQ MHHZO MHLZO MLHZO MLLZO MOVE(P) MOVEA(P) MOVEL(P) MVLT(1/2) MVR NEXT OCCUR ORxx OTHER 比较数 信息 标识符 标号 比较数 *LOCK KLIST名 被乘数 程序设备 出现值 比较数 比较数 输出队列 增量值 增量值 返回点 结果=表达式 EXCEPT名 记录格式名 子程序名 文件名 文件名 标号 指示器表达式 比较数 数据区名 查找自变量 表名 源字段 源字段 源字段 源字段 源字段 源字段 乘数 文件名 数据结构 比较数 响应 键字字段 数组名 表名 目的字段 目的字段 目的字段 目的字段 目的字段 目的字段 目的字段 积 余数 出现值 HI + + + + + ER ER ER ER ER HI LO - - - - - ER ER LO EQ ZB ZB ZB Z Z 日期/时间：期间码 目的字段 LOOKUP(1)表 查找自变量 日期/时间格式 源字段 第 3 页 共 55 页

52760329.doc

OUT PARM PLIST POST(3) READ(N) READC READE(N) READP(N) READPE(N) REL RESET RETURN SUB(1/2) SUBDUR （期间） *LOCK 目的字段 PLIST名 程序设备 查找自变量 查找自变量 程序设备 *NOKEY 减数 日期/时间 数据区名 源字段 文件名 记录名，文件名 记录名 文件名，记录名 文件名，记录名 文件名，记录名 文件名 *ALL 被减数 日期/时间 日期/时间 基串：开始 位数 参数 INFDS名 数据结构 数据结构 数据结构 数据结构 结构或变量或记录格式 差 期间：期间码 日期/时间 目的串 日期或字符字段或数字字段 时间或字符字段或数字字段 时间标记或字符字段或数字字段 字符字段 字符字段 字符字段 数字字段 + OF NU + + + ER ER ER ER ER ER ER ER ER - ER ER ER ER ER ER ON BN ER ER ER - ER - - EOF EOF EOF EOF EOF Z EQ BL EOF Z Z Z SUBDUR 日期/时间 （新日期） SUBST(P) TAG TEST(D) TEST(T) TEST(Z) TESTB(1) TESTN(1) TESTZ(1) TIME UNLOCK UPDATE WHEN WHENxx WRITE XLATE(P) 选取长度 标号 日期格式 时间格式 比较数 从：至 数据区，记录或文件 名 文件名 指示器表达式 比较数 文件名 数组名 串：开始 加数 减数 数据结构 数据结构 和 目的串 和 差 XFOOT(1/2) Z-ADD(1/2) Z-SUB(1/2)

第 4 页 共 55 页