RE: Getting the serial number

[Colin Williams <Williamsc@xxxxxxxxxxxxxxxxx>]

I have done it this way many times and never had any problems! It always
works!

>-----Original Message-----
>From: Simon Coulter [mailto:shc@flybynight.com.au]
>Sent: Friday, November 05, 1999 12:44 PM
>To: RPG400-L@midrange.com
>Subject: RE: Getting the serial number
>
>
>
>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
>+---
>
+---
| 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
+---