請問SFLNXTCHG怎么用

netdoger

我在顯示文件中不用SFLNXTCHG，在rpg文件也可以用readc這個命令，哪位能告訴我這個關(guān)鍵字怎么用？用在哪里？

passthru

我感到lz不喜歡查手冊。這么簡單的問題，就拿到論壇來發(fā)表。習慣很壞。

對這樣的人我非常討厭。不予回答。

KienR9

SFLNXTCHG在SUBFILE里的SFL里指定

READC就是讀取下一條修改過的SUBFILE記錄

roden

呵呵,你自己試一下就知道了.
主要是為了下一次用READC還能讀到.
看樓主的注冊日期哦

netdoger

我不用這個關(guān)鍵字，也能用readc讀到呀(我在子文件中定義一個整型字段，然后當鍵入1時，能用readc讀到)，有什么區(qū)別

roden

OK
一般來說,對有輸入的SUBFILE,我們是這樣處理的:
1.第一步應(yīng)該是做CHECK;
2.CHECK有錯,報錯,再顯示畫面;
3.CHECK沒錯后,再進行后續(xù)處理,比如說增/刪/改DB,這個時候你再用READC試試

如果你真的能再用READC讀到數(shù)據(jù),那IBM的工程師可以洗洗睡了.

netdoger

請看我的一段更改子文件的代碼：
c***sub07 Update Record                                                  
c     sub07         begsr                                                
c                   readc     subfile                                60  
c     *in60         ifeq      *off                                       
c                   eval      uk1=k1                                    
c                   eval      uk2=k2                                    
c     *in03         doweq     *off                                       
c                   exfmt     updaterec                                 
c     uk1           chain     altpf                              50      
c     *in50         ifeq      *off                                       
c                   eval      k2=uk2                                    
c                   update    altpf                                      
c                   endif                                                
c                   enddo                                                
c     rrn           chain     subfile                            62      
c     *in62         ifeq      *off                                       
c                   eval      k2=uk2                                    
c                   update    subfile                                    
c                   write     subfctl                                    
c                   endif                                                
c                   write     keyfun  
c                   endif            
c                   endsr            
我在顯示文件中也沒有定義SFLNXTCHG關(guān)鍵字。你能否提供使用該關(guān)鍵字的代碼？

passthru

看來lz不會鉆研，只會鉆角。呵呵

你有沒有試過把subfile的字段定義為可修改的字段，而不是通常操作，在subfile選擇項鍵入x或I，然后進入編輯狀態(tài)修改。

如果把subfile的顯示字段定義為可修改時，在實際操作中又在顯示屏幕上直接修改了多處顯示的subfile記錄字段，這是需要在SFL記錄中定義SFLNXTCHG鍵字，在rpg程序中才能使用readc，進行操作。

提個建議，不要直接提問，就像本帖的標題：請問SFLNXTCHG怎么用？給人的印象是，你沒有思考過就直接找你不懂的東東，在論壇發(fā)貼。

如果你換個角度，如，誰能幫我解答讓我困惑的問題，有關(guān)SFLNXTCHG鍵字的使用。然后把你的問題，為什么在不用SFLNXTCHG鍵字時，readc也可以用？比如。。。由此SFLNXTCHG應(yīng)該用在什么地方？

pantierui

貼點代碼大家一起體會
pf（STATES）：

1. 
   
2.      A                                      UNIQUE            
   
3.      A          R RSTATES                   TEXT('TABLEA')     
   
4.      A*                                                        
   
5.      A            STATCD         2                             
   
6.      A            STATDS        15                             
   
7.      A*                                                        
   
8.      A          K STATCD                                       
   

復(fù)制代碼

[ 本帖最后由 pantierui 于 2008-8-8 14:09 編輯 ]

pantierui

dspf（SFD681）：

1. 
   
2.      A                                      DSPSIZ(24 80 *DS3)         
   
3.      A                                      CF03(03)                    
   
4.      A          R SFD681A                   SFL                        
   
5.      A  39                                  SFLNXTCHG                  
   
6.      A            STATCD    R        B  8  3REFFLD(RSTATES/STATCD ZYF/STATES)  
   
7.      A                                      COLOR(WHT)                  
   
8.      A  41                                  DSPATR(RI)                  
   
9.      A            STATDS    R        B  8 13REFFLD(RSTATES/STATDS ZYF/STATES)  
   
10.      A                                      COLOR(WHT)                  
    
11.      A            @KEY      R        H      REFFLD(RSTATES/STATCD ZYF/STATES)  
    
12.      A          R SFD681B                   SFLCTL(SFD681A)            
    
13.      A                                      SFLSIZ(0500)               
    
14.      A                                      SFLPAG(0010)               
    
15.      A                                      OVERLAY                     
    
16.      A  30                                  SFLDSP                     
    
17.      A                                      SFLDSPCTL                  
    
18.      A  31                                  SFLINZ               
    
19.      A                                      SFLRNA               
    
20.      A  35                                  SFLEND(*MORE)         
    
21.      A            @REC           4  0H      SFLRCDNBR(CURSOR)     
    
22.      A                                  1  4DATE                  
    
23.      A                                      EDTCDE(Y)            
    
24.      A                                      COLOR(BLU)            
    
25.      A                                  2  4TIME                  
    
26.      A                                      COLOR(BLU)            
    
27.      A                                  1 26'UPDATE STATE CODES'  
    
28.      A                                  1 69USER                  
    
29.      A                                      COLOR(BLU)            
    
30.      A                                  2 69'SFR681'              
    
31.      A                                      COLOR(BLU)            
    
32.      A                                  6  1'STATE CODE'         
    
33.      A                                      COLOR(PNK)            
    
34.      A                                      DSPATR(UL)         
    
35.      A                                  6 13'DESCRIPTION '     
    
36.      A                                      COLOR(PNK)         
    
37.      A                                      DSPATR(UL)         
    
38.      A          R TRAILER                                      
    
39.      A                                 23  2'F3-EXIT'         
    
40.      A                                      COLOR(WHT)         
    

復(fù)制代碼