SHOWMVS uses a technique that doesn't require jump support, see the P$BEGIN macro. It will increase the overall CSECT size but might be a decent alternative to an extensive rewrite.
I did a backport to MVS38j which includes an assembler listing (showmvs.list) made with the Dignus assembler due to the code needing more than just ASMF. I don't believe Dignus offers the hobbyist license I used anymore, bu more modern assemblers than ASMF should be fine. I don't recall trying ASMG, something even more modern may be needed.
There's also a STRING.MAC that sounds a bit like #MSG.
Hope that helps. Jim
toggle quoted message
Show quoted text
On 1/20/25 2:18 AM, Andrew via groups.io wrote:
I believe I know where/why it's going wrong with anything greater than 3390-27. In my test with a 3390-54, the size of the L1TAB needed for 982800 tracks is 30720. Adding the 1024 bytes for the header gives 31744 bytes. CCKDDU64 does not seem to deal with this, when this first record is greater the the lrecl/blksize of 16384, and it looks like the rewrite table gets corrupted.
I did use #MSG to assist in debugging, but could not use too many of them as? it caused base register addressability to fail due to the increase in csect length.
Now looking at how to correct this........
Andrew
