Re: Variable Numeric return from procedure

John:

Do you want a rpg or cl to do this convertion?  This goes back to the wish I
made about a Value function.  Enclosed is the suggestion that I recieved.

Eurrat wrote:
>As long as we are compiling a wish list, I would like to see some sort of
%value function as in basic.  I have >had call to design a screen field as
char for input accepting only numerics; then right justify, fill with zeros
>and move it to a numeric variable to be used in the program's calcs.  I
could not find such a function.  The >others seem to convert numeric to
numeric.  BASIC, what I recall, was a value function that returns the value
>of a char variable. It would save a couple of lines of code.  (I am able to
right justify and zero fill the char field >using eval and subst then move
it to a numeric field).   Soooo....   Star light, Star bright, First Star I
see
>tonight, ....

You already have that capability, in a way.  Try out the following RPG
program:
     H dftactgrp(*no) bnddir('QC2LE')
     D atol            pr            10i 0 extproc('atol')
     D                                 *   value options(*string)
     D num             s             10i 0
     C                   eval      num = atol('1234')
     C     num           dsply
     C                   eval      *inlr = *on
The trick here is that function "atol" is part of the C run-time library,
which is shipped on every AS/400.  So basically, consider every routine
defined in the C run-time as available to you! (Yeah, I know.  You'd rather
have a built-in function for this.)

Cheers!  Hans.
Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com

-----Original Message-----
From: JFinney@omnia.co.za <JFinney@omnia.co.za>
To: RPG400-L@midrange.com <RPG400-L@midrange.com>
Date: Tuesday, August 31, 1999 4:03 AM
Subject: Re: Variable Numeric return from procedure


>Hi Again
>
>While it made perfect sense at the time, upon reading my original question
>this morning, it seems vague to say the least ! Allow me to elaborate.
>
>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 ?
>
>Hope this was a little more explanatory than the original encrypted
>version.
>
>Regards
>John.
>
>
>
>
>
>
>JFinney@omnia.co.za on 30/08/99 14:47:14
>
>Please respond to RPG400-L@midrange.com
>
>To:   RPG400-L@midrange.com
>cc:    (bcc: John Finney/ITS/Omnia Group)
>
>Subject:  Variable Numeric return from procedure
>
>
>
>
>Hi All
>
>Is there a way I can code a generic-type procedure to receive a 30 char
>field &, based on a 2nd parm, return a numeric of length (parm 2) ?
>
>Regards
>John.
>
>
>+---
>| 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
>+---

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