Faq400Git

// Load the http module to create an http server.
var httpServer = require('http');
// Configure our HTTP server to respond with Hello World to all requests.
var server = httpServer.createServer(function (request, response) {
response.writeHead(200, {"Content-Type": "text/html"});
response.write("<h1>Node.js testing parms</h1>");
response.write("<UL>");
process.argv.forEach(function (val, index, array) {
    response.write("<LI>Parameter Number "+ index + ' value ' + val+ "</LI>");
  });

Faq400Git

        ctl-opt dftactgrp(*no) ;

      //-----------------------------------------------------------------------*
      // TS_BCE: Get Exchange Rate from ECB/BCE Web Service
      // This source is part of Faq400 Blog's post
      // https://blog.faq400.com/it/?p=2648
      //-----------------------------------------------------------------------*


        dcl-pr qCmdExc ExtPgm('QCMDEXC');

Faq400Git

-------------------------------------------------------------
-- THIS MATERIAL IS PART OF MY POST BLOG
-------------------------------------------------------------

--------------------------------
-- FIRST CREATE AN AUDIT TABLE
---------------------------------
CREATE OR REPLACE TABLE sampledb.Employee_AuditLog (
MYKEY VARCHAR(300),
EVENT CHAR(1),

Faq400Git

-----------------------------------------------------------------------------------------------------------------------------------
Thist Gist is part of iJSON-FAQ-007: Data-Into-Multi-Object-Arrays (https://blog.faq400.com/it/programmazione/json-ibmi-faq-howto/)
-----------------------------------------------------------------------------------------------------------------------------------

-------------------------------------------
JSON Example with Multi Objects and Arrays
-------------------------------------------
{
    "success": true,
    "header": null,

Faq400Git

     A*%%TS  SD  20200413  144425  FAQ400      REL-V7R2M0  5770-WDS
     A* Surce preso da esempio
     A* http://www.rpgpgm.com/2016/05/example-subfile-program-using-modern-rpg.h
     A*%%EC
     A                                      DSPSIZ(27 132 *DS4)
     A                                      CHGINPDFT(HI CS)
     A                                      PRINT
     A                                      INDARA
     A                                      CA03(03 'F3=Exit')
     A          R DUMMY

Faq400Git

-- Google Translator (API Key Roberto.depedrini@faq400.com)
create variable faq400.GV_GoogleAPIKey varchar(100) default('xxxxxxxxxxxxxxx'); -- YOUR API KEY Here!
create variable faq400.GV_URL varchar(256);
create variable faq400.GV_HEADER varchar(1000);
create variable faq400.GV_HEADERJSON varchar(1000);
create variable faq400.GV_BODY varchar(32000);


-- A simple Word table
drop table qtemp.FruitNames;

Faq400Git

      * --------------------------------------------
      * SPAWNTST1 Testing Scott Klement SPAWNPASE
      *           running some simple command and 
      *           scripts in QP2SHELL environment
      +
      * Original code from Scott Klement (SPAWNPASE)
      *
      * 
      *
      * This demonstrates connecting pipes to a spawned job, and

Faq400Git

        //------------------------------
        // F4GETFLDS Get Field Description
        // If you need fields info from a DSPF o PRTF
        // you can't use QSYS2.SYSCOLUMNS view ... so
        // this utility will create a FAQ400.IVDDALLF0F table
        // with fields info from a file (table, index,
        // dspf or prtf)
        // References:
        //  http://www.think400.dk/apier_9.htm#eks0007
        // https://www.mcpressonline.com/programming/apis/