|
プログラムの初期ルーチンとして最初だけ実行させたいサブ・ルーチンなどを使うことはよくあるケースである。
プログラム内部で標識などを駆使するよりも， *INZSR という名前のサプ・ルーチンを使えばよい。
ユーザーが *INZSR という名前のサブ・ルーチンを定義すると EXSR *INZSR というように呼び出す必要も無く、RPGサイクルによって自動的に最初だけ呼び出して実行が行われる。
0099.00 C******************************************************
0100.00 C *INZSR BEGSR
0101.00 C******************************************************
0102.00 C* 初期 ｻｲｸﾙ のみの実行
0103.00 CSR MOVE *BLANKS WSR
0104.00 CSR MOVE *BLANKS JOB
0105.00 CSR MOVE *BLANKS USRNAM
0106.00 CSR MOVE *BLANKS INNCOD
0107.00 CSR ENDSR
|
