プログラムの初期ルーチンとして最初だけ実行させたいサブ・ルーチンなどを使うことはよくあるケースである。

プログラム内部で標識などを駆使するよりも， *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