RPG

3.プログラムの最初だけ実行する処理を記述するには?

予約サブルーチン*INZSRに記述した内容は、プログラムが起動された最初だけ処理が実行される。
もちろん、EXSR *INZSRのように*INZSRを呼び出す必要はない。

ソースコード
0001.00      C******************************************************
0002.00      C           *INZSR    BEGSR
0003.00      C******************************************************
0004.00      C*  初期のみの実行
0005.00      CSR                   CLEARSAVEDS
0006.00      CSR         INZEND    ENDSR