Re: /free & char to numeric

[rob@xxxxxxxxx]

This was just answered today on the RPG400 list:

1)  One method, if you are absolutely sure that the parameter coming in is
numeric you can define the parameter as zoned and the same size and you
shouldn't have a problem.

Otherwise, I've copied the email below:



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

Rob Berendt

==================
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin



                    "Alan Novick"
                    <mida@pressmantoy.c       To:     "MidRange-L" 
<MidRange-L@MidRange.Com>
                    om>                       cc:
                    Sent by:                  Fax to:
                    midrange-l-admin@mi       Subject:     /free & char to 
numeric
                    drange.com


                    12/14/2001 01:30 PM
                    Please respond to
                    midrange-l






Is there a way to move from character to numeric in the new /free format?

Thanks,

Alan Novick
Pressman Toy Corporation
New Brunswick, NJ

_______________________________________________
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
or email: MIDRANGE-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.