Finding Severity level of a mesage from a RPG pgm

Does anyone have an idea how I can retrieve the severity level of a message in 
a *MSGF from a RPG program
Thank you

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la 
part de rpg400-l-request@xxxxxxxxxxxx
Envoyé : mercredi 29 juin 2005 17:53
À : rpg400-l@xxxxxxxxxxxx
Objet : RPG400-L Digest, Vol 4, Issue 751

Send RPG400-L mailing list submissions to
        rpg400-l@xxxxxxxxxxxx

To subscribe or unsubscribe via the World Wide Web, visit
        http://lists.midrange.com/mailman/listinfo/rpg400-l
or, via email, send a message with subject or body 'help' to
        rpg400-l-request@xxxxxxxxxxxx

You can reach the person managing the list at
        rpg400-l-owner@xxxxxxxxxxxx

When replying, please edit your Subject line so it is more specific
than "Re: Contents of RPG400-L digest..."


Today's Topics:

   1. RE: QCMDEXC (RPower@xxxxxxxxxx)
   2. printing a Signature Font (Critzer, Lina M.)
   3. RE: Running a program with a display file in batch
      (Rick.Chevalier@xxxxxxxxxxxxxxx)
   4. problem with SBMJOB (Mahesh Pawar)
   5. Re: XLPARSER problem (Scott Klement)
   6. RE: problem with SBMJOB (Holden Tommy)
   7. Update a spreadsheet with data from iSeries (II) (Leif Guldbrand)
   8. [Fwd: A question about subfile operations] (Pete Helgren)


----------------------------------------------------------------------

message: 1
date: Wed, 29 Jun 2005 11:43:04 -0230
from: RPower@xxxxxxxxxx
subject: RE: QCMDEXC

Ah,
I didn't see that in his email.  Sorry.

Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Kimaly Mayhew" <mmayhew@xxxxxxxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/06/29 11:29 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: QCMDEXC






Ron,

That is because your test has the quotes around the e-mail address. His 
test didn't.

 -----Original Message-----
From:            rpg400-l-bounces@xxxxxxxxxxxx 
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]  On Behalf Of RPower@xxxxxxxxxx
Sent:            Wednesday, June 29, 2005 9:50 AM
To:              RPG programming on the AS400 / iSeries
Subject:                 RE: QCMDEXC

Strange,
I just tried to duplicate the error, but didn't get one...

 *-Define stand alone 
fields-----------------------------------------------------
d Cmd             s            300A   Inz 
 *-------------------------------------------------- 
 * Procedure name: Qcmdexc 
 * Purpose:        To allow the running of CL commands 
 * Returns: 
 * Parameter:      Cmd => Command to run 
 * Parameter:      CmdLen => Length of command to run 
 *-------------------------------------------------- 
d QCmdExc         PR                  EXTPGM('QCMDEXC') 
d  Cmd                        3000A   Const Options(*VARSIZE) 
d  CmdLen                       15P 5 Const 
d  Cmddbcs                       3A   Const Options(*NOPASS) 
c*-------------------------------------------------- 
c                   Eval      Cmd = 'SNDDST TYPE(*LMSG) ' + 
c                             'TOINTNET((''r-power@xxxxxxxxxxxxx'')) '+ 

c                             'DSTD(TEST) LONGMSG(''tseting email'')' 
c                   CallP(E)  QCmdExc(Cmd:%Len(Cmd)) 
c                   Eval      *Inlr = *On 



Ron Power
Programmer
Information Services
City Of St. John's, NL
P.O. Box 908
St. John's, NL
A1C 5M2
Tel: 709-576-8132
Email: rpower@xxxxxxxxxx
Website: http://www.stjohns.ca/
___________________________________________________________________________
Success is going from failure to failure without a loss of enthusiasm. - 
Sir Winston Churchill




"Haas, Matt" <Matt.Haas@xxxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
2005/06/29 11:02 AM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc

Subject
RE: QCMDEXC






Greg,

I ran into a similar problem calling a command to send email (we use
SNDM, an open source program). I ended up just adding single quotes to
the email addresses and it takes care of the problem. The problem isn't
really a problem, it just how CL and commands work.

Matt 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Fleming, Greg (ED)
Sent: Wednesday, June 29, 2005 9:24 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: QCMDEXC

I'm using QcmdExc to do a SNDDST email from an RPG program. 

 

It worked fine, until the destination email address changed to one that
has a dash in it. (e.g. gfleming-1@xxxxxxxxx
<mailto:gfleming-1@xxxxxxxxx> ).

 

As I play with it, I find that SNDDST doesn't have a problem with
dashes.  It seems to be QcmdExc that has the problem. 

I trapped the error in the PSDS, but it just says CPF0006 "Errors
Occurred on Command".  Whoever creates such useful messages should be
flogged. 

 

Does anyone know why QcmdExc doesn't like dashes, and whether I can get
around this without moving my SNDDST to a CL ? 

 

 

TIA,

 

 

Greg Fleming

Programmer/Analyst

Everglades Direct, Inc.

720 International Parkway

Sunrise, FL 33325

954.514.2258

954.851.1201 Fax

gfleming@xxxxxxxxxxxxxxxxxxxx