MFJZLPSA

MFJZLPSA はプレフィックス保存領域 (PSA) を検出します。

構文:

call 'MFJZLPSA' returning psa-ptr
*   on exception  *> reqd only if run on the mainframe
*   continue
Where:
 psa-ptr will be set to the address of the PSA upon return.

パラメーター:

77 psa-ptr

pointer

コメント:

NOAMODE を実行している場合、このサービスを使用して PSA を検出する必要があります。これは、AMODE または CHARSET にかかわらず常に使用できます。

例:

77 psa-ptr  pointer.
      call 'MFJZLPSA' returning psa-ptr
      set address of psa   to psa-ptr
      set address of cvt   to psa-cvt