MFJZLPSA

MFJZLPSA locates the Prefixed Save Area (PSA).

Syntax:

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.

Parameters:

77 psa-ptr

pointer

Comments:

This service must be used to locate the PSA if you are running NOAMODE. It can be used all the time regardless of your AMODE or CHARSET.

Example:

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