|
View previous topic :: View next topic
|
| Author |
Message |
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
FWIW, my RBX was built like this -
| Code: |
IEFZB4D0 ,
S99RBX DSECT
ORG ,
S99RBXEND EQU *
RBXSIZE EQU S99RBXEND-S99RBX
...
ARBX DC 0XL(RBXSIZE)'0',CL6'S99RBX',AL1(S99RBXVR,S99ERMSG,0,0)
DC AL1(S99XINFO,0)
DC A(0),XL4'0',XL4'0'
DC XL(L'ARBX-(*-ARBX))'0' |
I suspect the issue lies in your IEFZB476, though, of course it may be the RBX. MVS Auth Assembler Services Guide doesn't show this, but I was careful to insert the high order bit on in the word that points to the IEFSDF476 data area, your WEMPARMS. |
|
| Back to top |
|
 |
Grant Goodale
New User
Joined: 13 Nov 2010
Posts: 67
Location: Brampton, Ontario, Canada
|
|
|
|
I now have it working and using an S99RBX. My 0C4 was caused by a dumb rookie move. On entry to IEFDB476, I had R1 pointing to EMPARMS rather than the address of EMPARMS. Your comment about setting the high order bit tipped me off to that.
Many thanks for all the help, it is much appreciated. |
|
| Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
| Grant Goodale wrote: |
| ... My 0C4 was caused by a dumb rookie move. ... |
I still make that "dumb rookie move" after 45 years, so don't feel too bad! |
|
| Back to top |
|
|
steve-myers
Active Member
Joined: 30 Nov 2013
Posts: 917
Location: The Universe
|
|
|
|
| steve-myers wrote: |
| I know I tried using it. Not that long ago, in fact. ... I was trying to get more complete messages than "DAIRFAIL" puts out. I think I got the messages, but concluded the messages were hardly better than "DAIRFAIL's" messages and it wasn't worth the hassle of trying to use it. ... |
Actually, working on this thread, I now realize where I went wrong before: you have to provide an S99RBX, which I did not supply in my first attempt. |
|
| Back to top |
|
|
|
|
