RE: String to Numeric

[bmorris@xxxxxxxxxx]

>Date: Mon, 7 Feb 2000 12:20:01 -0600
>From: "Anthony C. Paul" <anthony.paul@rcmt.com>
>
>d  input_field    s             10
>d  fld_variable   s             10a   varying
>d  numeric_fld    s             10  0
> *
> ...
>c     ' '           CHECKR(E) input_field   Num               2 0
>c                   eval      %len(fld_variable) = Num
>c     Num           SUBST     input_field:1 fld_variable
>c                   move(p)   fld_variable  numeric_fld
> *
>c                   seton                                        lr

Letting the compiler do the variable-length work, you get:
c                   eval      fld_variable = %trim(input_field)
c                   move(p)   fld_variable  numeric_fld

Barbara Morris


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