Re: C functions in RPG

["Colin Williams" <colin.williams@xxxxxxxxxxxx>]

john,

you need a procedure interface in your d-specs eg

Dchartonum        PR            20I 0 extproc('atoll')
D  charValue                      *   value options(*string)

you'll need to set your compile options to the find the function in the
binding directory

DFTACTGRP(*NO) ACTGRP(xxxxxx)
BNDDIR('QC2LE')


then you can use the function in your c-specs

eval      num = chartonum(field);

cheers
Colin.W

----- Original Message ----- 
From: "John Furniss" <JFurniss@xxxxxxxxxxxxxxxxx>
To: <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, May 10, 2004 9:22 PM
Subject: C functions in RPG


> List,
> I'm trying to call C functions for the first time. I get "name or
> indicator is not defined" compile errors with I use the following code:
>
> /free
>   num = atoi(field);
> //end-free
>
> Could it be that I need a certain library in my library list?
> Please excuse the newbie question, but I searched the archives for
> specific code examples and didn't see anything that indicated having to
> specify a certain library.
>             BTW, both 'num' and 'field' are defined, so I can only assume
> the compile can't find the atoi function.
>
> Thank you!
>
> John Furniss
> Allied Machine & Engineering Corp.
> iSeries Application Programmer
> Phone (330) 343-4283 Ext. 8371
> email: jfurniss@xxxxxxxxxxxxxxxxx
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>


This e-mail has been sent by a company of Bertram Group Ltd, whose registered 
office is The Nest, Rosary Road Norwich NR1 1TF. 
This message, and any attachments, are intended solely for the addressee and 
may contain privileged or confidential information.  If you are not the 
intended recipient, any disclosure, copying, distribution or any action taken 
or omitted to be taken in reliance on it, is prohibited and may be unlawful.  
If you believe that you have received this email in error, please contact the 
sender immediately. Opinions, conclusions and statements of intent in this 
e-mail are those of the sender and will not bind a Bertram Group Ltd company 
unless confirmed in writing by a director independently of this message. 
Although we have taken steps to ensure that this email and any attachments are 
free from any virus, we advise that in keeping with good computing practice the 
recipient should ensure they are actually virus free.