检测加载所有子文件中的向下翻页和向上翻页按键

Detecting page down and page up key presses in a Load all subfile

附加要求是加载我创建的所有子文件。子文件控制记录格式有几个输入字段,当用户按 Enter 时,这些字段会被验证。然后,如果发现输入参数有效,则将满足输入参数值的数据库文件中的记录显示为子文件记录。

新要求是,如果用户在更改输入字段值后按向下翻页或向上翻页但未按 Enter,则应重新验证输入字段值并根据提供的新参数刷新子文件记录。

这在技术上可行吗?由于子文件是一个负载,向上翻页或向下翻页键不会将控制权传递回程序,因为分页由 OS.Hence 处理,我看不出如何重新验证参数。有没有办法在按下 Page up 或 Page down 时将控制权交还给 RPG,同时让 OS 控制分页?

有什么建议吗?

你是对的,直到用户一直分页到可扩展子文件 (SFLSIZE <> SFLPAGE) 中子文件的开头或结尾,程序才会取回控制权。但是,如果您一次使用一页子文件 (SFLSIZE = SFLPAGE),那么您可以 return 控制每次 PAGEUP/PAGEDOWN 按键时的程序。这将稍微改变您的程序结构,但您应该能够轻松地使其运行。