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.