> -----Original Message-----
> From: IBM Mainframe Discussion List On Behalf Of Baraniecki, Ray
>
> Help;
>
> I have written a called Assembler subroutine that performs a "LOAD"
for a table member for COBOL
> programs. My subroutine is assembled and linked with RMODE 24 and
AMODE ANY and most of the table
> members are linked with RMODE 31 AMODE 31. The problem arises when my
subroutine is called by a RMODE
> 24, AMODE 24 COBOL program. After I perform the load I pass back the
address of the "loaded" member.
> With a caller in AMODE 31 everything is ok. When the caller is in
AMODE 24 the program cannot use the
> address I return and usually gets a 0C4 ABEND.
>
> I cannot reassemble and the link the table members, they are
production and it would be easier to stop
> the tides.
>
> Does anyone know how I can interrogate the callers AMODE? I would
rather simply to fail the request of
> caller's in AMODE 24. That seems better that an 0C4.
>
> Any help would be most appreciated.
Why can't you just LOAD the table into below-the-line storage? That
seems simplest......
-jc-
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@bama.ua.edu with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
