First of all, I don't see where RB is set - but that should only affect the ARs from you snippet.
How are you determining the address to display? Have you tried GTF + SLIP SA? On Sat, 16 Mar 2013 09:58:50 +0100 jan de decker <[email protected]> wrote: :>Hi, :> :>Thanks for yout help, :> :>below some more information: :> :> :>I am really baffled by the situation. Never seen it in my 25+ years as a :>zOS systems programmer. :> :>I am stck, what can happen to a parameter list between the BASR and the :>called program. :> :> :>Any help would be greatly appreciated. :> :>Best regards, :> :> :>jan :> :> :>zOS is 1.10 :> :>Both programs involed are assembler batch, no LE. :> :>Both are APF :> :>YEMI0070 is the calling program, linked into YEMI000 AMODE 31 RMODE 24 :>YEXC0000 is the called program AMODE 31, RMODE ANY, reentrant, reusable :> :>Top of the layout of the parameter ist :> :>YEIOWTOD_START DS 0F :>YEIOWTOD_ID DS CL8 EYECATCHER :>YEIOWTOD_CSECT DS CL8 CSECT NAME CALLER :>YEIOWTOD_CVTX DS F -> YECVTX :>YEIOWTOD_ALET_MSG DS F ALET MESSAGE DATASPACE :>YEIOWTOD_ALET_OUT DS F ALET I/O OR WTO DATASPACE :> :>All correct :> :>Just before jumping into yexc0000 I dumped by inserting :> :>LR R1,R9 R1 -> PARAMETER LIST :>LR R2,R1 :>LA R4,YEIOWTOD_ALET_MSG :>LR R6,RF :> :>ABEND 555,DUMP :> :>just before the BASR RE,RF :> :>Result: :> :>R2 -> E8C5C9D6 E6E3D6C4 E8C5D4C9 F0F0F7F0 YEIOWTOD YEMI0070 :> 01ED6330 -> YECVTX :> 01010039 0101003C alets :> :>All OK :> :>I removed the dump statements out of the macro and now I dumped at the :>start of YEXC0000 :> :>YEXC0000 CSECT :>YEXC0000 AMODE 31 :>YEXC0000 RMODE ANY :> PRINT GEN :> BAKR RE,0 :> SAM31 . :> LA RC,4095(RB) :> LA RC,1(RC) :> USING YEXC0000,RB,RC :> EYECATCH eyecather macro :> EREG R0,R1 RESTORE REGISTERS :> EREG RE,RF AFTER WTO :> LR RA,R1 RA -> PARAMETER LIST :> USING YEIOWTOD,RA RA ADDRESSES THE PARAME :> AR#MODE :> SAC 512 SWITCH TO ACCESS REGIST :> LAM AR0,ARF,=16F'0' ALL ACCESS REGISTERS TO :> LAM AR2,AR2,YEIOWTOD_ALET_MSG R2 ADDRESSES MESSAGE :> ABEND 777,DUMP :> :>Result: :> :> :>RA -> E8C5C9D6 E6E3D6C4 E8C5D4C9 F0F0F7F0 YEIOWTOD YEMI0070 OK :> 01ED3030 wrong :> 0B000001 1228C000 wrong :> :> :> :> :> :>On Fri, Mar 15, 2013 at 3:02 PM, Lizette Koehler <[email protected]>wrote: :> :>> I would like a little more detail. :>> :>> 1) Can you past the abend and registers? :>> 2) What level of z/OS? :>> 3) I assume all programs are assembler. If not, what are the languages :>> involved? :>> 4) How are all of them linked? Rent, Reuse, etc... :>> 5) Any LE calls involved? Like CEEPIPI or other interfaces? :>> 6) Are you using 31bit or 64bit programming? :>> 7) Pure batch or are there online (IMS, DB2, CICS, etc?) involved? :>> 8) any additional information would be helpful. :>> :>> Thanks :>> :>> Lizette :>> :>> :>> > -----Original Message----- :>> > From: IBM Mainframe Discussion List [mailto:[email protected]] On :>> Behalf :>> > Of jan de decker :>> > Sent: Friday, March 15, 2013 3:57 AM :>> > To: [email protected] :>> > Subject: Parameter list changes between calling and called program :>> > :>> > Hi list, :>> > :>> > I am struggling with a curious phenomenom: :>> > :>> > Program YEMI0070 builds a parameter list for program YEXC0000 using macro :>> > YEIOWTOD. :>> > :>> > The last things YEIOWTOD does is to point register 1 to the parameter :>> list :>> and BALR :>> > into YEXC0000. :>> > :>> > This created ABEND's. :>> > :>> > I dumped just before the BALR and the parameter list was OK. :>> > :>> > I dumped at entry of YEXC0000 and the parameter list was corrupted. :>> > :>> > Any, really any idea would be highly appreciated. :>> > :>> > I will cross-post this to the assembler list. :>> > :>> > Best regards, :>> > :>> > :>> > jan :>> > :>> > ---------------------------------------------------------------------- :>> > 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 -- 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
