It fails when I do the FESTAE.
Code is
FESTAE EXITADR=(R9),RBADDR=(R5),TCBADDR=(R4),PARAM=(R13), +
RECORD=YES,SDWALOC31=YES
Original R4 & R5 from SVC entry.
So if I understand you correctly, you are failing here in the FESTAE
macro code:
+ L 15,RBSEXIT-RBSECT+RBPRFXLN(0,R5) OBTAIN CURRENT
+ RB SCBEXIT VALUE
+ LTR 15,15 IF ZERO - SCB AVAILABLE
+ BZ IHB10036 CONTINUE PROCESSING
+ LA 15,8(0,0) *You get RC=8 here* INDICATE PREVIOUS EXIT
+ IN THIS RB
RBSEXIT is where your FESTAE routine's address would have been saved.
But the field is not empty, which suggests that there is already a
FESTAE in place, and you can't have multiple FESTAEs for the RB.
It might be a good idea to investigate what the pre-existing FESTAE
routine is.
--
Regards, Gord Tomlin
Action Software International
(a division of Mazda Computer Corporation)
Tel: (905) 470-7113, Fax: (905) 470-6507
Support: https://actionsoftware.com/support/
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
