RPG学习笔记五（简单DSPF文件实例）

1，DSPF文件代码：

 

 

2，RPGLE代码（1）

两点需要说明一下：

一、*IN03='1' 是判断DSPF文件中定义键值【CA03(03 'EXIT')】是否按下。
二、*inlr='1' ：意思是指将打开指示器*INLR，即赋值使指示器*INLR的值等于 1，意思是强制将内存中的数据写到磁盘中。

      同命令“SETON   LR” ，LR 的位置可在 HI、LO、EQ 中任选一处。

 

 

3，RPGLE代码（2）

 

4，效果图

 

 

5，PF文件数据

 

 

6，PF文件结构