RE: QEZSNDMSG

I just figured that out once I had the name spelled correctly......

On Thu, 1 Dec 2005 10:14:43 -0600 , Lapeyre, Francis wrote
> 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.
> -- 
> 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.