AS400中SUBFILE画面的光标控制技巧

1. 在DSP文件的SUBFILE记录格式里用SFLCSRRRN定义一个隐藏变量（H1），用于获得当前光标所在的记录序号。

2. 在DSP文件的SUBFILE记录格式内用SFLRCDNBR(CURSOR)定义一个隐藏变量H2，用于让光标“落在”我们指定的记录上。

3. RPG程序里D表定义一个INFDS结构，取378~379的Subfile min rrn，#RCDN。

 

编写如下代码：

IF   H1 = *ZERO 
Z-ADD     #RCDN      H2 
ELSE      
Z-ADD     H1            H2 
ENDIF

 

实现效果：当从程序返回画面显示时，若之前光标在SUBFILE中空白处，则将光标放在当前页的第一条记录里；若在某记录上的话则保持位置不变。

相关知识：

SFLCSRRRN:Subfile Cursor Relative Recorde Number. 返回当前光标所在的记录数

SFLRCDNBR: Subfile Recorde Number. 配合CURSOR参数可将光标SET在任意记录上

INFDS:FILE INFORMATION DATA STRUCTURE. 每个不同位置都有不同含义，相见ILE-REFERENCE REDBOOK。