Re: formatting message content -- RPG400-L

in this case i will use a srvpgm to display message, only one screen of one
field (with wrap keyword like someone suggest)
and make a little change to the user MSGQ (chgmsgq) make it *break and add
you own message to monitor the MSGQ.
I did this yet, it works fine except that only one job by user can be
monitor because of the *BREAK mode.
I can send you the piece of code to monitor the messages if you want.

Hope this help.


----- Original Message ----- 
From: "Simonse, Arco (CMK)" <ArcoSimonse@xxxxxxxxxxxxxxxxx>
To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Sent: Monday, June 20, 2005 8:02 AM
Subject: RE: formatting message content


> Hi Richard,
>
> I realize that I did not make myself very clear. Sorry for that.
> I do already use QMHRTVM. I get the message text from the message file,
> formatted with the format characters and containing the substituted
> variables.
> But once I have it, I want to display the message text to the user. And
> there is the problem. Do I have to parse the text into display fields
> and show it by executing a display format, or is there somewhere an API
> or command that displays a message to the user? It is not enough to add
> the message to the msgq of the user, it has to be a kind of
> break-message because it's neccessary that the user takes notice of the
> message immediately.
>
> Thanks, Arco Simonse
>
> > -----Oorspronkelijk bericht-----
> > Van: rpg400-l-bounces@xxxxxxxxxxxx
> > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Richard ECUYER
> > Verzonden: zaterdag 18 juni 2005 09:41
> > Aan: RPG programming on the AS400 / iSeries
> > Onderwerp: Re: formatting message content
> >
> > There is an APi that retrieve a message formatted with
> > variables : QMHRTVM Here is a sample :
> >
> >  *
> >  * Variables locales
> > ......................................................
> > d   RcvTxt        s           1024
> > d   RcvLen        s             10u 0
> > d   FmtName       s              8
> > d   QualName      s             20
> > d   RplData       s           1024    Varying
> > d   RplLen        s             10u 0
> > d   RplValue      s             10
> > d   Rtnctl        s             10
> >  *
> > D Dsmessage       ds
> > D   Len1                        10u 0
> > D   Len2                        10u 0
> > D   Len3                        10u 0
> > D   Len4                        10u 0
> > D   Len5                        10u 0
> > D   Len6                        10u 0
> > D   TxtHlp                    1024
> >  *
> > c                   Eval      QualName = MsgFil + MsgLib
> > c                   Eval      FmtName  = 'RTVM0100'
> > c                   Eval      RcvLen   = %len(DsMessage)
> > c                   Eval      RplData  = MsgDta
> > c                   Eval      RplLen   = %len(MsgDta)
> > c                   Eval      RplValue = '*YES'
> > c                   Eval      RtnCtl   = '*NO'
> >  *
> > c                   Callp     QMHRTVM(
> > c                                DsMessage:
> > c                                RcvLen   :
> > c                                FmtName  :
> > c                                MsgId    :
> > c                                QualName :
> > c                                RplData  :
> > c                                RplLen   :
> > c                                RplValue :
> > c                                Rtnctl   :
> > c                                ApiError)
> >
> >
> > ----- Original Message -----
> > From: "Simonse, Arco (CMK)" <ArcoSimonse@xxxxxxxxxxxxxxxxx>
> > To: "RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
> > Sent: Friday, June 17, 2005 11:19 PM
> > Subject: RE: formatting message content
> >
> >
> > > Hi Carel,
> > >
> > > Thanks for pointing me to this API. I hadn't thought of
> > really putting
> > > the message on a message queue, my first intentention was
> > to retrieve
> > > the message description directly from the message file. But via the
> > > queue is better I realize now. And thank you for explaining me the
> > > CNTFLD/WRDWRAP keywords, they were new for me.
> > >
> > > Best regards,
> > > Arco Simonse
> > > -- 
> > > > -----Oorspronkelijk bericht-----
> > > > Van: rpg400-l-bounces@xxxxxxxxxxxx
> > > > [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Carel Teijgeler
> > > > Verzonden: vrijdag 17 juni 2005 22:44
> > > > Aan: rpg400-l@xxxxxxxxxxxx
> > > > Onderwerp: Re: formatting message content
> > > >
> > > > Arco,
> > > >
> > > > If you know the MSGID and the MSGDTA for those substitutuion
> > > > variables, then you can use the Send Programme Message and
> > > > Receive Programme Message APIs. In the receiver variable of
> > > > the second API you get the message in subbfield MSG (IIRC).
> > > >
> > > > Show the text in a display field with CNTFLD(60) and WRDWRAP,
> > > > no formatting required.
> > > >
> > > > Success.
> > > >
> > > > Regards,
> > > > Carel Teijgeler.
> > > >
> > > > *********** REPLY SEPARATOR  ***********
> > > >
> > > > On 17-6-05 at 18:14 Simonse, Arco \(CMK\) wrote:
> > > >
> > > > >I use the QMHRTVM API to retrieve message descriptions from
> > > > the message
> > > > >file. If I want to show the retrieved second-level message
> > > > text in my
> > > > >program to the user, I will have to reformat this retrieved
> > > > text, because it is one long text.
> > > > >Of course I can go and write my own text parser to reformat the
> > > > >messagetext by the use of the formatting characters &N, &P,
> > > > and &B that are in the messagetext.
> > > > >But I wonder if there's another way to do it. Maybe an API
> > > > or some other solution I don't know of.
> > > > >
> > > > >Any point would be appreciated.
> > > >
> > > >
> > > >
> > > > --
> -- 
> DISCLAIMER:
> This message contains information that may be privileged or
> confidential and is the property of C.Meijer B.V. It is intended only for
the person to whom it is addressed. If you are not the intended recipient,
you are not authorized to read, print, retain, copy,disseminate, distribute,
or use this message or any part thereof. If you
> receive this message in error, please notify the sender immediately and
delete all copies of this message.
>
> This footnote also confirms that this email message has been swept by the
presence of computer viruses
>
>
> -- 
> 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.
>
>