Hi,
I am stuck on an issue that should be simple but I can't figure it out.
I want my rpg ile program to manage a display file and send error messages at the bottom of the display station.
To do this I call QMHSNDPM from within my interactive program, with the following code:
The code seems to me pretty common and I found it well explained in many articles. I tried CPF9897 as well but nothing changed.
The display file is compiled with the following options:
and these are the record format keywords set for the display:
I can't never get the message be displayed at the bottom of the display station but I cannot find out why.
Just after I call the API an "exfmt FMPARM09 " is executed.
What am I missing?
Thank you
I am stuck on an issue that should be simple but I can't figure it out.
I want my rpg ile program to manage a display file and send error messages at the bottom of the display station.
To do this I call QMHSNDPM from within my interactive program, with the following code:
Code:
D SndPgmMsg2 PR ExtPgm('QMHSNDPM') D MessageID 7A Const D QualMsgF 20A Const D MsgData 256A Const D MsgDtaLen 10I 0 Const D MsgType 10A Const D CallStkEnt 10A Const D CallStkCnt 10I 0 Const D MessageKey 4A D ErrorCode 1A D dsEC DS D dsECBytesP 1 4B 0 INZ(256) D dsECBytesA 5 8B 0 INZ(0) D dsECMsgID 9 15 D dsECReserv 16 16 D dsECMsgDta 17 256 D wwMsg S 128A D wwMsgType S 10A D wwMsgStCall S 10A D wwMsgStCntr S 4B 0 D wwMsgLen S 10I 0 D wwMsgKey S 4A ... c eval wwMsg = 'some text' c eval wwMsgType = '*STATUS' c eval wwMsgStCall = '*EXT' c eval wwMsgStCntr = 0 c callp(e) SndPgmMsg2('CPF9898' c : 'QCPFMSG *LIBL' c : %trim(wwMsg) c : wwMsgLen c : wwMsgType c : wwMsgStCall c : wwMsgStCntr c : wwMsgKey c : dsEC c )
The display file is compiled with the following options:
Code:
ENHDSP *YES RSTDSP *YES DFRWRT *YES
Code:
A R FMPARM09 A OVERLAY A PUTOVR A OVRDTA
Just after I call the API an "exfmt FMPARM09 " is executed.
What am I missing?
Thank you
Comment