|
Here's some RPGIV code I've used. ... * Send error Message: C Eval Tmpxx= 'SNDPGMMSG' + ' ' + %Trim(ERRMSG) C Call (E) 'QCMDEXC' C Parm Tmpxx 1024 C Parm 1024 parm2 15 5 ... where the value of field ERRMSG has been set as the message to send. _______________________ Booth Martin Booth@MartinVT.com http://www.MartinVT.com _______________________ James David Rich <james@dansfoods.com> Sent by: owner-rpg400-l@midrange.com 07/17/2000 01:07 PM Please respond to RPG400-L To: rpg400-l@midrange.com cc: Subject: How to prototype CL modules 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 +--- +--- | 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 +---
As an Amazon Associate we earn from qualifying purchases.
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.