On 11/18/2013 12:01 PM, esst...@juno.com wrote:
Tony Harminc wrote
after the BPX1QSN call, since the only defined RETVALs for >BPX1QSN are 0 and -1, yet 
your branch goes to RETVAL_ERROR >in both those cases. Are you perhaps reporting on 
some >leftover stuff in the return and
reason code fields? Those field values are undefined
(generally means not updated) if the routine returns a 0.



Point well taken, I used the BNP imstruction as it was referenced on the 
BPX1QGT service. The sample code in the publications do leave out some details.

Having said that the value in RETVAL contained all X'FFFFFFFF'

Which is, of course, -1.

--

Kind regards,

-Steve Comstock
The Trainer's Friend, Inc.

303-355-2752
http://www.trainersfriend.com

* We are going out of business effective 30 December, 2013

* To purchase a set of our training materials at terrific prices,
  check out our Going Out Of Business Sale:

    http://www.trainersfriend.com/SpecialSale





---------- Original Message ----------
From: Tony Harminc <t...@harminc.net>
To: IBM-MAIN@LISTSERV.UA.EDU
Subject: Re: USS Callable Assembler Services
Date: Mon, 18 Nov 2013 13:35:05 -0500

On 18 November 2013 12:20, esst...@juno.com <esst...@juno.com> wrote:

After I issue BPX1QSN I receive a Return Code of 0079 and a Reason Code of 030A

I'm a little puzzled at your

ICM   R0,B'1111',UMSGVAL    Get Return Value
JNP   RETVAL_ERROR          No

after the BPX1QSN call, since the only defined RETVALs for BPX1QSN are
0 and -1, yet your branch goes to RETVAL_ERROR in both those cases.
Are you perhaps reporting on some leftover stuff in the return and
reason code fields? Those field values are undefined (generally means
not updated) if the routine returns a 0.

Tony H.

----------------------------------------------------------------------
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


----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN

Reply via email to