The pdld author seems to think he knows - an LL of 0 means 8 bytes, and he has made this change to support rmode 64:
https://sourceforge.net/p/pdos/gitcode/ci/95ed1f4a96df4a5db9a9b3d8d6f4c24dcc4271d8/ But we won't know for sure unless someone volunteers to test it on a z/OS system. BFN. Paul. On Fri, 15 Aug 2025 21:33:04 +0000, Seymour J Metz <[email protected]> wrote: >Maybe they're using the same CESD mapping macro for load modules and program >objects. But if I knew they'd have to shoot me. > >-- >Shmuel (Seymour J.) Metz >http://mason.gmu.edu/~smetz3 >עַם יִשְׂרָאֵל חַי >נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר > > > > >________________________________________ >From: IBM Mainframe Discussion List <[email protected]> on behalf of >Paul Edwards <[email protected]> >Sent: Friday, August 15, 2025 5:10 PM >To: [email protected] <[email protected]> >Subject: Re: Running a program RMODE64 > > >External Message: Use Caution > > >That's my question - they've clearly put *some* RMODE 64 >stuff into traditional load modules. But I was expecting to see >8-byte RLDs. > >I doubt that IBM would have put any RMODE 64 stuff in if it >was completely pointless. > >So maybe there is some other factor. Which is why I wanted >to see a simple load module produced on z/OS, that uses =VD. > >BFN. Paul. > > > > >On Fri, 15 Aug 2025 15:09:01 +0000, Seymour J Metz <[email protected]> wrote: > >>The same manual shows the length in the RLD as being 2, 3 or 4 bytes. >> >>-- >>Shmuel (Seymour J.) Metz >>http://mason.gmu.edu/~smetz3 >>עַם יִשְׂרָאֵל חַי >>נֵ֣צַח יִשְׂרָאֵ֔ל לֹ֥א יְשַׁקֵּ֖ר >> >> >> >> >>________________________________________ >>From: IBM Mainframe Discussion List <[email protected]> on behalf of >>Paul Edwards <[email protected]> >>Sent: Friday, August 15, 2025 10:49 AM >>To: [email protected] <[email protected]> >>Subject: Re: Running a program RMODE64 >> >> >>External Message: Use Caution >> >> >>On Fri, 15 Aug 2025313:50:49 +0000, Seymour J Metz <[email protected]> wrote: >> >>>The legacy formats don't support any of the new stuff; you need GOFF and >>>program objects. >> >>Sorry - I made two mistakes: >> >>1. OMF is for the PC. I'm not sure what the legacy mainframe >>format is called. >> >>2. I don't care too much about object code, it is the load module >>format that I care about. >> >>I'm not sure if your comment is mea t to mean that the old >>load module format (not object format) also doesn't support >>the new stuff, ie RMODE 64, but it (RMODE 64) is mentioned >>on page 190 here: >> >>https://www.ibm.com/docs/en/SSLTBW_3.1.0/pdf/ieab200_v3r1.pdf >> >>which is the normal (legacy) load module format. >> >>And ttat's what I'm interested in. >> >>What's missing is VD references. It's likely me that's missing >>something. It seems impossible to have RMODE 64 support >>in one place, and genuinely not supporting VD references. >> >>BFN. Paul. >> >> >> >> >>>________________________________________ >>>From: IBM Mainframe Discussion List <[email protected]> on behalf of >>>Paul Edwards <[email protected]> >>>Sent: Friday, August 15, 2025 9:08 AM >>>To: [email protected] <[email protected]> >>>Subject: Re: Running a program RMODE64 >>> >>> >>>External Message: Use Caution >>> >>> >>> n Fri, 15 Aug 2025 12:19:59 +0000, Seymour J Metz <[email protected]> wrote: >>> >>>>Read the GOFF documentation. >>> >>>Are you saying OMF doesn't support VD references? >>> >>>Note that I don't need long external names, so I don't >>>need GOFF for that. But if VD is only supported for >>>GOFF, that might be an explanation as for why I didn't >>>see it in the manual. >>> >>>I had previously assumed it was there, but I was just >>>failing to find it. There are references to the CSECT >>>being RMODE 64, so some level of 64-bit has >>>presumably been added to OMF. >>> >>>BFN. Paul. >>> >>> >>> >>> >>>>________________________________________ >>>>From: IBMaMainframe Discussion List <[email protected]> on behalf of >>>>Paul Edwards <[email protected]> >>>>Sent: Thursday, August 14, 2025 11:38 PM >>>>To: [email protected] <[email protected]> >>>>Subject: Re: Running a program RMODE64 >>>> >>>> >>>>External Message: Use Caution >>>> >>>> >>>>On Thu, 14 Aug 2025 20:26:14 -0400, Joseph Reichman <[email protected]> >>>>wrote: >>>> >>>>Hi Jopeph. >>>> >>>>I am interested in RMODE 64 on z/OS too. And have >>>>some questions too. >>>> >>>> >>>>Page 196 shows that RMODE 64 exists as a concept: >>>> >>>>https://publib.boulder.ibm.com/epubs/pdf/iea2b2b1.pdf >>>> >>>>On page 199 I can see V() references in the RLD. >>>> >>>>Where are VD() references documented? >>>> >>>> >>>> >>>> >>>>> It seems you can run a program that is rmode64 >>>>> With synchx linkx and attachx >>>> >>>>Does this mean thatoyou can't go EXEC PGM= >>>>and have the program potentially go above 4 GiB? >>>> >>>> >>>>Page 291 shows that AMODE=64 existsb but not RMODE=64 >>>>But perhaps if the RMODE is ANY, z/OS can further check >>>>the internals of the load module and decide to locate >>>>it above 4 GiB? >>>> >>>> >>>>I don't have direct access to z/OS. Would someone be >>>>able to assemble this (it may need corrections) and >>>>give me the object code for ONE and TWO, plus the >>>>resulting load module unloaded with IEBCOPY and >>>>transferred with ftp binary with locsite rdw >>>> >>>>Thanks. Paul. >>>> >>>> >>>> >>>>//PDPMVS JOB CLASS=C,REGION=0K,TIME=1440 >>>>//* >>>>//PDPASM PROC LIST='NOLIST' >>>>//ASM EXEC PGM=ASMA90, >>>>// PARM='DECK,&LIST,TERM' >>>>//SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR,DCB=BLKSIZE=32720 >>>>// DD DSN=&&amp;amp;amp;amp;MACLIB,DISP=(OLD,PASS) >>>>// DD DSN=SYS1.MODGEN,DISP=SHR >>>>//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) >>>>//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) >>>>//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(20,10)) >>>>//SYSTERM DD SYSOUT=* >>>>//SYSPRINT DD SYSOUT=* >>>>//SYSLIN DD DUMMY >>>>//SYSGO DD DUMMY >>>>//SYSPUNCH DD >>>>DSN=&&amp;amp;amp;amp;OBJSET,UNIT=SYSALLDA,SPACE=(80,(9000,9000)), >>>>// DISP=(MOD,PASS) >>>>//* >>>>// PEND >>>>//CREATE EXEC PGM=IEFBR14 >>>>//DD13 DD DSN=&&amp;amp;amp;amp;LOADLIB,DISP=(,PASS), >>>>// DCB=(RECFM=U,LRECL=0,BLKSIZE=6144), >>>>// SPACE=(CYL,(10,10,20)),UNIT=SYSALLDA >>>>//DD14 DD DSN=&&amp;amp;amp;amp;MACLIB,DISP=(,PASS), >>>>// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160), >>>>// SPACE=(CYL,(10,10,20)),UNIT=SYSALLDA >>>>//* >>>>//ONE EXEC PDPASM,LIST='LIST' >>>>//SYSIN DD * >>>>*********************************************************************** >>>>* * >>>>* This program written by Paul Edwards. * >>>>* Released to the public domain * >>>>* * >>>>*********************************************************************** >>>>*********************************************************************** >>>>* * >>>>* ONE - call TWO to set R15 * >>>>* * >>>>*********************************************************************** >>>>* >>>> PRINT GEN >>>>* YREGS was not part of the SYS1.MACLIB shipped with MVS 3.8j >>>>* so may not be available, so do our own defines instead. >>>>* YREGS >>>>R0 EQU 0 >>>>R1 EQU 1 >>>>R2 EQU 2 >>>>R3 EQU 3 >>>>R4 EQU 4 >>>>R5 EQU 5 >>>>R6 EQU 6 >>>>R7 EQU 7 >>>>R8 EQU 8 >>>>R9 EQU 9 >>>>R10 EQU 10 >>>>R11 EQU 11 >>>>R12 EQU 12 >>>>R13 EQU 13 >>>>R14 EQU 14 >>>>R15 EQU 15 >>>>SUBPOOL EQU 0 >>>> CSECT >>>>* >>>> ENTRY ONE >>>>ONE DS 0H >>>> SAVE (14,12),,ONE >>>> LR R10,R15 >>>> USING ONE,R10 >>>> LR R9,R13 >>>> LA R13,SAVEAREA >>>> LG R15,=VD(TWO) >>>> LGR R0,R14 >>>> BALR R14,R15 >>>> LGR R14,R0 >>>> LR R13,R9 >>>>* LA R15,0 >>>> RETURN (14,12),RC=(15) >>>>SAVEAREA DS 19F >>>> END >>>>/* >>>>//TWO EXEC PDPASM,LIST='LIST' >>>>//SYSIN DD * >>>>*********************************************************************** >>>>* * >>>>* This program written by Paul Edwards. * >>>>* Released to the public domain * >>>>* * >>>>*********************************************************************** >>>>*********************************************************************** >>>>* * >>>>* return 5 in R15 * >>>>* * >>>>*********************************************************************** >>>>* >>>> PRINT GEN >>>>* YREGS was not part of the SYS1.MACLIB shipped with MVS 3.8j >>>>* so may not be available, so do our own defines instead. >>>>* YREGS >>>>R0 EQU 0 >>>>R1 EQU 1 >>>>R2 EQU 2 >>>>R3 EQU 3 >>>>R4 EQU 4 >>>>R5 EQU 5 >>>>R6 EQU 6 >>>>R7 EQU 7 >>>>R8 EQU 8 >>>>R9 EQU 9 >>>>R10 EQU 10 >>>>R11 EQU 11 >>>>R12 EQU 12 >>>>R13 EQU 13 >>>>R14 EQU 14 >>>>R15 EQU 15 >>>>SUBPOOL EQU 0 >>>> CSECT >>>>* >>>> ENTRY TWO >>>>TWO DS 0H >>>> LA R15,5 >>>> BR R14 >>>> END >>>>/* >>>>//* >>>>//LKED EXEC PGM=IEWL,PARM='MAP,LIST,AMODE=64,RMODE=ANY' >>>>//SYSLIN DD DSN=&&amp;amp;amp;amp;OBJSET,DISP=(OLD,DELETE) >>>>//*SYSLIB not needed >>>>//SYSLMOD DD DSN=&&amp;amp;amp;amp;LOADLIB(PDPTEST),DISP=(OLD,PASS) >>>>//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(2,1)) >>>>//SYSPRINT DD SYSOUT=* >>>>//SYSABEND DD SYSOUT=* >>>>//SYSIN DD * >>>>/* >>>>//* >>>>//PDPTEST EXEC PGM=PDPTEST,PARM='', >>>>// COND=(4,LT,LKED) >>>>//STEPLIB DD DSN=&&amp;amp;amp;amp;LOADLIB,DISP=(OLD,PASS) >>>>//SYSPRINT DD SYSOUT=* >>>>//SYSTERM DD SYSOUT=* >>>>//SYSABEND DD SYSOUT=* >>>>//SYSIN DD DUMMY >>>>//* >>>>// >>>> >>>>---------------------------------------------------------------------- >>>>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 >>> >>>---------------------------------------------------------------------- >>>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 >> >>---------------------------------------------------------------------- >>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 > >---------------------------------------------------------------------- >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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
