Hi Binyamin and Seymour
"Look at the register that you think is pointing to the workarea."
In the following code, the register pointing to SMXP is R10.
I add SMXP_WORKAREA_OFFSET to it to point to the workarea (R9)
R10 = 7F620050 SMXP
R9 = 7F720450 WorkArea
Before to use this workarea, I check if I'm really in SMXP thanks to the
eyecatcher (R7 = X'E2D4E7D7')
LR R10,R1 Parameter list dans R10
USING SMFEXITP,R10
*
L R7,SMXP_EYECATCHER R7 doit contenir 'SMXP'
CL R7,=CL4'SMXP' Verification ?
JNE FIN Non, on sort
*
L R8,SMXP_RECPTR R8 = Pointer to the SMF record
...
LR R9,R10 R9 = Parameter List
A R9,SMXP_WORKAREA_OFFSET R9 = Pointer to the work area
USING WORKAREA,R9
ST R9,WORKADDR
MVC WTOU86D(WTOBUFFL),WTOBUFF RAZ zone WTO
PSW: 07042000 80000000 00000000 0E81F058
Instruction length: 04 Interrupt code: 0011
Failing instruction text: 189A5A90 A00C5090 9000D284
Translation exception address: 00000000_7F720400
General purpose register values
Left halves of all registers contain zeros
0-3 7F620598 00100400 00000000 00000000
4-7 00000010 00000400 04000000 E2D4E7D7
8-11 7F5D6BA8 7F720450 7F620050 7F5D6BA8
12-15 8E81F006 7F61FDF0 8127CC90 8E81F000
189A 60 LR R9,R10
5A90 A00C 0000C 61 A R9,SMXP_WORKAREA_OFFSET
R:9 00000 68 USING WORKAREA,R9
5090 9000 00000 69 ST R9,WORKADDR
70 *
D284 9010 C0E2 00010 000E8 71 MVC WTOZONE(WTORAZL),WTORAZ
Thanks
