关于记录SUBFILE翻到第几页的问题

BPCS123

现在有个程序中的SUBFILE中有多屏的数据，用户关于使用PAGE DOWN翻页，并且在翻到需要的数据时候，可能选定数据执行相应的操作，CALL其它程序进入了其它画面，但是在返回显示这个SUBFILE的时候，显示的又是第一页了。


1. EXFMT 显示画面A.
2.画面A使用 PAGE DOWN 翻到第X页
3.选定数据CALL 程序B，
4。显示画面B.
5。返回,并且EXFMT 显示画面A.

画面A又回到了第一页。有什么方法直接显示画面A的第X页吗？？

niuhua77

KEY WORD: SFLRCDNBR
DSPF:

1. 
   
2. A            PAG            4S 0H         SFLRCDNBR
   

复制代码

RPG:

1. 
   
2. C          Z-ADD    RRN       PAG
   

复制代码

系统会根据PAG的值自动来判断应该现在哪一页，即(PAG/SFLSIZ)取整

比如说当前的rrn=85，SFLPAG设置为10
那么当前就应该显示在第9页

junlee1986

在程序里控制
dspf:
SFLCSRRRN(&RELRCD)

&RELRCD        5H    S
在RPG中：
把RELRCD的值给显示页
就可以了

insmile

程序重新取数了，
call b之前记下当前记录，回来的时候从当前记录取数显示就可以了

BPCS123

在程序里控制
dspf:
SFLCSRRRN(&RELRCD)

&RELRCD        5H    S
在RPG中：
把RELRCD的值给显示页
...
junlee1986 发表于 2011-07-29 19:01

    通过测试，问题解决。把RELRCD的值给显示页，就是在重新显示的时候把RELRCD的值给RRN.

junlee1986

回复 5# BPCS123


    是的