RE: Getting the serial number

["Simon Coulter" <shc@xxxxxxxxxxxxxxxxx>]

Hello Colin,

Because you are allocating 1 byte of storage for the RcvVar but you must be 
telling the API to 
fill much more otherwise you would only get one byte returned.

The API gets a pointer (address) to a single byte and fills the following nnn 
bytes.  Ooops!

This technique would work if the API allocated the storage.

Regards,
Simon Coulter.

«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
«» FlyByNight Software         AS/400 Technical Specialists       «»
«» Eclipse the competition - run your business on an IBM AS/400.  «»
«»                                                                «»
«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
«»                                                                «»
«» Windoze should not be open at Warp speed.                      «»
«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
//--- forwarded letter -------------------------------------------------------
> X-Mailer: Internet Mail Service (5.0.1459.74)
> Date: Fri, 05 Nov 1999 08:59:45 +0000
> From: "Colin Williams" <Williamsc@technocrats.co.uk>
> To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> Reply-To: RPG400-L@midrange.com
> Subject: RE: Getting the serial number

> 
> Rhy?
> 
> >-----Original Message-----
> >From: Simon Coulter [mailto:shc@flybynight.com.au]
> >Sent: Thursday, November 04, 1999 11:35 AM
> >To: RPG400-L@midrange.com
> >Subject: RE: Getting the serial number
> >
> >
> >M
> >Hello Colin,
> >
> >That's a really good way to shoot yourself in the foot!
> >
> >Regards,
> >Simon Coulter.
> >
> >«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> >«» FlyByNight Software         AS/400 Technical Specialists       «»
> >«» Eclipse the competition - run your business on an IBM AS/400.  «»
> >«»                                                                «»
> >«» Phone: +61 3 9419 0175      Mobile: +61 0411 091 400           «»
> >«» Fax:   +61 3 9419 0175      mailto: shc@flybynight.com.au      «»
> >«»                                                                «»
> >«» Windoze should not be open at Warp speed.                      «»
> >«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»«»
> >//--- forwarded letter 
> >-------------------------------------------------------
> >> X-Mailer: Internet Mail Service (5.0.1459.74)
> >> Date: Wed, 03 Nov 1999 09:05:52 +0000
> >> From: "Colin Williams" <Williamsc@technocrats.co.uk>
> >> To: "'RPG400-L@midrange.com'" <RPG400-L@midrange.com>
> >> Reply-To: RPG400-L@midrange.com
> >> Subject: RE: Getting the serial number
> >
> >> 
> >> The way I usually do this is to create a 1 char field for 
> >any field that
> >> is defined as char(*), and set up a field to point to the 
> >data once the
> >> API has been called.
> >> 
> >> eg. 
> >> 
> >> DSRcv      1A
> >> 
> >> DSData  32767A             Based(Ptr1)
> >> 
> >> CALL QWCRSVAL using DSRcv as the parameter for receiver variable
> >> 
> >> after the call
> >> 
> >> EVAL Ptr1=%addr(DSRcv), and DSData will contain the data 
> >returned from
> >> the API.

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---