DATA-GEN with %gen(json_DataGen(pJson))

[openmax]

Hello,

I’m using the JWT plugin for authentication and I’ve encountered a problem in data-gen when handling "application/json".

Specifically, the issue seems related to this section of code:

ILEastic/plugins/jwt/jwtplugin.rpgmod

Line 294 in 1ffb95e

data-gen problem %data(handle : 'doc=string') %gen(json_DataGen(pJson));

The error I receive is:
MCH3601 – Undefined pointer error

To verify the issue, I also tested the demo example in the noxdb project:

/JSONPARS9J.JSON-data-gen.rpgle

I encountered the same error there as well.

Thanks
Massimo F.

PS. os/400 7.5 and using NOXDB from this repository : noxDB @ dd27628

[openmax]

i found that is fixed by sitemule/noxDB@76e77a3

[rcronin]

I am running into a similar issue with MCH3601, except it's saying:

Pointer not set for location referenced.
     Error MCH3601 occurred while running the program or procedure for the
       DATA-GEN operation.

Below is the code I'm testing with:

**FREE

///
// Chunked Data Example
//
// This example show how to output data in chunks instead of building the
// whole response in memory.
// 
// The demo customer file (QIWS/QCUSTCDT) is written to the response as 
// json. The data is accessed via embedded SQL.
// The main feature is to show that CLOB and BLOB are directly supported in ILEastic
// making it easy to integrateILEastic and SQL. An even better solution is
// to use noxDB which is 100% dynamic 
//
// Start it:
// SBMJOB CMD(CALL PGM(JSONDATA)) JOB(JSONDATA) JOBQ(QSYSNOMAX) ALWMLTTHD(*YES)
// 
// The web service can be tested with the browser by entering the following URL:
// http://my_ibm_i:44001
//
// @info: It requires your RPG code to be reentrant and compiled for 
//        multithreading. Each client request is handled by a seperate thread.
///

ctl-opt main(main);
ctl-opt option(*nodebugio:*srcstmt:*nounref) ALWNULL(*USRCTL);
ctl-opt debug(*yes) bndDir('ILEASTIC':'NOXDB');
ctl-opt thread(*CONCURRENT);

/include ./headers/ILEastic.rpgle
/include ./noxdb/headers/jsonParser.rpgle


// -----------------------------------------------------------------------------
// Program Entry Point
// -----------------------------------------------------------------------------     
dcl-proc main;

    dcl-ds config likeds(il_config);

    config.port = 44001; 
    config.host = '*ANY';

    il_listen (config : %paddr(listCustomers));

end-proc;

// -----------------------------------------------------------------------------
// Servlet call back implementation
// -----------------------------------------------------------------------------     
dcl-proc listCustomers;

    dcl-pi *n;
        request  likeds(il_request);
        response likeds(il_response);
    end-pi;

    dcl-s output pointer inz(*null);
    dcl-s handle char(1) inz('');

     dcl-DS rows dim(2) qualified inz;
        id   int(10);
        name varchar(256);
    end-ds; 

    dcl-s i	        int(10);
    
    
    response.status = 200;
    response.contentType = 'application/json';

    for i = 1 to %elem(rows) ;
        rows(i).id = i;
        rows(i).name = 'John ' + %char(i);
    endfor;

    monitor;
      data-gen rows %data(handle:'') %gen(json_datagen(output));
      
      il_responseWriteStream( response : json_stream(output));
    on-error;
      response.status = 500;
      il_responseWrite(response : 'Error serializing data.');
    endmon;

    json_delete(output);
    
end-proc;

Submitted with CCSID 500 thinking it might fix it, nope. Our system default CCSID is 37.

SBMJOB CMD(CALL PGM(JSONDATA)) JOB(JSONDATA) JOBQ(QSYSNOMAX) CCSID(500) AL
WMLTTHD(*YES)

Any ideas?

[rgala]

Make sure to update git submodules inside ILEastic project, recompile everything and try again. Most likely you are using an outdated NoxDB

[rcronin]

That worked. Thanks!