DSPF定位記錄

燕麥玉米粥

設(shè)在屏幕文件里設(shè)定一個搜索項搜索記錄，如何設(shè)置使被搜索的記錄做為當(dāng)前屏的第一條記錄顯示？用過的大牛們指點下，謝謝！

RAIITSMXH

你的意思是不是一個畫面本來顯示N條記錄，然后在某個位置輸入搜索條件后，執(zhí)行，只顯示滿足搜索條件的記錄？
如果是這樣，可以參考以下方法（我用的RPG3的語法，要用RPG4自己轉(zhuǎn)一下應(yīng)該可以的吧）
1,在F表中定義SUBFILE的記錄號（RRN）
FFilenameIPEAF........L..I........Device+......KExit++Entry+A...
FDSPF      CF  E                     WORKSTN                       
F                                                   RRN    KSFILE SFL
2,做一個循環(huán)，搜索結(jié)果實際上是重新寫SFL
   假設(shè)每次輸入條件  執(zhí)行后 運(yùn)行@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**

燕麥玉米粥

謝謝樓上，樓上的意思是搜索到記錄后先清屏，然后只將滿足條件的記錄顯示吧，
我的意思是：假設(shè)有多頁記錄，將滿足條件的記錄做為當(dāng)前顯示頁的首條記錄，別的記錄不刪除

RAIITSMXH

回復(fù) 3# 燕麥玉米粥


    這樣的話，SUBFILE也是要重新WRITE的，程序邏輯應(yīng)該也不難，樓主自己試一下嘍 （也可以用一個臨時的PF存放數(shù)據(jù)便于定位）

   如果你設(shè)想的是： 排序號的n條記錄依次顯示，搜索后滿足條件的記錄直接滾到第一條，而不用重寫subfile，那我只能說這個想法是錯誤的

   PS:個人觀點，歡迎高手指正

燕麥玉米粥

回復(fù) 4# RAIITSMXH

如果記錄很多，搜索一條記錄都要重寫一次，會不會太浪費(fèi)了？


   

xjromance

SFLRCDNBR(*TOP)有一個選項好像是就可以。

燕麥玉米粥

SFLRCDNBR(CORSOR)是將光標(biāo)定位到被搜索記錄處，而不是做為當(dāng)前頁的第一條顯示

xjromance

SFLRCDNBR(*TOP)

燕麥玉米粥

請樓上大牛詳說下SFLRCDNBR（*TOP）的用法，我只知道在SFLC里定義D @@SFPG   4  0 H   SFLRCDNBR（CURSOR）

junlee1986

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