Re: Help with retrieving error message data returned by API QSYCHGPW

On Oct 12, 2018, at 9:53 AM, Mark Murphy <jmarkmurphy@xxxxxxxxx> wrote:

Have several data structures set up, one for each message you will be
seeing. Then you can move the ErrorInfo field to the appropriate data
structure to extract the data.

On Fri, Oct 12, 2018 at 9:47 AM Mohan Eashver <mohankva@xxxxxxxxx> wrote:

Thank you. But what if API returns a different error message whose data
value is not Binary ?

----
Regards,
Mohan Eashver



On Fri, Oct 12, 2018 at 9:33 AM David Gibbs <david@xxxxxxxxxxxx> wrote:

On 10/12/2018 8:09 AM, Mohan Eashver wrote:

How can the first 4 bytes of the Data structure that are a binary value

be

converted to a number ?
I am getting this error when i do the following :
A character representation of a numeric value is in error (C G D F).
RPG statement performed a conversion from character to numeric using

data

that was in error.

d ErrorInfo 240A
d Bin4 S 10I 0 INZ

I would suggest you use a data structure for ErrorInfo instead of a
character field.

Something like this:

dcl-ds ErrorInfo qualified;
reason int (4);
rule char (15);
end-ds;

reasonCode = ErrorInfo.reason;
rule = ErrorInfo.rule;

david

--
David Gibbs
midrange.com

IBM i on Power Systems: For when you can't afford to be out of business!

I'm riding 615 miles (Yes, you read that right) in the American Diabetes
Association's Tour de Cure to raise money for diabetes research,

education,

advocacy, and awareness. You can make a tax deductible donation to my

ride

by visiting https://lsteml.diabetessucks.net.

See where I get my donations from ... visit
https://lsteml.diabetessucks.net/map for an interactive map (it's a

geeky

thing).

I may have diabetes, but diabetes doesn't have me!
--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/rpg400-l.

Please contact support@xxxxxxxxxxxx for any subscription related questions.

Help support midrange.com by shopping at amazon.com with our affiliate link: http://amzn.to/2dEadiD