				Wiki
	updated on 2004.06.23

7.25.RPG IVと組み込み関数（BIF）の例2

[ Previous ] [ HOME ] [ Upper ] [ Next ]

構造化キーブレイク３つ

 C*                                                                      
 C*  DEFINE FILED                                                        
 C*                                                                      
 C     *LIKE         DEFINE    A1FLD1        W1OLD1                      
 C     *LIKE         DEFINE    A1FLD2        W1OLD2                      
 C     *LIKE         DEFINE    A1FLD3        W1OLD3                      
 C******************************************************                 
 C*             M A I N -  R O U T I N E                                 
 C******************************************************                 
 C                   EXSR      SRHED                                     
 C*                                                                      
 C                   READ      AFILE                                     
 C*                                                                      
 C                   DOW       (NOT %EOF(AFILE))                         
 C                   MOVE      A1FLD3        W1OLD3                      
 C*                                                                      
 C                   DOW       (NOT %EOF(AFILE)) AND                     
 C                             (A1FLD3 = W1OLD3)                         
 C                   MOVE      A1FLD2        W1OLD2                      
 C*                                                                      
 C                   DOW       (NOT %EOF(AFILE)) AND                     
 C                             (A1FLD2 = W1OLD2) AND                     
 C                             (A1FLD3 = W1OLD3)                         
 C                   MOVE      A1FLD1        W1OLD1                      
 C*                                                                      
 C                   DOW       (NOT %EOF(AFILE)) AND                     
 C                             (A1FLD1 = W1OLD1) AND                     
 C                             (A1FLD2 = W1OLD2) AND                     
 C                             (A1FLD3 = W1OLD3)                         
 C                   EXSR      SRSUM1                                    
 C                   EXSR      SRSUM2                                    
 C                   EXSR      SRSUM3                                    
 C                   EXSR      SRDTL                                     
 C                   READ      AFILE                                     
 C                   ENDDO                                               
 C*                                                                      
 C                   EXSR      SRTOL1                                    
 C                   EXSR      SRCLR1                                    
 C                   ENDDO

2001-2-9

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送