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
| -- Rainer Ross DE154580259, Toolmaker DE128668519, Giesswein ATU31774906 | |
| values QSYS2.HTTP_POST( | |
| 'http://ec.europa.eu/taxation_customs/vies/services/checkVatService', | |
| '<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:ec.europa.eu:taxud:vies:services:checkVat:types"> | |
| <soapenv:Header/> | |
| <soapenv:Body> | |
| <urn:checkVat> | |
| <urn:countryCode>DE</urn:countryCode> |
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
| //------------------------------------------------------------------------------// | |
| // Node.js Modules // // | |
| //------------------------------------------------------------------------------// | |
| const nodemailer = require('nodemailer'); | |
| const http = require('http'); | |
| const port = 8080; | |
| //------------------------------------------------------------------------------// | |
| // Antwort des HTTP-Servers // // |
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
| ctl-opt main(main) dftactgrp(*no) alloc(*teraspace); | |
| //------------------------------------------------------------------// | |
| // // | |
| // Test - Regex - EMail // | |
| // // | |
| //----------------- // | |
| // R.Ross 07.2020 * // | |
| //------------------------------------------------------------------// | |
| // Send Program Message // | |
| //------------------------------------------------------------------// |
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
/ UploaderWithPreview.html
Created
May 15, 2019 14:13
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
| <!DOCTYPE html> | |
| <html> | |
| <head> | |
| <meta charset="utf-8"> | |
| <title>Uploader mit Vorschau</title> | |
| <link rel="stylesheet" href="http://cdn.webix.com/edge/webix.min.css"> | |
| <style> | |
| .picture_selector .webix_image { | |
| background-size: contain; | |
| border: 1px solid #A4BED4; |
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 // | |
| //------------------------------------------------------------------// |
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
/ 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 * // | |
| //------------------------------------------------ |
NewerOlder