Jon That's a good idea
The documentation for the verify exit Is shoddy to say the least I don't know what the registers are entry to the exit. I assume 15 entry point 14 return and that TSO supplies me with 72 word save are pointed to by R13. On return R15 is the return code. Sent from my iPhone > On Oct 15, 2013, at 10:41 PM, Jon Perryman <jperr...@pacbell.net> wrote: > > I don't see where you restore your working storage reg (I see MF= specified > so you must have one). > > I would try supplying a new R13 just in case one of the macro's is overlaying > your saved registers. I suspect this is ok but I've always supplied a valid > savearea. > > If that doesn't fix the problem then you might have a storage overlay causing > the problem. I suggest adding "J PROG_RETURN". If should run fine if inserted > after the STM. Keep moving it until you isolate the instruction that is > causing the problem.. From there, you can see what storage is potentially > being overlaid. > > Jon Perryman. > > > >> ________________________________ >> From: MichealButz <michealb...@optonline.net> >> To: IBM-MAIN@LISTSERV.UA.EDU >> Sent: Tuesday, October 15, 2013 10:46 AM >> Subject: Re: 0C4 reason code 4 TSO command processor returning from verify >> exit >> >> >> I made a break point right after CALLTSSR EP=IKJPARS >> With BR R14 as the first instruction of the exit everything works >> >> Here is the verify exit it's apf authorized program but at this point its >> running in problem state >> >> I put a BR R14 right at the beginning of the exit and it worked ok I also >> checked the values of the registers >> >> On entry and exit and outside of R15 which is 0 they are the same >> >> >> PROGLOOK DS 0H >> STM R14,R12,12(R13) STORE USER REGISTERS >> LR R12,R15 R12 BASE AT THIS POINT >> USING PROGLOOK,R12 ADDRESS EXIT >> USING VEPL,R1 PAramter list >> L R2,VEPLPPE Get PPE Entry >> USING PPE,R2 Address >> L R3,VEPLWRKA Get Work Area Address >> AA USING PROGNAME,R3 Address it >> XR R4,R4 Clear 4 >> LH R4,PPEOPLEN Get Length >> BCTR R4,0 No; >> L R5,PPEOPER Get Operand >> EX R4,MOVE_PROG Get String pointer ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
