× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.


  1.  Home
  2. RPG400-L
  3. June 2005

RE: formatting message content

Hi Richard,

I have very little experience in message handling, so I would be very
pleased if you can send me an example. 

Thanks, Arco Simonse

> -----Oorspronkelijk bericht-----
> Van: rpg400-l-bounces@xxxxxxxxxxxx 
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Namens Richard ECUYER
> Verzonden: maandag 20 juni 2005 09:38
> Aan: RPG programming on the AS400 / iSeries
> Onderwerp: Re: formatting message content
> 
> 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.
> >
> >
> 
> -- 
> 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

As an Amazon Associate we earn from qualifying purchases.

This thread ...
Follow-Ups:
Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

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.