Jon Perryman wrote <snip> #CALC (R4)=@PSA addr of PSA
#CALC WRKPSA=@PSA Save PSA addr </snip> I'd guess that this is not a good way of doing this, if it means that this address will be used as a base register, since that is both unnecessary and (worse) results in a zero address detection event which will complicate your finding "real" ZAD problems (and it is highly encouraged to run with ZAD active in testing to look for unexpected ZAD events within your code since you would generally know which are expected and which not). But I don't specifically know what "@PSA" is, so my guess could be wrong. The two CALC statements are likely too simplistic if you are trying to reference the PSA's of all processors (such as within a loop), due to the concepts of prefixing and reverse prefixing. Peter Relson z/OS Core Technology Design
