S0C4 RC4 is protection key violation. How are you allocating the save area?
As others have noted, you should only use BASSM for routines that are coded to expect it, and should ensure that bit 0 of R15 is correct. If, as expected, DSNTIAR returns with a BR R14, you will get control back in AMODE(24), which is not what you want. -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of Ward Able, Grant <gwarda...@dtcc.com> Sent: Friday, April 13, 2018 11:42 AM To: IBM-MAIN@listserv.ua.edu Subject: Re: Assembler calling DSNTAIR Thanks for the response Shmuel. COMPLETION CODE SYSTEM = 0C4 REASON CODE = 00000004 I am usually a CICS programmer, so batch abends are slightly foreign to me. My own program's savearea is addressed by R13. What format? Heck I don't know! The DSECT starts with DS 18F, if that helps. DSNTIAR is linked into my loadmod. It seems as if I need a serious batch dump debugging refresher! Regards - Grant. In theory, there's no difference between theory and practice. In practice, there is. There is no such thing as the Cloud. It is just somebody else's computer. If you don't have time to do it right, when will you have the time to do it over? - John Wooden DTCC Internal (Green) -----Original Message----- From: IBM Mainframe Discussion List [mailto:IBM-MAIN@LISTSERV.UA.EDU] On Behalf Of Seymour J Metz Sent: 13 April 2018 16:23 To: IBM-MAIN@LISTSERV.UA.EDU Subject: Re: Assembler calling DSNTAIR ATTENTION! This email originated outside of DTCC; exercise caution. What format save area does R13 point to? Is DSNTIAR linked with you or are you doing a LOAD? What is the reason code for the 0C4 (I hate the overloading!)? Have you looked at the failing code? -- Shmuel (Seymour J.) Metz http://mason.gmu.edu/~smetz3 ________________________________________ From: IBM Mainframe Discussion List <IBM-MAIN@listserv.ua.edu> on behalf of Ward Able, Grant <gwarda...@dtcc.com> Sent: Friday, April 13, 2018 10:24 AM To: IBM-MAIN@listserv.ua.edu Subject: Assembler calling DSNTAIR I have an Assembler program linked AMODE(31) RMODE(24). It makes SQL calls and under some circumstances I will call DSNTIAR to printout the DB2 error & diagnostic info. The call statement I am using for this is: CALL DSNTIAR,(SQLCA,(6),LRECL),LINKINST=BASSM,MF=(E,PARM) Yet I am getting an S0C4 abend in DSNTIAR. I thought that using LINKINST=BASSM would have resolved this for me. Any hints or clues about this? Regards - Grant. In theory, there's no difference between theory and practice. In practice, there is. There is no such thing as the Cloud. It is just somebody else's computer. If you don't have time to do it right, when will you have the time to do it over? - John Wooden DTCC Internal (Green) DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN DTCC DISCLAIMER: This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify us immediately and delete the email and any attachments from your system. The recipient should check this email and any attachments for the presence of viruses. The company accepts no liability for any damage caused by any virus transmitted by this email. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN