RE: Getting the serial number

[Colin Williams <Williamsc@xxxxxxxxxxxxxxxxx>]

Why?

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