No, but perhaps LGFI, avoiding the literal, would be better. ________________________________________ From: IBM Mainframe Discussion List <[email protected]> on behalf of Clifford McNeill <[email protected]> Sent: Thursday, April 27, 2023 10:12 AM To: [email protected] Subject: Re: Inexplicable 0C4!
should this load L R3,=X'7FFFFFFF' string maximum length be a load address? LA R3,=X'7FFFFFFF' On 4/27/2023 8:52 AM, Binyamin Dissen wrote: > Which flavor of 0C4? > > If PIC-10/11, the address is reported. > > On Thu, 27 Apr 2023 19:58:23 +0700 Robin Atwood <[email protected]> wrote: > > :>I have had two of these during the course of two months, so it's getting > :>serious! > :> > :>The abend happens in my implementation of a C strupr() function when the TRE > :>instruction is executed: > :> > :> > :> > :> L R3,=X'7FFFFFFF' string maximum length > :> > :> XR R0,R0 zero terminator byte > :> > :> LA R1,UPRX translate table > :> > :>TST TRE R2,R1 fold string > :> > :> BC 1,TST resume translation > :> > :> > :> > :> R0 R1 R2 R3 > :>PSW > :> > :>00000000 0009C5EC 1AA748F8 7FFFFFFF 078D04008009BD14 > :> > :> > :> > :>The memory pointed to by R1 and R2 is addressable and in Sp0, key 8, so bog > :>standard. I know R3 > :> > :>looks dodgy, but that is because the string to be upper-cased must be zero > :>byte terminated. > :> > :>R2 points at X'D4C6C9E3E2E3404000', so the format is correct. Given all > :>this, why has the instruction caused an > :> > :>abend? The code lives in a server that is running all day, every day. I > :>wondered if the target data had been > :> > :>released by another task, but VSMDATA showed a DQE for the data's page and > :>no FQE for the data itself, > :> > :>so the data should still be available (as I understand it). Notice R3 hasn't > :>changed, so the abend happened > :> > :>on the very first byte. > :> > :> > :> > :>Any suggestions gratefully received! > :> > :>Robin > :> > :> > :> > :> > :> > :> > :> > :> > :>---------------------------------------------------------------------- > :>For IBM-MAIN subscribe / signoff / archive access instructions, > :>send email to [email protected] with the message: INFO IBM-MAIN > > -- > Binyamin Dissen <[email protected]> > http://secure-web.cisco.com/14Z0n8HNM1J6A-lr5C6rpokRsSjYebS7TqRLaP2ymVFrOiaHNSa2hlqBFcvHHl0VbDIeh-aNPygmcDzT42x3jngWi7SaEh8HwDibZMtskCdbeJKXq7zoO4pQRGI88_ak-1oHMtvqgLSsg4gaysP9wCKEDGB2_kMrPMymBvbM3yEJvOzLCTBmyxmvBvseZlvGl20q2lZhFiEjrY_sTHlNANYCSC3O3lVSF3-_mlcXt1AyU8fj8AbTsB5RQTVlBjNdZvgB6UUBtAWXZvxDSvj3oMi695E4Luheoux66PYUau56cB07N96lPg0c42XayBMYyiG8qQedBXxiUpQ3xJvQmswCFcKkrdU7-k8L1eJOFvxf1xw7WEY4dUYszOI2lxFjLJ2EdO_QlyKUlpvBLDNrYAygarAo6Ylx8wYg2OUWmngw/http%3A%2F%2Fwww.dissensoftware.com > > Director, Dissen Software, Bar & Grill - Israel > > ---------------------------------------------------------------------- > 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
