×
The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.
LOL...thanks all for the replies....but i have to ask....where were you
yesterday???
Thanks,
Tommy Holden
Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/08/2007 08:03 AM
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
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
midrange.com
