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 separate
On Tue, 19 May 2009 11:38:10 -0500, Chase, John jch...@ussco.com
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
@bama.ua.edu
cc
Subject
Re: AMODE Switching
--snip---
Surely, if the table has internal pointers (adcons), these will still
point above the line and thus be unusable in AMODE 24?
--unsnip
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
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
To: IBM-MAIN@bama.ua.edu IBM-MAIN@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
-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
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
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 Discussion
-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
snip
Why can't you just LOAD the table into below-the-line storage
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
snip
Why can't you just LOAD the table into below-the-line
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
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 table
-Original Message-
From: IBM Mainframe Discussion List
snip
* 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've had
McKown, John wrote:
-Original Message-
From: IBM Mainframe Discussion List
snip
* 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,
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
* 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), these
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, it is
--snip---
Surely, if the table has internal pointers (adcons), these will still
point above the line and thus be unusable in AMODE 24?
--unsnip---
I've never tried it,
19 matches
Mail list logo