× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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








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-2024 by midrange.com 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.