Does G#AddMsgSF accepts CallStack/MessageQueue as a parameter for caller
to specific what callStack should the message to send to? If so,
passing the program name in this parameter should resolve you problem.

Note: I'm assuming that G#AddMsgSF is a customized version of QMHSNDPM
and also assuming that the value of SFLPGMQ is * or program name.


"Smith, Mike" <Mike_Smith@xxxxxxxxxxxxxxxx> wrote in message
news:<mailman.6644.1219842260.2545.rpg400-l@xxxxxxxxxxxx>...
I am trying to make myself use subprocedures more- rather than
subroutines. I have run into a little problem, and I'm not quite sure
what I need to do.

I have a procedure in a service program that is used for displaying
messages in display files. I use this all the time.

Now I have written a data entry program that has quite a bit of
validation. I have written another service program that has the
validation in it. Because there is a lot of validation I put all of
these within a subprocedure in my main program. Here is where the
problem occurs. My messages don't display. If I simply change the
subprocedure to a subroutine, my messages display.

PGM1
CALLP checkvalid

Pr checkvalid

C Eval PaverErr = valid_paver(cscrew)
C If PaverErr = *On
C Move 'RG1010 ' MSGID
C CallP G#AddMsgSF(MSGID:' ':
C 'RGCMSGF')
C EndIf


G#ADDMSGSF is in service program
Valid_paver is in a separate service program.
Checkvalid is subprocedure in main pgm

Any ideas on how to make this work.

Mike
----------

This thread ...


Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 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].