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.
> >
> >
> >
> > --
> > 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.
> >
> >
> 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.
>
>