Well , for starters, you are missing some basic code for an AMODE 64 program...
https://www.ibm.com/docs/en/zos/3.1.0?topic=area-if-starting-in-amode-64 Joe On Sat, Aug 23, 2025 at 11:45 PM Paul Edwards < [email protected]> wrote: > 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
