Re: extract JSON with DATA_INTO blows up when var is blank ((from midrange-l))

On 2018-11-01 10:57 AM, Gerald Magnuson wrote:

it appears that when the parser hits a column that is empty, I get
RNX0358, condition 12...
and by empty I mean, "column-name":"" ...
like "userId":"",

my data-into statement:
DATA-INTO articles %Data( retdata:
'case=any countprefix=count_')
%Parser('GEMLIB/JSONPARSE');

There's a bug in the reportString procedure in the JSONPARSE sample program. To fix it, add the line marked "-->" just before the return statement.

if parseCtrl.numberParsed < parseCtrl.maxLen;
tokenPointer += CHAR_LEN;
if dataChar = QUOTE;
// in case we encounter an empty string we search for
// the quote right away
tokenPointer -= CHAR_LEN;
parseCtrl.curToken.startPointer = tokenPointer;
parseCtrl.curToken.lengthInt = 0;
parseCtrl.numberParsed += CHAR_LEN;
reportNameVal(parseCtrl);
--> parseCtrl.parserPointer = tokenPointer + (2 * CHAR_LEN);
return;
endif;

Since library QOAR is an IBM product library, it would be best to copy the source to another library and compile the program into another library.