bvstone

Reading JSON Data from Standard Input With YAJL and RPG

Posted:

Reading JSON Data from Standard Input With YAJL and RPG

If you are ever in a situation where you want to read in JSON from Standard Input (POST) using RPG for parsing, then this example is for you.  

This solution uses:

The main function from the YAJL Toolkit used will be yajl_stdin_load_tree().  This function allows you to read JSON data in from Standard Input (from a POST) very easily, load it into YAJL and start parsing right away.

The RPG code for program YAJLSTDIN is as follows:

**FREE
ctl-opt DFTACTGRP(*NO) ACTGRP('YAJL') BNDDIR('YAJLBVS');

// Imports
/copy qrpglesrc,yajl_h
/copy qcopysrc,p.erpgsdk

// YAJL Variables
dcl-s docNode Like(yajl_val);
dcl-s node Like(yajl_val);
dcl-s val Like(yajl_val);
dcl-s yajl_error varchar(500);

// Work Variables
dcl-s firstName char(256);
dcl-s lastName char(256);
dcl-s errorText char(256);

exsr $Input;
exsr $Output;
exsr $Return;

//***************************************************************
// Read Input
//***************************************************************
BegSr $Input;

  docNode = yajl_stdin_load_tree(*ON:yajl_error);

  if (docNode = *NULL) or (yajl_error <> ' ');
    yajl_tree_free(docNode);
    errorText = 'Error reading JSON data. ' + %trim(yajl_error);
  else;
    val = YAJL_object_find(docNode:'firstName');
    firstName = yajl_get_string(val);

    val = YAJL_object_find(docNode:'lastName');
    lastName = yajl_get_string(val);
  endif;

    yajl_tree_free(docNode);

EndSr;
//***************************************************************
// Write Output using ERPGSDK
//***************************************************************
BegSr $Output;

  #startup();

  #writeTemplate('stdhtmlheader.erpg');
  #loadTemplate('yajlstdin.erpg');

  if (errorText <> ' ');
    #loadSection('error');
    #replaceData('/%errorText%/':errorText);
  else;
    #loadSection('main');
    #replaceData('/%firstName%/':firstName);
    #replaceData('/%lastName%/':lastName);
  endif;

  #writeSection();
  #cleanup();

EndSr;
//***************************************************************
// Return
//***************************************************************
BegSr $Return;

  yajl_genClose();
  *INLR = *ON;
  return;

EndSr;

This program is split into 3 main sections or subprocedures:

  • $Input - Read the JSON posted to the application.  As you can see, the yajl_stdin_load_tree() function is called.  If everything works out, we then parse the data into work  variables we already have defined.  You could of course choose to use any method for this, but for simplicity's sake we will parse the data into predefined variables
  • $Output - This section uses the eRPG SDK to output the response to the application.  It will either report an error, or mirror back the data for firstName and lastName that was entered
  • $Return - This is used to close things up.  

In order to call this function, simply load up Postman and set up the application to make a call to https://www.bvstools.com/cgi-bin/yajlstdin as a POST sending the JSON data as follows (you can use any first name and last name you want):

{"firstName":"PuriPuri",
 "lastName":"Prisoner"}

The Postman application should then return either an error, or report back the values you sent.

You sent the following data:

firstName=PuriPuri
lastName=Prisone

Below I have included an export of the Postman data that you can easily use to import into Postman and run.  Simple copy the JSON below, save it as a .json file on your PC, and use the Import option in Postman.  (Note, if you are still using the old browser app of Postman, download the PC version as the browser version is out of date an unsupported):

{
	"info": {
		"_postman_id": "9a70dfd9-a456-42b7-937d-f93c3ba5c927",
		"name": "bvstools",
		"schema": "https://schema.getpostman.com/json/collection/v2.1.0/collection.json"
	},
	"item": [
		{
			"name": "yajlstdin",
			"request": {
				"method": "POST",
				"header": [
					{
						"key": "Content-Type",
						"name": "Content-Type",
						"value": "application/json",
						"type": "text"
					}
				],
				"body": {
					"mode": "raw",
					"raw": "{\"firstName\":\"PuriPuri\",\n \"lastName\":\"Prisoner\"}"
				},
				"url": {
					"raw": "https://www.bvstools.com/cgi-bin/yajlstdin",
					"protocol": "https",
					"host": [
						"www",
						"bvstools",
						"com"
					],
					"path": [
						"cgi-bin",
						"yajlstdin"
					]
				}
			},
			"response": []
		}
	]
}

 

Feel free to check out the other YAJL articles as well for more detail or building and parsing JSON data using YAJL:

Related Articles:


Last edited 07/12/2019 at 10:58:06



Latest Posts:

MAILTOOL Errors with Microsoft Office 365 (2020) MAILTOOL Errors with Microsoft Office 365 (2020)
Posted by September 3, 2020
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Using MAILTOOL With Office 365 and Two Factor Authentication (2FA or MFA) Using MAILTOOL With Office 365 and Two Factor Authentication (2FA or MFA)
Posted by August 17, 2020
BVSTools >> BVSTools Software Discussion >> Email Tools (MAILTOOL) Specific Discussion
Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage Updating DNS With Dynamic IP Addresses After a Router Reboot/Power Outage
Posted by August 16, 2020
Programming >> Proof of Concept (POC)
GETURI v10.10 Released with New ILE Functions GETURI v10.10 Released with New ILE Functions
Posted by August 12, 2020
BVSTools >> BVSTools Announcements >> Get URI (GETURI) Specific Announcements
MAILTOOL Updated to Allow G4GSMAIL as Option in Routers File MAILTOOL Updated to Allow G4GSMAIL as Option in Routers File
Posted by June 28, 2020
BVSTools >> BVSTools Announcements >> eMail Tool (MAILTOOL) Specific Announcements
BVSTools Now Offers Interface with Infor's ION APIs BVSTools Now Offers Interface with Infor's ION APIs
Posted by May 15, 2020
BVSTools >> BVSTools Announcements
More V7R4 IFS File CCSID Issues and The Fix More V7R4 IFS File CCSID Issues and The Fix
Posted by March 4, 2020
IBM Power Systems >> (QGPL) IBM i
Error Retrieving IP Address by Name Error Retrieving IP Address by Name
Posted by February 25, 2020
BVSTools >> BVSTools Software Discussion
Logging jobs that hit an outq Logging jobs that hit an outq
Posted by February 13, 2020
Programming >> CL Programming
GreenTools for Google Apps (G4G) v12.60 Released with Shared Drive Features and More... GreenTools for Google Apps (G4G) v12.60 Released with Shared Drive Features and More...
Posted by February 4, 2020
BVSTools >> BVSTools Announcements >> GreenTools for G Suite (Google Apps) (G4G) Specific Announcements
Allowing Requests over Port 80 For SSL Validation (ie, Namecheap, etc) Allowing Requests over Port 80 For SSL Validation (ie, Namecheap, etc)
Posted by January 31, 2020
Programming >> Web Programming
GreenTools for Slack (G4SLK) v3.00 Released GreenTools for Slack (G4SLK) v3.00 Released
Posted by January 17, 2020
BVSTools >> BVSTools Announcements >> GreenTools for Slack (G4SLK) Specific Announcements
Calling a QSH Command from RPG Calling a QSH Command from RPG
Posted by December 26, 2019
Programming >> RPG Programming
SPLTOOL Print Range (PRTRNG) Function Updated to Handle Spooled Files up to 999,999,999 Pages SPLTOOL Print Range (PRTRNG) Function Updated to Handle Spooled Files up to 999,999,999 Pages
Posted by December 14, 2019
BVSTools >> BVSTools Announcements >> Spooled File Tools (SPLTOOL) Specific Announcements
GreenTools for Microsoft Apps (G4MS) Updated to v6.00 - Now Uses Microsoft Graph APIs GreenTools for Microsoft Apps (G4MS) Updated to v6.00 - Now Uses Microsoft Graph APIs
Posted by November 24, 2019
BVSTools >> BVSTools Announcements >> GreenTools for Microsoft Apps (G4MS) Specific Announcements

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).