[hercules-os380] review amode issue

[[e-mail] [hercules-os380]]

Hi Greg.

IIRC, the S/370 version of REVIEW needed to
be marked as AM31 when run on z/OS, otherwise
it would abend. Why is that? Why can't it run as
AM24 and thus be marked as AMODE ANY
instead of AM31?

Note that if it is running as AM24 and it does a
GETMAIN LOC=31, MVS is supposed to
return BTL memory rather than ATL memory,
so that shouldn't be an issue.

Thanks. Paul.

[pricgren [e-mail] [hercules-os380]]

Ah, yes, well, that's one theory.

However,
GETMAIN RC,LV=(0),LOC=(31,64)
does return ATL storage under z/OS even when AMODE=24, and attempting to
clear this storage with a MVCL is where REVIEW abended with S0C4 when I
zapped the AMODE to 24.

Cheers,
Greg

Post by ***@yahoo.com.au [hercules-os380]
Hi Greg.
IIRC, the S/370 version of REVIEW needed to
be marked as AM31 when run on z/OS, otherwise
it would abend. Why is that? Why can't it run as
AM24 and thus be marked as AMODE ANY
instead of AM31?
Note that if it is running as AM24 and it does a
GETMAIN LOC=31, MVS is supposed to
return BTL memory rather than ATL memory,
so that shouldn't be an issue.
Thanks. Paul.
_

[[e-mail] [hercules-os380]]

And luckily the MVS/380 intercept has been
implemented with this code:

TM RBOPSW+4,X'80' IS USER IN AM31? GP17270
BZ GO2IBM NO; LET OLD CODE HANDLE IT GP17270

so that I can mark the REVIEW modules
as AM24 to provide a more robust
execution (but obviously limited to
smaller datasets being able to be
edited).

BFN. Paul.

[[e-mail] [hercules-os380]]

Post by ***@yahoo.com.au [hercules-os380]
And luckily the MVS/380
as AM24 to provide a more robust
execution (but obviously limited to

But MVS/XA users are unlucky if it behaves
the same as z/OS because they will be
forced to run as AM31 but the I/O routines
can't handle being executed as AM31.

Solutions are:

1. Another AM24-only version of REVIEW.

2. REVIEW does a check of AMODE before
doing a LOC=31 GETMAIN, and if running
AM24 just does a LOC=24 instead.

3. REVIEW could have "step-down" logic
added so that it runs robustly (or in the
case of MVS/XA - at all).

BFN. Paul.