bvstone

Building JSON with RPG and YAJL and Writing to Standard Output

Posted:

Building JSON with RPG and YAJL and Writing to Standard Output

This example is meant to explain how to use the YAJL toolkit from Scott Klement, RPG, and the Apache server to easily create JSON and write it out to standard output.  This sort of functionality is nice if you're creating a web service for others to consume.

The HTTP Server Configuration

First, we need to set up an Apache server configuration.  This is really simple and would look similar to this:

Listen x.x.x.x:80

CGIConvMode %%EBCDIC/EBCDIC%%

<Directory />
   Options None
   Order Deny,Allow
   Deny From all
</Directory>

<Directory /www/bvsdemo/html>
   Order Allow,Deny
   Allow From all
   <FilesMatch "\.html(\..+)?$">
       Options +Includes
       SetOutputFilter Includes
  </FilesMatch>
</Directory>

ScriptAliasMatch ^/cgi-bin/(.*) /qsys.lib/bvsdemo.lib/$1.pgm

<Directory /qsys.lib/bvsdemo.lib>
   allow from all
   order allow,deny
   Options +ExecCGI +Includes
   SetOutputFilter Includes
</Directory>

With this configuration we are basically telling the Apache server to run any program requested to the /cgi-bin directory.  The actual library the program is in will be BVSDEMO.

The RPG Program

Next, we need the program (caution... full free format following!)

**free
ctl-opt DFTACTGRP(*NO) ACTGRP('BVSDEMO') BNDDIR('YAJL') DECEDIT('0.');

// Imports
/include yajl_h

// Global Definitions
dcl-ds CSTMSTDS extname('CSTMSTPF') end-ds;

// Work Variables
dcl-s yajl_errMsg varchar(500) inz('');

//**********************************************************************
yajl_genOpen(*ON);
yajl_beginObj(); //main JSON object

exsr $Data;

yajl_endObj(); // Main JSON Object

// Write JSON to Standard Output
yajl_writeStdout(200:yajl_errMsg);

if (yajl_errMsg <> '');
   // handle error
endif;

yajl_genClose();

*inlr = *on;

//***************************************************************
//* Build JSON
//***************************************************************
begsr $Data;

  exec SQL declare C1 cursor for
      select email, bname, name, add1, add2,
             city, state, zip
        from CSTMSTPF;

  exec SQL open C1;
  exec SQL fetch next from C1 into
      :email, :bname, :name, :add1, :add2,
      :city, :state, :zip;

  yajl_beginArray('customerList');

  dow (sqlCode = 0);
    yajl_beginObj();  //Customer Object
    yajl_addChar('email':%trimr(email));
    yajl_addChar('bname':%trimr(bname));
    yajl_addChar('name':%trimr(name));
    yajl_addChar('add1':%trimr(add1));
    yajl_addChar('add2':%trimr(add2));
    yajl_addChar('city':%trim(city));
    yajl_addChar('state':%trimr(state));
    yajl_addChar('zip':%trimr(zip));
    yajl_endObj();  //Customer Object

    exec SQL fetch next from C1 into
        :email, :bname, :name, :add1, :add2,
        :city, :state, :zip;
  enddo;

  exec SQL close C1;

  yajl_endArray(); //customerList

endsr;

As show by this program, we simply build the JSON using YAJL and then use the yajl_WritestdOut() function to output that JSON to the browser.

The Results

An example of this exact program can be seen here by clicking here.

Related Articles:


Last edited 07/12/2019 at 10:50:43



Latest Posts:

Why I Cancelled my DynDNS Service and How I Replaced It with an IBM i Application Why I Cancelled my DynDNS Service and How I Replaced It with an IBM i Application
Posted by 8 hours ago
IBM Power Systems >> (QGPL) IBM i
Green Tools for G Suite (G4G) Product Updates (Licensing, Functionality, Base Product) Green Tools for G Suite (G4G) Product Updates (Licensing, Functionality, Base Product)
Posted by July 13, 2019
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
Reading JSON Data from Standard Input With YAJL and RPG Reading JSON Data from Standard Input With YAJL and RPG
Posted by July 12, 2019
Programming >> Proof of Concept (POC)
MAILTOOL Updated to Allow Use of IBM Global Security Kit (GSKIT) for SSL/TLS Communications MAILTOOL Updated to Allow Use of IBM Global Security Kit (GSKIT) for SSL/TLS Communications
Posted by June 19, 2019
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
GETURI v10.00 Released Supporting IBM Global Security Kit (GSKIT) and Server Name Indication (SNI) GETURI v10.00 Released Supporting IBM Global Security Kit (GSKIT) and Server Name Indication (SNI)
Posted by June 11, 2019
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
BVSTools Now Offers Vertex Cloud Interface BVSTools Now Offers Vertex Cloud Interface
Posted by April 15, 2019
BVSTools >> BVSTools Announcements
Token Has an Invalid Signature Error for Office 365 Email Token Has an Invalid Signature Error for Office 365 Email
Posted by March 22, 2019
BVSTools >> BVSTools Software Discussion >> GreenTools for Microsoft Apps (G4MS) Specific Discussion
Resending Emails that have Errored Out with Updated Router or Authentication Information Resending Emails that have Errored Out with Updated Router or Authentication Information
Posted by March 1, 2019
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
BVSTools Offers Toolset to Work With HubSpot OAuth 2.0 APIs On Your IBM i BVSTools Offers Toolset to Work With HubSpot OAuth 2.0 APIs On Your IBM i
Posted by January 27, 2019
BVSTools >> BVSTools Announcements
G4MSDRV Currently Not Supported G4MSDRV Currently Not Supported
Posted by January 17, 2019
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
Removing Trailing Carriage Returns and/or Line Feeds from a String with RPG Removing Trailing Carriage Returns and/or Line Feeds from a String with RPG
Posted by December 26, 2018
Programming >> RPG Programming
Create QRCODE in DDS Create QRCODE in DDS
Posted by September 21, 2018
Programming >> RPG Programming
Base64 Encoding a File with RPG Base64 Encoding a File with RPG
Posted by September 6, 2018
Programming >> RPG Programming
Building JSON with RPG and YAJL and Writing to Standard Output Building JSON with RPG and YAJL and Writing to Standard Output
Posted by August 31, 2018
Programming >> Proof of Concept (POC)
How to Delete Files or Empty Trash From Your Google Drive with your IBM i and RPG/ILE How to Delete Files or Empty Trash From Your Google Drive with your IBM i and RPG/ILE
Posted by July 24, 2018
BVSTools >> BVSTools Software Discussion >> GreenTools for G Suite (Google Apps) (G4G) Specific Discussion

Reply




Copyright 1983-2019 BVSTools
GreenBoard(v3) Powered by the eRPG SDK, MAILTOOL Plus!, GreenTools for Google Apps, jQuery, jQuery UI, BlockUI, CKEditor and running on the IBM i (AKA AS/400, iSeries, System i).