RE: Variable Numeric return from procedure

[Buck Calabro <mcalabro@xxxxxxxxxxxx>]

I think that Booth posted a program fragment that will do most of this.  Go
to http://archive.midrange.com/midrange-l-archive/ and search for
"right-adjusted".

Buck Calabro
Aptis; Albany, NY
mailto:Buck.Calabro@aptissoftware.com

> -----Original Message-----
> From: JFinney@Omnia.co.za 
> Sent: Tuesday, August 31, 1999 3:30 AM
> To:   RPG400-L@midrange.com
> Subject:      Re: Variable Numeric return from procedure
> 
> I have a series of programs reading uploaded files (from NT Server using
> SQL7). The recfmt's of the files differ from 90 -> 150 chars/record. Now
> there are a lot of "left-justified-and-filled-with-blanks" areas of the
> recfmt which are to be moved to numerics (which vary from 8.0 to 15.5).
> The idea I have is to perhaps use an expression, where I invoke a
> procedure
> which receives a CHAR 30 but (perhaps based on a parameter) returns the
> numeric type needed (e.g. 11.3). Is it somehow possible to do this and, if
> so, how ?
> 
+---
| 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
+---