What does the macro expansion for POST look like? (You should be able to tell if it is expanding to the correct 64-bit version).
Do you ensure that the SYSSTATE AMODE64 specification is correct in both the mainline code and the timer exit? 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: 12 January 2015 15:52 To: [email protected] Subject: Abend S602-0 when in AMODE 64 Can anyone explain why the following code did not work in AMODE 64 but works in AMODE 31? I received an ABEND S602 R15=0 on the POST. Abend: S602 Explanation: An error occurred during processing of a POST macro instruction. The system issues this abend only in association with cross memory post processing. The hexadecimal return code in register 15 indicates the nature of the error: Code Explanation 00 The target address space control block (ASCB) is incorrect. Per the manual STIMER, WAIT, and POST support AMODE 64. STIMER REAL,STIMERX,DINTVL=WKWAITI XC STIMECB,STIMECB OI WAITLAST,X'80' WAIT 1,ECBLIST=WAITLIST STIMERX DS 0H * TIMER EXPIRED DROP R12 USING *,R15 *C POST STIMECB ç In AMODE 31 POST STIMECB,X'40' <== Abends on an S602 reason code 0 DROP R15 *C RETURN BR R14 WAITLIST DS 0F ASMNSTOP DS A WAITLAST DC A(STIMECB) STIMECB DS F When I added the following before the STIMER it worked: SAM31 SYSSTATE AMODE64=NO ---------------------------------------------------------------------- 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
