* 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.13.*INZSRについて

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

皆さんは、*INZSRを利用してますか。昔はこのサブルーチン無かったんですよ。NEWS 3X/400 (今のNEWS/400) Feb.1991の記事に面白いものがありました。Jennifer Hamiltonさん（IBMトロント研究所の言語開発チームメンバー）の記事です。

元々*INZSRは１Ｐ出力前に実行したい内容をコードする目的だったのです。つまりO-SPECで1Pとすると、C-SPECをスキップして、まず印刷してしまいます。すると時間の印刷ができません。UDATEはO-SPECに定義できるのですが、時間はRPGではTIME命令で取り出すしかありません。そこで、1P出力する前に実行するサブルーチンをIBMは追加したのです。(V1R3.0)。

ところで、この*INZSRも気を付けるべき点があります。

1. 一つは、LRをオンにしないで、RETURNした後で、再びそのプログラムを呼び出した場合です。2度目以降は、*INZSRを通過しません。LRをしてない場合は、ファイルカーソルやRPG内部のフィールドの値などすべて残ってしまいますが、*INZSRは、一度実行されたという記録が残るので、２度目は実行されません。困るのなら、*INZSRは使わず通常のサブルーチンにするか、２度目以降は強制的にEXSR *INZSRをします。
2. もう一つは、サイクルの場合、最初のレコードが読まれる前に、*INZSRが実行されますので、*INZSRの中で、プライマリーファイルのレコードの処理はしてはいけません。

以上の２つの点に気を付ければ、とても便利なコードです。どんどん使いましょう。

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

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