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


   year_4p0 = atoi(year_4a);


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" 
                    om>                       cc:
                    Sent by:                  Fax to:
                    midrange-l-admin@mi       Subject:     /free & char to 

                    12/14/2001 01:30 PM
                    Please respond to

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


Alan Novick
Pressman Toy Corporation
New Brunswick, NJ

This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email:
To subscribe, unsubscribe, or change list options,
or email:
Before posting, please take a moment to review the archives

As an Amazon Associate we earn from qualifying purchases.

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2022 by and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.