サイクル以外のプログラムで* inlrを設定しても影響はありますか？

Question

私は最近、* inlr = * onがファイルの明示的なクローズ（以下のコード）の後に使用されるサービスプログラムを見つけました。それは私のためにむしろ過度に感じる。私が見つけたものから、リソースの解放を処理するRPGサイクルです。だからサイクルがないなら（つまり、メイン/ノーミングのh-specsを持つプログラムでは）、* inlr = * onが何らかの効果をもたらす方法はありませんが...私は確認を見つけることができませんでした。サイクルに関連する問題は私には非常に新しいものです。私は何かが欠けているかもしれません...

if %open(file);  
    close file;   
endif;     
*inlr = *on;    
return *on; 

Answer 1

「最後のレコード」インジケータは、サイクルでのみ使用されます。これは、NOMAINサービスプログラムまたはリニアMAINプログラムでは使用されません。

RPG IV Programmer's Guideは

注無しサイクルコードはサブプロシージャー用に生成されていないと言うか、MAINまたはNOMAINは、制御仕様に指定されている場合。それは計算の最後に到達したときに

その他の参考資料
IBMのバーバラ・モリス（post to the RPG mailing listでRPGLEコンパイラ開発者、）

はリニア主な手順は、ちょうど終了します。必要ならばを* INLRに設定できますが、ファイルのクローズのようなサイクル関連のことは行いません。

ここでは、サイクルメインモジュールとリニアメインモジュールの比較を示します。 http://publib.boulder.ibm.com/infocenter/iseries/v7r1m0/index.jsp?topic=%2Frzasd%2Fsc09250802.htm "

Answer 2

線形メインで

、またはnomainモジュール、*inlrは、私の知る限りでは、4ページの本の明示的な文書が、ILE RPG Programmer's Guideは、ありません。効果はありません

を述べて

注：*inlrをチェックするサイクルの一部であるためなしサイクルコードはサブプロシージャーのために生成されていないか、MAINまたはNOMAIN を制御仕様に指定されている場合

、このI。 nferrs機能なし

Answer 3

はこれを試してください：RPGプログラム

pgm 
    call testlrr 
    call testlrr 
    call testlrr 
    endpgm 

を呼び出すための

CLプログラムこのRPG

ctl-opt dftactgrp(*no) actgrp('QILE'); 

    dcl-pr TESTLRR extpgm('TESTLRR'); 
    end-pr; 

    dcl-pi TESTLRR; 
    end-pi; 

    dcl-s counter  zoned(5:0); 

    counter = counter + 5; 

    dsply counter; 

    return;    

のためにあなたが変数の値をし続けて表示されますその後の呼び出しで増分します。

はい...アクティベーショングループ、inz文などで対処できますが、* inlrはかなり安くて簡単です。