请问SFLNXTCHG怎么用

netdoger

我在显示文件中不用SFLNXTCHG，在rpg文件也可以用readc这个命令，哪位能告诉我这个关键字怎么用？用在哪里？

passthru

我感到lz不喜欢查手册。这么简单的问题，就拿到论坛来发表。习惯很坏。

对这样的人我非常讨厌。不予回答。

KienR9

SFLNXTCHG在SUBFILE里的SFL里指定

READC就是读取下一条修改过的SUBFILE记录

roden

呵呵,你自己试一下就知道了.
主要是为了下一次用READC还能读到.
看楼主的注冊日期哦

netdoger

我不用这个关键字，也能用readc读到呀(我在子文件中定义一个整型字段，然后当键入1时，能用readc读到)，有什么区别

roden

OK
一般来说,对有输入的SUBFILE,我们是这样处理的:
1.第一步应该是做CHECK;
2.CHECK有错,报错,再显示画面;
3.CHECK没错后,再进行后续处理,比如说增/删/改DB,这个时候你再用READC试试

如果你真的能再用READC读到数据,那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关键字。你能否提供使用该关键字的代码？

passthru

看来lz不会钻研，只会钻角。呵呵

你有没有试过把subfile的字段定义为可修改的字段，而不是通常操作，在subfile选择项键入x或I，然后进入编辑状态修改。

如果把subfile的显示字段定义为可修改时，在实际操作中又在显示屏幕上直接修改了多处显示的subfile记录字段，这是需要在SFL记录中定义SFLNXTCHG键字，在rpg程序中才能使用readc，进行操作。

提个建议，不要直接提问，就像本帖的标题：请问SFLNXTCHG怎么用？给人的印象是，你没有思考过就直接找你不懂的东东，在论坛发贴。

如果你换个角度，如，谁能帮我解答让我困惑的问题，有关SFLNXTCHG键字的使用。然后把你的问题，为什么在不用SFLNXTCHG键字时，readc也可以用？比如。。。由此SFLNXTCHG应该用在什么地方？

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                                       
   

复制代码

[ 本帖最后由 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)         
    

复制代码