Re: Send pgm message to user

[RPower@xxxxxxxxxx]

Ok
I coded this but it's not sending the message.  Do I have something wrong? 
 Here's what I've coded.

     ?*-Define constant 
fields-------------------------------------------------------- 
     d #Msg            c                   Const('There was an error 
trying to -Jan 17, 2005 R.Power
     d                                     process the email.  Please 
contact - Jan 17, 2005 R.Power
     d                                     Information Services.')      
Jan 17, 2005 R.Power 
     ?*-Define stand alone 
fields------------------------------------------------------ 
     d Dsa             s             10I 0       Jan 17, 2005 R.Power
     d Dsb             s             10I 0       Jan 17, 2005 R.Power 
     D*--------------------------------------------------
     D* Procedure name: Send_Msg
     D*--------------------------------------------------
     D Send_Msg        PR                  EXTPGM('QEZSNDMG')
     D  MsgType                      10A   Const
     D  MsgMode                      10A   Const
     D  MsgText                     256A   Const
     D  MsgLen                       10I 0 Const
     D  MsgUsers                     10A   Const
     D  MsgUsersCount                10I 0 Const
     D  MsgSent                      10I 0 Const
     D  MsgFunction                  10I 0 Const
     D  MsgError                      4A   Const
     D  MsgPrompt                     4A   Const
     D  MsgMsgq                      20A   Const
     D  MsgNamType                    4A   Const 


     c                   CallP     
Send_Msg('*INFO':'*BREAK':#Msg:%Len(#Msg):   Jan 17, 2005 R.Power
     c                             UserId:1:Dsa:Dsb:Dserr:'N':' ':'*USER') 
 

The statement executes, but I don't get the message. 
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




jmoreno@xxxxxxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
17/01/2005 12:18 PM
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: Send pgm message to user










I think you have a better alternative if you use a different API. Please
see the QEZSNDMG API
You can select a specific user, send a break message to the user and the
API will break at the work station where the user is signed

http://publib.boulder.ibm.com/iseries/v5r2/ic2924/index.htm?info/apis/QEZSNDMG.htm



I hope this helps

Jorge Moreno
Overseas Military Car Sales
Woodbury, New York

Confidentiality Notice:This email, including its attachments, may contain
information that is confidential and may be protected by federal and/or
state laws and regulations, or other confidentiality privileges.  This
email, including its attachments, may contain non-public information;
therefore it is intended to be conveyed only to the designated
recipient(s).  If you are not an intended recipient, please delete this
email, including its attachments, and notify the sender.  The unauthorized
use, dissemination, distribution or reproduction of this email, including
its attachments, is prohibited and may be unlawful. This notice is
automatically appended to each email message leaving Overseas Military Car
Sales.

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