Add Message Commands

2021-08-17 12:27:32 -04:00
parent 661c5091fc
commit 3a9593c8ab
4 changed files with 129 additions and 0 deletions
@@ -0,0 +1,32 @@
+/* Command ...... : MOVPGMMSG - Move Program Messages             */
+/* CPP .......... : QMHMOVPM                                      */
+/* Author ....... : Brian Rusch                                   */
+/*                                                                */
+/* This is a command interface over IBM's API.                    */
+/*                                                                */
+/* Published in Four Hundred Guru on May 2, 2012                  */
+/* No warranties expressed or implied. Use at your own risk.      */
+/*                                                                */
+/* Compile with ALLOW(*BPGM *IPGM *BMOD *IMOD)                    */
+/* CRTCMD CMD(MOVPGMMSG) PGM(QMHMOVPM) SRCFILE(yourlib/srcfile)   */
+/*  ALLOW(*BPGM *IPGM *BMOD *IMOD)                                */
+
+
+            CMD        PROMPT('Move Program Messages')
+
+            PARM       KWD(MSGKEY) TYPE(*CHAR) LEN(4) CONSTANT(' ')
+
+            PARM       KWD(MSGTYPE) TYPE(*CHAR) LEN(10) RSTD(*YES) +
+                         DFT(*DIAG) VALUES(*COMP *DIAG *ESCAPE +
+                         *INFO) PROMPT('Message type')
+
+            PARM       KWD(NBRTYPS) TYPE(*INT4) CONSTANT(1)
+
+            PARM       KWD(TOPGMQ) TYPE(*CHAR) LEN(10) RSTD(*YES) +
+                         DFT(*PGMBDY) VALUES(* *CTLBDY *PGMBDY) +
+                         PROMPT('Call stack entry')
+
+            PARM       KWD(UPSTKCNT) TYPE(*INT4) CONSTANT(1)
+
+            PARM       KWD(ERRCOD) TYPE(*CHAR) LEN(8) +
+                         CONSTANT(X'0000000800000000')