Re: QEZSNDMSG

["Beppe Costa" <beppecosta@xxxxxxxxxxx>]

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