* SELECT TOPIC * 履歴 (history) サブファイル (subfile) ＤＢ２／４００ (db2/400) 実行管理 (work mng.) ユーティリティ (utility) やろうぜＡＰＩ (api) ロジック上の注意 (logic) ＢＯＯＫＳ (books) ちょっと技情報 (tips) 標準化案 (standardization) * SELECT TOPIC * ダウンロード (download) FAQコーナー (faq) CLP知ったもん勝ち！ 大事な付録 (appendix) LINKS (links) プログラマー通信 (messages) AS/400予備校 (prep. school) AS/400セットアップ (setup) プログラム部品集 (parts) Colossus (colossus) 掲示板 (bbs)				Wiki
	updated on 2004.06.23

7.24.RPG IVと組み込み関数（BIF）の例1

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

 C*                                                                      
 C*  DEFINE FILED                                                        
 C*                                                                      
 C     *LIKE         DEFINE    A1FLD         W1OLD                       
 C*********************************************************************  
 C*          MAIN      MODULE         SECTION                            
 C*********************************************************************  
 C                   EXSR      SRHED                                     
 C*                                                                      
 C                   READ      AFILE                                     
 C*                                                                      
 C                   DOW       NOT %EOF(AFILE)                           
 C                   MOVE      A1FLD         W1OLD                       
 C*                                                                      
 C                   DOW       NOT %EOF(AFILE)                           
 C                   EXSR      SRSUM                                     
 C                   EXSR      SRDTL                                     
 C                   READ      AFILE                                     
 C                   ENDDO                                               
 C*                                                                      
 C                   EXSR      SRTOL                                     
 C                   EXSR      SRCLR                                     
 C                   ENDDO                                               
 C*                                                                      
 C                   EXSR      SREND                                     
 C*                                                                      
 C                   SETON                                        LR     
 C                   RETURN                                              

2001-2-9

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

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