On entry R13 is undefined. Also, R2 is pointing at the FRR entry - perfectly fine.
Try a SLIP to debug your FRR. On Wed, 2 Oct 2013 15:47:21 -0500 Donald Likens <[email protected]> wrote: :>I do not understand what I am doing wrong. I setup the following recovery environment: :> :>SETFRR A,FRRAD=FRRA,EUT=YES,MODE=FULLXM,WRKREGS=(R1,R2), :> PARMAD=(R3) :>ST R13,0(R3) :> :>I then caused my program to abend. :> :>When my recovery routine is entered I ABEND with an S0C4 because R2 is not as I expected. The following is the start of my FRR recovery routine: :> :>013723*C START FRR RECOVERY ROUTINE :>013724FRR DS 0H :>013725* ON ENTRY :>013726* R15 ADDRESS OF THIS ROUTINE :>013727* R14 RETURN ADDRESS :>013728* R1 ADDRESS OF SDWA :>013729* R2 ADDRESS OF PARAMETERS :>013730 STM R0,R15,0(R13) :>013731 USING FRR,R15 :>013733 L R3,0(R2) :>013734 USING WKGSTG,R3 :>013735 LR R12,R15 :>013736 DROP R15 :>013737 USING FRR,R12 :> :>I thought perhaps R2 would be the address of the parameter list but the dump does not support that theory. :> :>Here is what I am seeing in the dump: :> :>Generalpurpose register values :> Lefthalves of all registers contain zeros :> 0-3 00FBE6C8 00FBE7F8 00000C20 1940BE28 :> 4-7 7FFFF000 7FFFF000 7FFFF000 7FFFF000 :> 8-11 7FFFF000 7FFFF000 7FFFF000 7FFFF000 :> 12-15 975B0494 00FBE98C 00FE6EAC 975B0494 :> :>00000C20 00140000 01575150 026AF950 026AF950 :> :>00FBE7F8 00000BE0 140C1000 :> :>00000BE0 03452108 :> :>03452000.:03467FFF.--Storage not available :> :>Can anyone share a working SETFRR/UET and the start of the recovery routine. :> :>Thanks :> :> :>---------------------------------------------------------------------- :>For IBM-MAIN subscribe / signoff / archive access instructions, :>send email to [email protected] with the message: INFO IBM-MAIN -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
