ILEastic.rpgle

**FREE

///
// Integration between IceBreak and ILEastric
//
//
// Start it:
// CRTICESVR 
// 
// The web service can be tested with the browser by entering the following URL:
// http://my_ibm_i:44002
//
// @info: It requires your RPG code to be reentrant and compiled for 
//        multithreading. Each client request is handled by a seperate thread.
///
   
ctl-opt copyright('Sitemule.com  (C), 2018');
ctl-opt decEdit('0,') datEdit(*YMD.) ;
ctl-opt debug(*yes) bndDir('ILEASTIC':'NOXDB':'ICEMAN');
ctl-opt thread(*CONCURRENT);
ctl-opt main(main);


/include qrpgleref,ILEastic
/include qrpgleref,iceman
/include noxdb

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

    dcl-ds config likeds(IL_CONFIG);
	im_getConfig(config);


    il_listen (config : %paddr(customerList));
 
end-proc;

// -----------------------------------------------------------------------------
// Servlet callback implementation
// -----------------------------------------------------------------------------     
dcl-proc customerList;

    dcl-pi *n;
        request  likeds(IL_REQUEST);
        response likeds(IL_RESPONSE);
    end-pi;

    dcl-s pResult pointer;



    // Assume everything is OK
    response.status = 200;
    response.contentType = 'application/json';

    // Use noxDB to produce a JSON resultset to return
    pResult = json_sqlResultSet ('-
        select *                  -
        FROM QIWS/QCUSTCDT        -
    ');

    // Use the stream to input data from noxdb and output it to ILEastic 
    il_responseWriteStream(response : json_stream( pResult));


end-proc;