Re: Help with QSYCUSRA API - Check User Authority

[Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx]

that's what i get for hurrying 8^)

Thanks,
Tommy Holden



Scott Klement <rpg400-l@xxxxxxxxxxxxxxxx> 
Sent by: rpg400-l-bounces+tommy.holden=thompsonmachinery.com@xxxxxxxxxxxx
08/07/2007 07:28 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: Help with QSYCUSRA API - Check User Authority






Tommy,

Your ErrorDS is wrong.  The last field ("Text") should NOT be defined as 
VARYING.

The VARYING keyword means that the field is prefixed by a 2-byte binary 
integer indicating the length of the data.   however, the API doesn't do 
this.  Instead, it indicates the length of the data in the 
BytesAvailable field.

so, you should remove the VARYING keyword from your Text definition.

You might also consider making Text into a larger field.  I've 
encountered error messages that return more than 500 bytes of msgdta.


Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx wrote:
> dErrorDS          ds                  Qualified 
> d BytesProvided                 10i 0 Inz(%Size(ErrorDS)) 
> d BytesAvailable                10i 0 
> d MsgID                          7a 
> d                                1a 
> d Text                         500a   Varying