How to prototype CL modules

[James David Rich <james@xxxxxxxxxxxxx>]

I need to make a CL module that will be called from an RPG module.  The CL
module looks like this:

        PGM             PARM(&MSG)
        DCL             VAR(&MSG) TYPE(*CHAR) LEN(200)
        SNDPGMMSG       MSG(&MSG)
        RETURN

How do I prototype this so it can be used in the RPG module?  I want to
make this a subprocedure, but how do you define the subprocedure name in
CL?

Maybe there is a better way to do this.  If I explain what I am doing
maybe someone will have some suggestions.

This is for sending error messages on error (duh).  I want to do something
like:

C               eval    err = do_something(parms)
C               if      (err = 1)
C               eval    err = sendmessage("message text goes here")
C               endif

My little CL program is supposed to be the
"sendmessage" subprocedure.  Any ideas on improvement?


James Rich
james@dansfoods.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
+---