Then you should submit an RCF. That is incorrect.
If fact, I cannot think of any AMODE/RMODE combination which it would be valid
as it returns via BR 14.
Well..... if your program is 24/24 and you load it above the line, and you
wish this convoluted code.....
L 15,ep
CALL (15),....,LINKINST=BASSM
SAM24 ,
but never a need when it is linked in.
On Mon, 16 Apr 2018 08:12:57 +0000 "Ward Able, Grant" <[email protected]>
wrote:
:>Just a quick note to all who have so kindly responded. I am going to be out
of the office for this week and will look at these responses in more detail
when I get back.
:>
:>I used LINKINST, as this was mentioned in the DB2 KC as my program is
AMODE(31) RMODE(24).
:>
:>Regards Grant
:>
:>
:>
:>DTCC Internal (Green)
:>
:>-----Original Message-----
:>From: IBM Mainframe Discussion List [mailto:[email protected]] On
Behalf Of John Gateley
:>Sent: 15 April 2018 21:10
:>To: [email protected]
:>Subject: Re: Assembler calling DSNTAIR
:>
:>ATTENTION! This email originated outside of DTCC; exercise caution.
:>
:>
:>I use this code to get the error message from DSNTIAR
:>
:>CALL_PARM DS 0F
:>PARM_1 DC A(SQLCA)
:>PARM_2 DC A(MSGLEN)
:>PARM_3 DC A(MSGSIZE)
:>
:>MSGSIZE DC F'72' LENGTH OF EACH LINE
:>MSGAREA DS H,CL(20*72)
:> ORG MSGAREA
:>MSGLEN DC AL2(20*72) 20 lines of 72 bytes
:>MSG_TEXT DS CL72
:> ORG
:>
:> LA R1,CALL_PARM
:> L R15,=V(DSNTIAR) DSNTIAR EXPANDS THE ERROR
:> BASR R14,R15
:>
:> LA R4,MSG_TEXT POINT TO FIRST 72 BYTE LINE
:> LA R5,20 20 LINES
:>LOOP EQU *
:> output 72 bytes to wherever (check >= blanks)
:> LA R4,72(,R4)
:> BCT R5,LOOP
:>
:>Warning - there could be typos in the above.
:>You could also check R15 after the call and output a message if not 0. The
routine used to have 8 lines but in V8 or V9 of DB2 we got RC=4 because the
message did not fit. As a result we changed to 20 lines.
:>
:>Hope it helps.
:>
:>----------------------------------------------------------------------
:>For IBM-MAIN subscribe / signoff / archive access instructions, send email to
[email protected] 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 [email protected] with the message: INFO IBM-MAIN
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
Should you use the mailblocks package and expect a response from me,
you should preauthorize the dissensoftware.com domain.
I very rarely bother responding to challenge/response systems,
especially those from irresponsible companies.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
