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

Add optional stack count parm to SndEscMsg

Browse Source
This commit is contained in:
SJLennon 2022-03-11 11:40:15 -05:00
parent ec14ffcf3f
commit fb9fb646ce
4 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Copy_Mbrs/SRV_MSG_P.RPGLE
View File

@ -14,6 +14,7 @@
//============================================================
D SndEscMsg pr Send ESC Msg
D piMsg 512a Const Varying
D pStackEnt 10i 0 Const options(*nopass)
//============================================================
D SndInfMsg pr Send INF Msg

9
Service_Pgms/SRV_MSG.RPGLE
View File

@ -189,13 +189,14 @@
D SndEscMsg PI
D piMsg 512a Const Varying
D piStackEnt 10i 0 Const options(*Nopass)
//--- Parameters for QMHSNDPM -------------------------
D MsgId c const('CPF9898')
d MsgF c const('QCPFMSG *LIBL ')
d MsgType c const('*ESCAPE ')
d PgmQue c const('* ')
d InvCount c const(2)
d InvCount s 10i 0 inz(2)
d ApiError s 17a inz(X'00')
d RetMsgKey s 4a
D DataLen s 10i 0
@ -208,6 +209,12 @@
DataLen = %len(PiMSG);
MsgData = piMsg;
if %parms = 2;
InvCount = piStackEnt;
else;
InvCount = 2;
endif;
QMHSNDPM(MsgId
:MsgF
:MsgData

6
Service_Pgms/SRV_MSGTD → Service_Pgms/SRV_MSGTD.DSPF
View File

@ -12,6 +12,7 @@
A CF05
A CF06
A CF07
A CF08
A CA12
A HELP
A*===============================================================
@ -30,10 +31,15 @@
A 2 72TIME
A 4 4'Message to send:'
A SH_MSG 69 B 5 4
A CHECK(LC)
A 8 4'F4 - SndMsgPgmQ'
A 9 4'F5 - ClrMsgPgmQ'
A 10 4'F6 - SndInfMsg'
A 11 4'F7 - SndEscMsg'
A 11 30'Stack Count:'
A SH_CNT 1Y 0B 11 43
A 11 47'(0 means used default)'
A 12 4'F8 - JobLogMsg'
A 40 6 4'Please enter a message.'
A DSPATR(RI)
A*===============================================================

20
Service_Pgms/SRV_MSGTR.RPGLE
View File

@ -24,6 +24,7 @@
D dfIndDS ds 99
D SH_ERR 40 40n
//=== Global Switches =========================================
D SflMsgSnt s n
D CowsComeHome c const('0')
@ -41,6 +42,9 @@
//=============================================================
exsr init;
SFT_KEYS='F3/F12=Exit';
SH_Cnt = 2;
SH_MSG = 'This is a fine pickle Ollie!';
dou CowsComeHome;
write SH_HDR;
write SFT_FKEY;
@ -80,12 +84,22 @@
//--- F06 --------------------------------------------------
when Key = F06;
SndInfMsg(SH_MSG);
SndInfMsg(SH_MSG);
iter;
//--- F07 --------------------------------------------------
when Key = F07;
SndEscMsg(SH_MSG);
if SH_CNT = 0;
SndEscMsg(SH_MSG);
else;
SndEscMsg(SH_MSG : SH_CNT);
endif;
iter;
//--- F08 --------------------------------------------------
when Key = F08;
JobLogMsg(SH_MSG);
iter;
endsl;
@ -137,7 +151,7 @@
D retField S N
D wkMsgId s 7a
D wkMsgFile s 10a
D wkMsgData s 80a varying
D wkMsgData s 512a varying
/FREE
if %parms >2;