Add Supporting code

Copy file and service program
2020-09-29 15:38:54 -04:00
parent b0bb8f4b16
commit 6e68066de0
9 changed files with 632 additions and 1 deletions
@@ -0,0 +1,22 @@
+
+       //=== Prototypes for SRV_MSG routines ========================
+       //============================================================
+     D SndMsgPgmQ      pr                                                       Send Msg to PGM Q
+     D  pMsgQ                        10
+     D  pMsgid                        7
+     D  pMsgFile                     10
+     D  pMsgDta                      80    options(*NOPASS)
+     D                                     Varying
+       //============================================================
+     D ClrMsgPgmQ      pr              N                                        Clear PGM Msg Q
+     D pPgmMsgQ                      10
+
+       //============================================================
+     D SndEscMsg       pr                                                       Send ESC Msg
+     D piMsg                       1024a   Const Varying
+
+       //============================================================
+     D SndInfMsg       pr                                                       Send INF Msg
+     D piMsg                       1024a   Const Varying
+
+       //=== End of Prototypes forSRV_MSG Routines ==================