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





Trying my first program to receive a "post" from the credit card
process. I stored the response in the IFS and tried to parse it, But I
get an error:

Sorry the spanish

ID de mensaje . . . . : RNX0356 Gravedad . . . . . . . : 50
Tipo de mensaje . . . : Escape
Fecha envío . . . . . : 02/04/20 Hora envío . . . . . . : 12:57:40

Mensaje . . . . : El documento de la operación DATA-INTO no coincide con
la
variable RPG; el código de razón es 5.
Causa . . . . . : Al analizar un documento para la operación DATA-INTO,
el
analizador ha descubierto que el documento no se corresponde con la
variable
RPG "operation" y las opciones no lo permiten. El código de razón es 5.
El
subcampo exacto para el que se detectó el error es "operation." Las
opciones
son "doc=file case=any allowmissing=yes". El nombre del documento es
/abc/resp; *N indica que el documento XML no es un archivo externo. El
analizador es 'YAJLINTO'. *N indica que el analizador es un puntero de
procedimiento.

The operation is:

data-into operation %DATA('/abc/resp':
'doc=file case=any allowmissing=yes') %PARSER( 'YAJLINTO');

The begining of "/abc/resp" is:

************Principio de datos*************
{
"operation": {
"token": "b7f3e28f165e5b63e4fa6ea4989a5677",
"shop_process_id": 13563033,
"response": "S",
"response_details": "Procesado Satisfactoriamente",

The operation ds is:

dcl-ds operation qualified;
token char(32) inz('');
shop_process_id packed(15) inz(0);
response char(1) inz('');
response_details varchar(60) inz('');
amount packed(15: 2) inz(0);
currency char(3) inz('');

The program fails in the first data.

What am I doing wrong?

TIA,

Raul


-- Este e-mail fue enviado desde el Mail Server del diario ABC Color --
-- Verificado por Anti-Virus Corporativo Symantec --

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.