RE: Converting from scientific to integer/decimal

[Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx>]

Hi Mark,

>   I'm not at the /400 right now, but would this work (assuming atof was
> prototyped properly)?
>
>   IntValue = AtoF( '123456+E4' )

No, the '+' needs to be after the 'E'...  However, '123456E+4' would work.
The + is part of the exponent.

The following works for me:

     H DFTACTGRP(*NO) BNDDIR('QC2LE')

     D atof            pr             8F   extproc('atof')
     D   str                           *   value options(*string)

     d intval          s             10I 0

      /free

           intval = atof('123456+E4');
           *inlr = *on;

      /end-free