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:

BVSTools Software Verified on V7R5 and Power10 BVSTools Software Verified on V7R5 and Power10
Posted by December 9, 2022
BVSTools >> BVSTools Announcements
Microsoft Office 365 Servers and Random Errors Issue Microsoft Office 365 Servers and Random Errors Issue
Posted by November 14, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending/Resending Emails Using a MIME File with MAILTOOL Sending/Resending Emails Using a MIME File with MAILTOOL
Posted by November 8, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Sending an HTML Email on Your IBM i Using MAILTOOL Sending an HTML Email on Your IBM i Using MAILTOOL
Posted by November 1, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Transferring License Keys from One System to Another Transferring License Keys from One System to Another
Posted by October 31, 2022
BVSTools >> BVSTools Software Discussion
Calculating the Size of a File Before Base64 Encoding Calculating the Size of a File Before Base64 Encoding
Posted by August 13, 2022
Programming >> RPG Programming
GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File GreenTools for Microsoft Apps (G4MS) v9.12 Now Includes Function to Send Emails using MIME File
Posted by August 11, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts GreenTools for Google Apps (G4G) v15.20 Now Supports Shortcuts
Posted by August 6, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions GreenTools for Microsoft Apps (G4MS) Groups Admin Authority Instructions
Posted by July 26, 2022
BVSTools >> BVSTools Software Discussion >> GreenTools for Microsoft Apps (G4MS) Specific Discussion
GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives GreenTools for Microsoft Apps (G4MS) v9.10 Now Includes OneDrive Functions that Work With Groups/Shared Drives
Posted by July 19, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
GreenTools for Google Apps (G4G) v15.10 Now Includes Drive Functions that Work With Shared Drives GreenTools for Google Apps (G4G) v15.10 Now Includes Drive Functions that Work With Shared Drives
Posted by July 15, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
GreenTools for Microsoft Apps (G4MS) v9.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page GreenTools for Microsoft Apps (G4MS) v9.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page
Posted by July 4, 2022
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements
What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System? What Objects Should I Omit from Replication to Ensure My License Keys Work on my HA/DR System?
Posted by June 27, 2022
BVSTools >> BVSTools Software Discussion
GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page GreenTools for Google Apps (G4G) v15.00 Now Offers Functions to Bypass Registration Command and BVSTools Landing Page
Posted by May 3, 2022
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
How Do I Switch From MAILTOOL Plus to GreenTools for Google (OAuth 2.0) or Microsoft Office 365? How Do I Switch From MAILTOOL Plus to GreenTools for Google (OAuth 2.0) or Microsoft Office 365?
Posted by April 18, 2022
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion

Reply




Copyright 1983-2020 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).