RE: QEZSNDMSG

Actually, you can - if you call QEZSNDMG with no parameters, that's exactly
what you get. 

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Douglas W. Palme
Sent: Thursday, December 1, 2005 9:49 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: QEZSNDMSG

I am assuming that I cannot call it to display the typical screen that is
displayed when you select send a message off of the operational assistant
menu correct?



On Thu, 1 Dec 2005 16:42:49 +0100, Beppe Costa wrote
> dcl &userl *char 256
> dcl &userb *char 4
> dcl &rtncb *char 4
> dcl &rtncd *dec  3
> 
> dcl &msg   *char 256
> dcl &msgl  *char 4
> dcl &apier *char 15 X'0000000F0000000040404040404040'
> 
> chgvar &userl <-- list of users
> chgvar %bin(&userb) <-- number of users in the listc chgvar 
> %bin(&msgl) <-- length of the message chgvar &rtncb x'00000000'
> call qezsndmg +
> (*INFO *NORMAL &msg &msgl &userl &userb &rtncb '    ' +
>  &apier N '                    ' *USR)
> monmsg cpf0000 exec(chgvar &rtncb x'00000000') chgvar &rtncd 
> %bin(&rtncb) if (&rtncd *ne 1) + .....
> .....
> 
> ----- Original Message -----
> From: "Douglas W. Palme" <dpalme@xxxxxxxxxxx>
> To: "RPG Group" <rpg400-l@xxxxxxxxxxxx>
> Sent: Thursday, December 01, 2005 4:32 PM
> Subject: QEZSNDMSG
> 
> > Does anyone have any examples of using this api in an RPGLE program? 
> > As a side note, can it be used in a CL?
> >
> >
> > If you bought it, it was hauled by a truck - somewhere, sometime.
> >
> > --
> > 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.


If you bought it, it was hauled by a truck - somewhere, sometime.

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