RE: Creating a Function in RPG ?

["Mark Walter" <mwalter@xxxxxxxxxxx>]

Sounds like you're trying to create a program. You need to create this
as a module, then make a service program from it, or bind it to another
module to create a program. You could create this as a program by
specifying EXTPGM('MYPGM') on your prototype, but when the program was
executed, the only instruction it would execute is turning *inlr *on. 

Mark Walter
Senior Programmer/Analyst
Hainey Business Systems
(717) 718-9601 x7148
mwalter@xxxxxxxxxxx
http://www.hbs-inc.com
 
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Luqman
Sent: Monday, September 12, 2005 4:07 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Creating a Function in RPG ?

I have copied following code from Internet, but unable to compile.
The error is:
 Keyword EXTPGM must be specified when DFTACTGRP(*YES) is
 specified on the CRTBNDRPG command.

The Code is:

0001.00  * Prototype for procedure FUNCTION
0002.00 D FUNCTION        PR            10I 0
0003.00 D    TERM1                       5I 0 VALUE
0004.00 D    TERM2                       5I 0 VALUE
0005.00 D    TERM3                       5I 0 VALUE
0006.00 C                   EVAL      *INLR = *ON
0007.00 P Function        B
0008.00  *-------------------------------------------------------------
0009.00  * This procedure performs a function on the 3 numeric values
0010.00  * passed to it as value parameters.
0011.00  *
0012.00  * This illustrates how a procedure interface is specified for a
0013.00  * procedure and how values are returned from a procedure.
0014.00  *-------------------------------------------------------------
0015.00 D Function        PI            10I 0
0016.00 D    Term1                       5I 0 VALUE
0017.00 D    Term2                       5I 0 VALUE
0018.00 D    Term3                       5I 0 VALUE
0019.00 D Result          S             10I 0
0020.00  /free
0021.00     Result = Term1 ** 2 * 17
0022.00                  + Term2 * 7
0023.00                  + Term3;
0024.00     return Result * 45 + 23;
0025.00  /end-free
0026.00 P                 E


Any idea please, what am I missing ?

I want to create various User-Defined Functions in my SQLRPGILE
programs, 
which should return values.

Best Regards,

Luqman