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.
call 'MFJZLPSA' returning psa-ptr
set address of psa to psa-ptr
set address of cvt to psa-cvt
コメント:
NOAMODE を実行している場合、このサービスを使用して PSA を検出する必要があります。これは、AMODE または CHARSET にかかわらず常に使用できます。