Add Srv_Sql, Replace Others

2021-10-05 17:07:08 -04:00
parent 9578eca350
commit 467a7a002c
4 changed files with 4 additions and 0 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 ==================