The documentation you are pointing to is for the linkage editor.  That is 
program HEWLKED.

  The program you are running (IEWL) in the binder, not the linkage editor. 

Jim Mulder

-----Original Message-----
From: IBM Mainframe Discussion List <[email protected]> On Behalf Of 
Paul Edwards
Sent: Sunday, August 24, 2025 1:46 AM
To: [email protected]
Subject: Re: RMODE 64

On Mon, 18 Aug 2025 00:32:05 +1000, Peter Morrison <[email protected]> wrote:

>*         When you bind (link-edit) the program, you can specify the binder
>option via the JCL Parm field (you can also use an input option, not 
>discussed here, read the manual). *DO NOT* use 'RMODE=64'. Instead you
>*MUST* specify 'RMODEX=64TRUE'. Don't ask me why (RTFM). The resulting 
>program is an RMODE64 program.

Hi Peter.

I attempted to RTFM. And I am working with someone with access to z/OS.


https://www.ibm.com/docs/en/zos/3.1.0?topic=modules-amode-rmode-differences

Value of 64 for RMODE is not supported.


Unless I'm missing something, that statement from the IBM manual is not true, 
and nor is your statement.

A simple AMODE=64,RMODE=64 was accepted by IEWL and resulted in a load module 
that ran above 4 GiB.

//LKED     EXEC PGM=IEWL,PARM='MAP,LIST,AMODE=64,RMODE=64' 

Specifically at:

00000050_00000000

as can be seen by the PSW a short distance from there, and R15 an even shorter 
distance, before the deliberate abend was done with the below code.

SYSTEM COMPLETION CODE=0C1  REASON CODE=00000001                    
 TIME=01.16.08  SEQ=04322  CPU=0000  ASID=0032                      
 PSW AT TIME OF ERROR  07850001 80000000 00000050_00000004          
 ILC  2  INTC 01                                                    
   ACTIVE MODULE           ADDRESS=00000050_00000000  OFFSET=00000004
   NAME=PDPTEST                                                      
   DATA AT PSW  0000004F_FFFFFFFE - ****05F0  000047F0  F00A04D6    
   GR 0: 00000000_00000064   1: 00000000_00006FF8                    
      2: 00000000_00000040   3: 00000000_17C70C00                    
      4: 00000000_007D9D40   5: 00000000_007FB040                    
      6: 00000000_007C3FC8   7: 00000000_00FBD400                    
      8: 00000000_007FD608   9: 00000000_007CCCB0                    
      A: 00000000_01DED800   B: 00000000_007F0001                    
      C: 00000000_04BE83E0   D: 00000000_00007F68                    
      E: 00000000_00FD7D58   F: 00000050_00000002                    
 END OF SYMPTOM DUMP                                                
IEF450I PAULTEST PDPTEST - ABEND=S0C1 U0000 REASON=00000001  189    
        TIME=01.16.09  


***********************************************************************
*                                                                     *
*  This program written by Paul Edwards.                              *
*  Released to the public domain                                      *
*                                                                     *
***********************************************************************
***********************************************************************
*                                                                     *
*  ONE - call TWO to set R15                                          *
*                                                                     *
***********************************************************************
*
         AMODE 64
         RMODE 64
         CSECT
         YREGS
*
         ENTRY ONE
ONE      DS    0H
         BALR  R15,0
         DC    H'0'
ONEZ     DS    0H
         SAVE  (14,12),,ONEZ
         LGR   R10,R15
         USING ONEZ,R10
         LGR   R9,R13
         LA    R13,SAVEAREA
         WTO   'About to call two for two'
         LG    R15,=VD(TWO)
         LGR   R0,R14
         BALR  R14,R15
         LGR   R14,R0
         LGR   R13,R9
         RETURN (14,12),RC=(15)
SAVEAREA DS    19F
         END


What am I missing?

Thanks. Paul.

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions, send email to 
[email protected] with the message: INFO IBM-MAIN

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to