I have this in a ton of programs. Every screen that I have that does
validation uses it.
Example: SndMsg('Customer Name is required');
It works as a straight copybook. I have about 30 functions, each in a
different copybook, that I use randomly so I decided to move them all to a
service program (after review, that is how this all started but didn't work)
so I didn't have to keep including copybooks and going back to see what I
named the source file and also to help broaden my understanding of modules,
service programs, etc. I'm a consultant and clients don't like to pay us to
learn on the job.
-----Original Message-----
From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Alan
Campin
Sent: Monday, August 10, 2020 2:54 PM
To: RPG programming on IBM i <rpg400-l@xxxxxxxxxxxxxxxxxx>
Subject: Re: Problem with message subfile
Not sure about adding parameters. Would this be new code? Also, this is the
interface on my service program. I would be happy to send you you a copy of
the service program.
dcl-proc XVMSGF_SendProgramMessage Export;
dcl-pi *N;
InMessageId Char(7) Value;
InQualifedMessageFileName Char(20) Value;
InMessageData VarChar(4096) Value;
InProcedureName VarChar(4096) Value;
InModuleName Char(10) Value;
InProgramName Char(10) Value;
end-pi;
--
This is the RPG programming on IBM i (RPG400-L) mailing list To post a
message email: RPG400-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or
change list options,
visit:
https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/rpg400-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
midrange.com
