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



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-Ups:

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.