Re: BrainStorming on changes/addtions

[boldt@xxxxxxxxxx]

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


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