What about writing a small assembler routine to do the AMODE switch.
The routine would use an input value of say "-1" for query, "0" for set to 24-
bit mode, "1" for set to 31-bit mode, and by extention, "2" to set to 64-bit
mode. The routine would return (either as a function call, or in a separ
The appends that refer to what we call "directed load" are the right
approach if you are APF-authorized.
BLDL
Examine the directory entry and determine the length
Obtain storage of that length
LOAD with ADDR=.
Both the BLDL and LOAD would want to specify whatever DCB is appropriate,
especially if
L3 Support/Development
wdrisco(AT)us.ibm.com
===
Rick Fochtman
Sent by: IBM Mainframe Discussion List
05/19/2009 09:37 PM
Please respond to
IBM Mainframe Discussion List
To
IBM-MAIN@bama.ua.edu
cc
Subject
Re: AMODE Switching
On Tue, 19 May 2009 11:38:10 -0500, Chase, John
wrote:
>
>Why can't you just LOAD the table into below-the-line storage? That
Because below-the-line storage is a scarse resource?
Because we did all that hard work making our routines AMODE 31, RMODE ANY
in order to alleviate the shortage of be
-
Surely, if the table has internal pointers (adcons), these will still
point above the line and thus be unusable in AMODE 24?
-
I've never tried it, but maybe
Some further comments on Chris Craddock's comments:
1) The LSEXPAND macro instruction takes the form
| LSEXPAND normal=n,recovery=r
where
96 < n <= 16000,
24 < r <= 4000
the first time the macro is used and
n(i-1) < n(i) <= 16000,
r(i-1) < r(i) <= 4000
the i-th time, i > 1,
>>* LOAD the table; R1 has address, R0 has size in doublewords
>>* Get storage below the line using the R0 value * 8
>>* Copy the table to your gotten storage
>
> Instead of copying it, use IARVSERV to map it below the line.
>
> --
> Tom Marchant
Surely, if the table has internal pointers (adcons
On Tue, 19 May 2009 10:57:43 -0600, Steve Comstock wrote:
>
>* LOAD the table; R1 has address, R0 has size in doublewords
>* Get storage below the line using the R0 value * 8
>* Copy the table to your gotten storage
Instead of copying it, use IARVSERV to map it below the line.
--
Tom Marchant
McKown, John wrote:
-Original Message-
From: IBM Mainframe Discussion List
* LOAD the table; R1 has address, R0 has size in doublewords
* Get storage below the line using the R0 value * 8
* Copy the table to your gotten storage
Kind regards,
-Steve Comstock
Relocate ADCONS, how?
> -Original Message-
> From: IBM Mainframe Discussion List
>
> * LOAD the table; R1 has address, R0 has size in doublewords
> * Get storage below the line using the R0 value * 8
> * Copy the table to your gotten storage
>
>
> Kind regards,
>
> -Steve Comstock
Relocate ADCONS, how? I'
On Tue, 19 May 2009 10:57:43 -0600, Steve Comstock wrote:
>
>* LOAD the table; R1 has address, R0 has size in doublewords
>* Get storage below the line using the R0 value * 8
>* Copy the table to your gotten storage
>
... being careful along the way to update any relocatable internal
pointers the t
Baraniecki, Ray wrote:
I cannot control where the table is loaded. Or can I?
BLDL. Then "fiddle" with the AMODE. Then LOAD DE=?
--
Edward E Jaffe
Phoenix Software International, Inc
5200 W Century Blvd, Suite 800
Los Angeles, CA 90045
310-338-0400 x318
edja...@phoenixsoftware.com
http://www
McKown, John wrote:
-Original Message-
From: IBM Mainframe Discussion List
[mailto:ibm-m...@bama.ua.edu] On Behalf Of Chase, John
Sent: Tuesday, May 19, 2009 11:38 AM
To: IBM-MAIN@bama.ua.edu
Subject: Re: AMODE Switching
Why can't you just LOAD the table into below-the-line st
> -Original Message-
> From: IBM Mainframe Discussion List
> [mailto:ibm-m...@bama.ua.edu] On Behalf Of Chase, John
> Sent: Tuesday, May 19, 2009 11:38 AM
> To: IBM-MAIN@bama.ua.edu
> Subject: Re: AMODE Switching
>
> Why can't you just LOAD the table into
BEFORE PRINTING THIS
E-MAIL.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Chase, John
Sent: Tuesday, May 19, 2009 12:38 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: AMODE Switching
> -Original Message-
> From: IBM Mainframe Disc
BEFORE PRINTING THIS
E-MAIL.
-Original Message-
From: IBM Mainframe Discussion List [mailto:ibm-m...@bama.ua.edu] On Behalf Of
Tom Harper
Sent: Tuesday, May 19, 2009 12:09 PM
To: IBM-MAIN@bama.ua.edu
Subject: Re: AMODE Switching
Ray,
Did you read the answer I posted for you. on the
> -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
@bama.ua.edu
Sent: Tue May 19 10:22:32 2009
Subject: AMODE Switching
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 wit
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
19 matches
Mail list logo