Most likely cause is that your are trying to ADD a 31-bit module by EPA and the high order bit (x'80') is not ON in the field specified on the CSVDYNEX MODADDR keyword.
Rob Scott Lead Developer Rocket Software 77 Fourth Avenue . Suite 100 . Waltham . MA 02451-1468 . USA Tel: +1.781.684.2305 Email: [email protected] Web: www.rocketsoftware.com -----Original Message----- From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf Of Donald Likens Sent: 26 November 2014 08:06 To: [email protected] Subject: AMODE Problem with CSVDYNEX I use CSVDYNEX to dynamically load an IEFU83 exit defined as AMODE31 (use system definition). I have been working to move information above the 64 bit bar and now have a problem I do not understand. As far as I can tell the last SAM instruction issued is SAM31 (Set Amode to 31) before issuing the CSVDYNEX ADD macro. I believe this is confirmed by the following PSW at abend after the failure: Abend after add failure: PSW at time of error: 07041000 80000000 00000000 0008399A (bit 31 is 0 and bit 32 is 1 indicating amode 31) From PDSE… Attribute of the exit: PDS120I PROGRAM RESIDENCE MODE IS ANY -- ADDRESSING MODE IS 31 I do not define the exit (use system definition) but it has not changed. So why is CSVDYNEX giving me the following return code-reason: RC=00000008-00000827 From the manual: 0827 CSVDYNEXRSNBADAMODE Meaning: Program error. For an ADD, MODIFY, or REPLACE request: one of the following occurred: v An exit routine with AMODE=31 is being added to an exit that requires that its exit routines have AMODE=24. v An exit routine with AMODE=24 is being added to an exit that requires that its exit routines have AMODE=31. Action: Make sure the AMODE attributes of the exit routine to be added conform to the exit definition. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN ================================ Rocket Software, Inc. and subsidiaries ■ 77 Fourth Avenue, Waltham MA 02451 ■ +1 800.966.3270 ■ +1 781.577.4321 Unsubscribe From Commercial Email – [email protected] Manage Your Subscription Preferences - http://info.rocketsoftware.com/GlobalSubscriptionManagementEmailFooter_SubscriptionCenter.html Privacy Policy - http://www.rocketsoftware.com/company/legal/privacy-policy ================================ This communication and any attachments may contain confidential information of Rocket Software, Inc. All unauthorized use, disclosure or distribution is prohibited. If you are not the intended recipient, please notify Rocket Software immediately and destroy all copies of this communication. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
