RE: api example please

[<cozzi2@xxxxxxx>]

In some cases, you can ignore the errcode parameter by setting the first 8 
bytes to hex zeros. If the API "requires" the errcode, then you have to pass it 
correctly.

There are two 4-byte binary fields. In RPG III, that would be 

IAPIERR    DS
I                       1   4 B 0 BytAvl
I                        5  8 B 0 BytRtn
I                        9  15     MsgID


Usually you set the BYTAVL to the length of the data structure being passed 
(the length of APIERR).
You should also set BYTRTN to zero.


Bob Cozzi


> -----Original Message-----
> From: mcsnet!midrange.com!midrange-l-owner@Mcs.Net
> [SMTP:mcsnet!midrange.com!midrange-l-owner@Mcs.Net]On Behalf Of Goins,
> Kirk : CO IR
> Sent: Monday, November 24, 1997 7:01 PM
> To: 'midrange-l@midrange.com'
> Subject: api example please
> 
> 
> 
> I'm trying to use the API QWCRSSTS and can't get to far.
> When I call the API I get an error referring to the last parm passed which 
> is the errorcode parm. I wouldn't pass it(at least for testing) since it's 
> giving me probs but for this API it's required.
> Can someone place an example of using this API here on the list? Nothing 
> fancy. I don't think this API will work from CL so RPG would be greatly 
> appreciated.
> 
> 
> Kirk Goins - Systems Administrator
> Legacy Health Systems
> Portland, OR
> 503-415-5356
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
>

winmail.dat