Merge pull request #1 from IBMiservices/writing

Writing

Author: ibmiiste

.gitignore

@@ -0,0 +1,7 @@
+**/.deps
+**/.evfevent
+**/.logs
+**/.DS_Store
+**/Thumbs.db
+.project
+.env

.vscode/actions.json

@@ -0,0 +1,28 @@
+[
+  {
+    "extensions": [
+      "GLOBAL"
+    ],
+    "name": "Build all",
+    "command": "OPT=*EVENTF BUILDLIB=&CURLIB /QOpenSys/pkgs/bin/makei build",
+    "environment": "pase",
+    "deployFirst": true,
+    "postDownload": [
+      ".logs",
+      ".evfevent"
+    ]
+  },
+  {
+    "extensions": [
+      "GLOBAL"
+    ],
+    "name": "Build current",
+    "command": "OPT=*EVENTF BUILDLIB=&CURLIB /QOpenSys/pkgs/bin/makei compile -f &BASENAME",
+    "environment": "pase",
+    "deployFirst": true,
+    "postDownload": [
+      ".logs",
+      ".evfevent"
+    ]
+  }
+]

.vscode/tasks.json

@@ -0,0 +1,12 @@
+{
+  "version": "2.0.0",
+  "tasks": [
+    {
+      "label": "Install dependencies",
+      "type": "shell",
+      "command": "python",
+      "args": ["install_deps.py"],
+      "problemMatcher": []
+    }
+  ]
+}

Rules.mk

@@ -0,0 +1 @@
+SUBDIRS = core dep/messageutils/core dep/CommandsAPI/core

core/ADDPRINTSERVICES.BNDDIR

@@ -0,0 +1,4 @@
+/* Have to delete the BNDDIR, or it will always be older than the source */
+/* because the CRTBNDDIR will fail the second time and only the ADDBNDDIRE is executed */     
+!CRTBNDDIR BNDDIR(&O/SERVICES)
+ADDBNDDIRE BNDDIR(&O/SERVICES) OBJ((*LIBL/PRINT *SRVPGM))

core/PRINT.BND

@@ -0,0 +1,5 @@
+STRPGMEXP  PGMLVL(*CURRENT) SIGNATURE('V0.9.0')
+  EXPORT SYMBOL(OpenSpool)
+  EXPORT SYMBOL(WriteSpool)
+  EXPORT SYMBOL(CloseSpool)
+ENDPGMEXP

core/Rules.mk

@@ -0,0 +1,3 @@
+PRINT.MODULE: print.rpgle
+PRINT.SRVPGM: PRINT.BND PRINT.MODULE
+SERVICES.BNDDIR: ADDPRINTSERVICES.BNDDIR PRINT.SRVPGM

core/print.rpgle

@@ -0,0 +1,76 @@
+**FREE
+Ctl-Opt NoMain Option(*SrcStmt : *NoDebugIO) Bnddir('SERVICES');
+
+Dcl-F QSYSPRT PRINTER(132) usropn oflind(overflow);
+
+/include 'PRINT.RPGLEINC'
+/include 'commands.RPGLEINC'
+
+// // ============================================================
+// //  Set up test suite. Executed once per RUCALLTST.
+// // ============================================================
+Dcl-proc setUpSpool export;
+Dcl-pi *n;
+    spoolAInitialiser likeds(Spool);
+end-pi;
+
+ Dcl-s rc Char(1);
+
+ execCommand('OVRPRTF FILE(QSYSPRT) TOFILE(*FILE) +
+                  SPLFNAME(' + %trim(spoolAInitialiser.spoolName) + ') OVRSCOPE(*JOB)');
+ monitor;
+     OpenSpool();
+     print('Executing:   setUpSpool('+ %trim(spoolAInitialiser.spoolName) + ')');
+ on-error;
+     // ignore errors ...
+     // ... but try to remove the override.
+     monitor;
+         execCommand('DLTOVR FILE(QSYSPRT) LVL(*JOB)');
+     on-error;
+         dsply '*** Failed to delete QSYSPRT override! ***' rc;
+     endmon;
+ endmon;
+
+End-Proc;
+
+// ============================================================
+//  Ouvre le spool.
+// ============================================================
+ Dcl-Proc OpenSpool export;
+ Dcl-PI *N;
+ End-PI;
+
+     open QSYSPRT;
+
+ End-Proc;
+
+// ============================================================
+//  Écrit un message dans le spool.
+// ============================================================
+ Dcl-Proc WRITESPOOL export;
+ Dcl-PI *N;
+     MESSAGE CHAR(132) CONST;
+ End-PI;
+
+ Dcl-DS lineOutput LEN(132) INZ;
+ END-DS;
+
+
+ lineOutput = %trim(MESSAGE);
+    
+ write QSYSPRT lineOutput;
+
+ End-Proc;
+
+// ============================================================
+//  Ferme le spool.
+// ============================================================
+ Dcl-Proc CloseSpool export;
+ Dcl-PI *N;
+ End-PI;
+
+ if (%open(QSYSPRT));
+     close QSYSPRT;
+ endif;
+
+ End-Proc;

dep/APIIBMi/README.md

@@ -0,0 +1,2 @@
+# API
+Gestion des API