LPIPARAMCOUNT 関数

目的

PL/I サブルーチンに渡されたパラメーターの数を表す fixed binary(15) の整数を返します。

構文

LPIPARAMCOUNT()

または

LPIPARAMCOUNT

説明

LPIPARAMCOUNT 組み込み関数は、Open PL/I プロシージャ間で渡されたパラメーターの数を返します。この関数を使用するには、呼び出し元のプロシージャが -paramcount コンパイル時オプションを使用してコンパイルされているか、そのプロシージャに OPTIONS(LPIPARAMCOUNT) というエントリ名属性が設定されている必要があります。

例

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

制約事項

なし。