This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| var express = require('/QOpenSys/QIBM/ProdData/Node/bin/node_modules/express'); | |
| var app = express(); | |
| var server = require('http').createServer(app); | |
| var io = require('/QOpenSys/QIBM/ProdData/Node/bin/node_modules/socket.io').listen(server); | |
| var conf = {"port": 8020}; | |
| app.use("/css", express.static(__dirname + '/css')); | |
| app.get('/', function(request, response) { | |
| response.sendfile(__dirname + '/html/index_chat.htm'); |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| var db = require('/QOpenSys/QIBM/ProdData/Node/os400/db2i/lib/db2'); | |
| var chatdata = { | |
| date : "2015-01-04", | |
| time : "10:45:05", | |
| user : "Rainer", | |
| text : "this is a wonderful text" | |
| }; | |
| function createString(data) { |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt dftactgrp(*no) option(*nodebugio:*nounref); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Get JSON from IFS // | |
| // // | |
| //----------------- // | |
| // R.Ross 07.2018 * // | |
| //------------------------------------------------------------------// | |
| // Array SQL-Result // | |
| //------------------------------------------------------------------// |
RainerRoss
/ COPPERXML.SQLRPGLE
Last active
March 20, 2022 17:57
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt main(main) dftactgrp(*no) option(*nounref); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Get Copper-Prices with HTTPGETCLOB // | |
| // // | |
| //----------------- // | |
| // R.Ross 08.2018 * // | |
| //------------------------------------------------------------------// | |
| // Array XML-File - Das Rootelement quandl-response wird mit // | |
| // Rsp (Response) abgekürzt: path=quandl-response // |
RainerRoss
/ qcpysrc.comutl.rpgle
Last active
March 20, 2022 17:59
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| //------------------------------------------------------------------// | |
| // Create JSON-Status // | |
| //------------------------------------------------------------------// | |
| dcl-pr crtJSONStatus char(270) ccsid(*utf8) rtnparm; | |
| PiSuccess varchar(05) const; | |
| PiErrmsg char(256) const; | |
| end-pr; | |
RainerRoss
/ UPLOAD10.RPGLE
Created
September 15, 2018 10:21
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt dftactgrp(*no) alloc(*teraspace) option(*nodebugio) | |
| main(main) actgrp('UPLOAD') bnddir('WEBSRVUTL':'YAJL'); | |
| //------------------------------------------------------------------// | |
| // // | |
| // File Upload with Webix // | |
| // // | |
| //----------------- // | |
| // R.Ross 09.2018 * // | |
| //------------------------------------------------ |
RainerRoss
/ SoapAddme.RPGLE
Created
September 25, 2018 06:46
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt dftactgrp(*no) actgrp('ADDME') pgminfo(*pcml:*module); | |
| //------------------------------------------------------------------// | |
| // SOAP-Webservice // | |
| //------------------------------------------------------------------// | |
| //------------------------------------------------------------------// | |
| // Parameter // | |
| //------------------------------------------------------------------// | |
| dcl-pr addme; |
RainerRoss
/ GETXML01.RPGLE
Last active
March 20, 2022 18:00
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt dftactgrp(*no) alloc(*teraspace) option(*nodebugio:*nounref) | |
| main(main) actgrp('GETXML') bnddir('WEBSRVUTL'); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Get XMLInput from HTTP-Server and send XMLOutput to HTTP-Server // | |
| // // | |
| //----------------- // | |
| // R.Ross 09.2018 * // | |
| //------------------------------------------------ |
RainerRoss
/ ECBRATE.SQL
Last active
March 20, 2022 18:01
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| SELECT my_cube.rate_time, my_cube.currency, my_cube.rate | |
| FROM | |
| XMLTABLE( | |
| -------------- Declare Namespaces ---------------------- | |
| XMLNAMESPACES( | |
| DEFAULT 'http://www.ecb.int/vocabulary/2002-08-01/eurofxref', | |
| 'http://www.gesmes.org/xml/2002-08-01' AS "gesmes" | |
| ), | |
| -------------- Row Expression -------------------------- | |
| 'gesmes:Envelope/Cube/Cube/Cube' |
RainerRoss
/ CSVSPLIT.SQLRPGLE
Created
May 15, 2019 08:37
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ctl-opt dftactgrp(*no); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Einlesen einer CSV-Datei und Verarbeiten mit Split() // | |
| // // | |
| //----------------- // | |
| // R.Ross 05.2019 * // | |
| //------------------------------------------------------------------// | |
| // SQL-Options // | |
| //------------------------------------------------------------------// |
OlderNewer