main: procedure options(main); declare subr entry; ... call subr(); ... call subr(x,y,z); end main; subr: procedure(p1,p2,p3,p4); ... declare no_of_args fixed bin(15); no_of_args = lpiparamcount(); put skip list ('Number of arguments passed to SUBR: ', no_of_args); end subr;
メイン プログラムが -paramcount オプションを使用してコンパイルされている場合、上の例の出力は次のようになります。
Number of arguments passed to SUBR: 0 Number of arguments passed to SUBR: 3
説明
LPIPARAMCOUNT 組み込み関数は、Open PL/I プロシージャ間で渡されたパラメーターの数を返します。この関数を使用するには、呼び出し元のプロシージャが -paramcount コンパイル時オプションを使用してコンパイルされているか、そのプロシージャに OPTIONS(LPIPARAMCOUNT) というエントリ名属性が設定されている必要があります。