DSPF定位记录

燕麦玉米粥

设在屏幕文件里设定一个搜索项搜索记录，如何设置使被搜索的记录做为当前屏的第一条记录显示？用过的大牛们指点下，谢谢！

RAIITSMXH

你的意思是不是一个画面本来显示N条记录，然后在某个位置输入搜索条件后，执行，只显示满足搜索条件的记录？
如果是这样，可以参考以下方法（我用的RPG3的语法，要用RPG4自己转一下应该可以的吧）
1,在F表中定义SUBFILE的记录号（RRN）
FFilenameIPEAF........L..I........Device+......KExit++Entry+A...
FDSPF      CF  E                     WORKSTN                       
F                                                   RRN    KSFILE SFL
2,做一个循环，搜索结果实际上是重新写SFL
   假设每次输入条件  执行后 运行@WRT 的subroutine，大体逻辑：
*******@WRT :  write sfl subroutine*************
        @WRT  BEGSR
                    Z-ADD      *ZERO       RRN                         //初始化记录号
                    . . .
         1           DO          N                                              //每页显示N条记录
         KEY      READE     FILE                                 90      //读满足条件的记录
      *IN90  IFEQ        '0'
                     . . .
                     . . .
                     WRITE     SFL
                     ADD         1            RRN                             //写完一条记录后，记录号+1
                     ENDIF
                     ENDDO
                    , , ,
                    ENDSR
                  
**The end**

燕麦玉米粥

谢谢楼上，楼上的意思是搜索到记录后先清屏，然后只将满足条件的记录显示吧，
我的意思是：假设有多页记录，将满足条件的记录做为当前显示页的首条记录，别的记录不删除

RAIITSMXH

回复 3# 燕麦玉米粥


    这样的话，SUBFILE也是要重新WRITE的，程序逻辑应该也不难，楼主自己试一下喽 （也可以用一个临时的PF存放数据便于定位）

   如果你设想的是： 排序号的n条记录依次显示，搜索后满足条件的记录直接滚到第一条，而不用重写subfile，那我只能说这个想法是错误的

   PS:个人观点，欢迎高手指正

燕麦玉米粥

回复 4# RAIITSMXH

如果记录很多，搜索一条记录都要重写一次，会不会太浪费了？


   

xjromance

SFLRCDNBR(*TOP)有一个选项好像是就可以。

燕麦玉米粥

SFLRCDNBR(CORSOR)是将光标定位到被搜索记录处，而不是做为当前页的第一条显示

xjromance

SFLRCDNBR(*TOP)

燕麦玉米粥

请楼上大牛详说下SFLRCDNBR（*TOP）的用法，我只知道在SFLC里定义D @@SFPG   4  0 H   SFLRCDNBR（CURSOR）

junlee1986

不清掉之前的屏，怎么写你要的第一呢？