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('MACHINE') bnddir('WEBSRVUTL'); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Webservice Maschinen JSON-Format with JSON_ARRAYAGG // | |
| // // | |
| //----------------- // | |
| // R.Ross 03.2019 * // | |
| //------------------------------------------------------------------// | |
| // Prototypes // |
RainerRoss
/ PTRARRAY.RPGLE
Created
July 19, 2020 10:08
Code for the Array based on pointers in RPG AS400 powered by Sam John
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) main(main); | |
| //------------------------------------------------------------------// | |
| // Code for the Array based on pointers in RPG AS400 from Sam John // | |
| // https://www.myeasyclasses.com/2020/07/ // | |
| // code-for-array-based-on-pointers-in-rpg.html // | |
| //------------------------------------------------------------------// | |
| dcl-proc main; | |
| dcl-s ArrayData char(10) dim(10) based(ptr1); | |
| dcl-s ptr1 pointer; |
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
| //------------------------------------------------------------------// | |
| // QSYGETPH - Get Profile Handle // | |
| //------------------------------------------------------------------// | |
| dcl-pr getPrfHdl extpgm('QSYGETPH'); | |
| User like(GblUser) const; // User | |
| Password like(GblPassword) const; // Password | |
| Handle like(GblHandle); // Profilehandle | |
| Apierr like(DsApierr) const; // API-Error | |
| Pwdlen like(GblPwdlen) const; // Password-Length |
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) { |
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 * // | |
| //------------------------------------------------ |
OlderNewer