Re: Moving char to numeric in free-format RPG

[Seth.D.Shields@xxxxxxxx]

>Am I trying to do something that isn't do-able in free-format RPG?
>
>I have a four character year parameter (being passed from an old PL/I
>program) into my new RPGLE program.  I want to move it to a four numeric
>field for manipulation.  What is the best way to do this?

Try using the C Procedure "atoi".  I don't know C but found it very easy to
use anyway.


H BndDir( 'QC2LE' )

D atoi            pr            10i 0 ExtProc('atoi')
D   atoichar                      *   value  options(*string)

D year_4a         s              4a
D year_4p0          s              4p 0


/free

   year_4p0 = atoi(year_4a);

/end-free



Kind regards,
Seth Shields
Julius Blum Inc.