* 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

12.11.Ｑ.物理ファイルのフィールドにNULLをセットすることは可能でしょうか？

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

フィールドのNULLは以下のやり方で出来ました。

物理ファイル TESTPF

0001.00      A*------------------------------------*                         
0002.00      A          R TESTR                                              
0003.00      A*------------------------------------*                         
0004.00      A            A1FLG0         9S 0       COLHDG('FLAG 0')         
0005.00      A                                      DFT(*NULL) ALWNULL       

    とします。

NULLかいなかの確認は、UPDDTAで該当レコードをみると、右下にフィールド FLAG 0 が空値である。とでるので、これを信じることにします。

1. INZPFMでデータを作成すると、A1FLG0は、NULLデータになっている。
2. RPG400ではうまく出来なかった。CRTRPGPGMのALWNULLは、データマッピングエラーの抑制。
3. RPG IVでは、V3r7以降、下記のやり方で、可能です。関数があって、NULL標識（Ind）をONにして書き出せばいいだけです。この関数は、NULL検査にも使えます。また、この関数を使うときは、ALWNULLを*USRCTLにしなくてはいけないようです。コンパイルオプションか、H仕様書に入れておけばいいです。

0001.00 HALWNULL(*USRCTL)                                                
0002.00 FTESTPF    O    E             DISK                                
0003.00 C                   EVAL      %NULLIND(A1FLG0) = *ON            
0004.00 C                   WRITE     TESTR                              
0005.00 C                   MOVE      *ON           *INLR              

2000-8-9

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

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