Re: RNX0356 Document for DATA-INTO does not match RPG Variable

On Tue, 2019-07-16 at 15:42 +0000, Greg Wilburn wrote:

Just wondering if there is a relatively easy way to retrieve the
message "Cause" from within the RPG program?
The "Cause" is usually where the issue is described - "the exact
subfield for which the error was detected is..."

I would like to use this as output in my text logs.

Example:

Additional Message Information

Message ID . . . . . . : RNX0356 Severity . . . . . . .
: 50
Message type . . . . . : Escape
Date sent . . . . . . : 07/16/19 Time sent . . . . . .
: 11:35:04

Message . . . . : The document for the DATA-INTO operation does not
match
the RPG variable; reason code 4.
Cause . . . . . : While parsing a document for the DATA-INTO
operation, the
parser found that the document does not correspond to RPG variable
"json"
and the options do not allow for this. The reason code is 4. The
exact
subfield for which the error was detected is
"json.orders(1).promotions.applied_promotions". The options are
"doc=file
case=convert allowextra=yes countprefix=count_". The document name
is
/apis/Mirakl/046/GetOrdersReady_Response_0.json; *N indicates that
the
document is not an external file. The parser is 'YAJLINTO'. *N
indicates
that the parser is a procedure pointer.

From within RPG the best way is to use the IBM supplied message API's.
More specifically the QMHRCVPM (receive program message) which can be
used to not only get the message ID but also the message data. After
that, you can use it however you feel.

If you wanted to use the actual message text, and the message data that
is shown for the message you would need to probably use the QMHRTVM API
along with the data returned in QMHRCVPM as that can retrieve the
message text and do the substitution at the same time.

I often use the QMHRCVPM API, but have never used the QMHRTVM API.

This is a fairly good article on using the API's in conjunction -
https://www.itjungle.com/2009/10/14/fhg101409-story01/

Jon.