ecki/IBM-i-RPG-Free-CLP-Code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use Binder Source, add JobLogMsg

Browse Source
This commit is contained in:
SJLennon
2021-12-08 12:12:14 -05:00
parent 0e57f94f2a
commit 5e99362069
7 changed files with 265 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Copy_Mbrs/SRV_MSG_P.RPGLE
+13 -2
View File
@@ -13,10 +13,21 @@
//============================================================
D SndEscMsg pr Send ESC Msg
D piMsg 1024a Const Varying
D piMsg 512a Const Varying
//============================================================
D SndInfMsg pr Send INF Msg
D piMsg 1024a Const Varying
D piMsg 512a Const Varying
//============================================================
D JobLogMsg Pr
D piMsg 512a Value Varying Msg to job log
//============================================================
D Show pr extpgm('SHOW') Show popup msg
D piPext 8192a Const Varying
D piMsgId 7a Const options(*NOPASS)
d piMsgFile 21a Const options(*NOPASS)
//=== End of Prototypes forSRV_MSG Routines ==================