RE: How to create my own built-in functions

[Leslie Russell <leslier@xxxxxxxxxx>]

Buck, if it is used in RPG why not just return an indicator to the 
caller. That way the user can say
C           if       rc
C           ...
C           endif

Or is the syntax similar when you return an integer to the caller?

>>>>>>>>>>>>>>>>>> Original Message <<<<<<<<<<<<<<<<<<

On 7/14/00, 2:35:47 PM, Buck Calabro <buck.calabro@aptissoftware.com> wrote 
regarding RE: How to create my own built-in functions:


> rbrightman wrote:

> >Could you explain why RC is 10 long?

> The 10u 0 definition means "unsigned integer."  It's nothing special, 
really
> - very common in the C world and it's also used in many APIs.  You could
> just as easily use 1a if you want.

> >It seems that it should be longer to fit the
> >two parms "test" and "Buck" into it.

> rc is "return code."  It's purpose is to return a "success" or "failure"
> indication to the caller.  The actual parameters are specified in the
> D-specifications following the PR/PI.  Here, the parameters are MsgText 
and
> MsgQueue.  The 10u 0 is the returned value.
> D ShowMsg         pi            10u 0
> D   MsgText                     50    const
> D   MsgQueue                    10    const

> So, this function takes two parameters and returns one, thus:
> C                   eval      rc = ShowMsg('Test': 'BUCK')

> >Also, is the procedure a separate
> >source from the calling program?

> It doesn't have to be, but if you DO want it separate you need to compile 
it
> separately as a module.  That module can be bound directly into the 
program
> that uses it, or compiled into a service program which then gets bound to
> the program that needs the function.

> Buck Calabro
> Aptis; Albany, NY
> "We are what we repeatedly do.
>  Excellence, then, is not an act, but a habit." --Aristotle


> Billing Concepts Corp., a NASDAQ Listed Company, Symbol: BILL
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
david@midrange.com
> +---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---