|
midrange.com
That was the trick! Thank you very much.
Donnie Jobe
Sr. Programmer/Analyst
O'Reilly Auto Parts
djobe@xxxxxxxxxxxxxxx
"Mackie, Roger L.
(Precision Press)" To: "'RPG programming on
the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
<RLMackie@xxxxxxxx cc:
c.com> Subject: RE: QMHSNDPM API
Sent by:
rpg400-l-bounces@x
idrange.com
03/17/03 05:01 PM
Please respond to
RPG programming on
the AS400 /
iSeries
Donnie,
I just noticed that my wrapper that sends messages from a named activation
group to an IBM menu running in the default activation group uses MsgType =
'*COMP' and CallStkEnt = '*CTLBDY'. You might want to experiment with those
values.
Roger Mackie
-----Original Message-----
From: djobe@xxxxxxxxxxxxxxx [mailto:djobe@xxxxxxxxxxxxxxx]
Sent: Monday, March 17, 2003 16:02
To: rpg400-l@xxxxxxxxxxxx
Subject: QMHSNDPM API
I am executing a command interactively from the command line using a rpgle
program as its processor. When the rpgle program encounters an error,
QMHSNDPM is used to send an error. Unfortunately, the error flashes and is
gone. In the rpgle processing after the message is sent, the program ends.
How do I get the message to remain on the display after message is sent? I
have tried different variations of the message type and '*' for the call
stack entry, but without success. I know on SNDPGMMSG, *PRV can be used
for TOPGMQ, but I can't seem to find the equivalent option for the api.
Here is an excerpt of the code:
D SndPgmMsg PR ExtPgm('QMHSNDPM')
D MessageID 7A Const
D QualMsgF 20A Const
D MsgData 256A Const
D MsgDtaLen 10I 0 Const
D MsgType 10A Const
D CallStkEnt 10A Const
D CallStkCnt 10I 0 Const
D MessageKey 4A
D ErrorCode 32766A options(*varsize)
D dsEC DS
D dsECBytesP 1 4I 0 INZ(256)
D dsECBytesA 5 8I 0 INZ(0)
D dsECMsgID 9 15
D dsECReserv 16 16
D dsECMsgDta 17 256
D wwMsg S 80 inz('Invalid Store')
D wwMsgLen S 10I 0 inz(80)
D wwTheKey S 4A
C *entry plist
C parm StoreP
C StoreP Chain Store
C If not %found(Store)
C callp SndPgmMsg('CPF9897': 'QCPFMSG *LIBL':
C wwMsg : wwMsgLen: '*STATUS':
C '*EXT' : 1: wwTheKey: dsEC)
C Return
C Endif
Donnie Jobe
Sr. Programmer/Analyst
O'Reilly Auto Parts
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.
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.
