* 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

19.17.*SAVFのレコード数を検査するプログラム

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

ＲＰＧコード（桁位置は正しいので、このまま画面コピーできます）

CALL前に、

OVRDBF SAVF xxxxxx

として、実際の*SAVFにオーバーライドしてください。

     FSAVF    IF  F     528            DISK                             
     F                                              KINFDS INFDSS       
     ISAVF    AA  01                                                    
     I                                        1   1 DATA                
     IINFDSS      DS                                                    
     I                                    B 156 1590RCDNBR              
     C                     MOVE *ON       *INLR                         
     C                     RETRN                                        
     C                     READ SAVF                     90             

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

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