sndpgmmsg en free

jma(@jma)

163 messages

27 novembre 2018, 11 h 17 min

Bonjour,

Quelqu'un aurait l’équivalent de ca :

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('TCP/IP
status is not active.') MSGTYPE(*ESCAPE)

en Free, afin d'afficher un message en bas l'écran lorsqu'on n'utilise pas de DSPF ?

Merci

Jean

monthi(@skogkatt)

354 messages

27 novembre 2018, 11 h 28 min

Bonjour

utilise l'API QMHSNDPM.

Cdlt

larry57(@larry57)

97 messages

24 décembre 2018, 10 h 57 min

Bonjour,

Ci-dessous un exemple :

* gestion des messages
D MsgKey s 4a
* Ajout de message
D MsgTxt s 256a Varying
D SndPgmMsg Pr ExtPgm( 'QMHSNDPM' )
D SpMsgId 7a Const
D SpMsgFq 20a Const
D SpMsgDta 128a Const
D SpMsgDtaLen 10i 0 Const
D SpMsgTyp 10a Const
D SpCalStkE 10a Const Options( *VarSize )
D SpCalStkCtr 10i 0 Const
D SpMsgKey 4a
D SpError 10i 0 Const
* clear message
D RemoveMessage pr ExtPgm('QMHRMVPM')

D Error_Code 116a
*
D Rmv_PgmQue s 10A Inz('*')
D Rmv_StkCnt s 8B 0 Inz(0)
D Rmv_MsgKey s 4A Inz(*Blank)
D Rmv_Remove s 10A Inz('*ALL')
D Error_Code S 116a

Suppression des messages :

RemoveMessage(Rmv_PgmQue:Rmv_StkCnt:Rmv_MsgKey:Rmv_Remove:Error_Code);

Message en bas

msgTxt = 'Test';
sndPgmMsg('':'':MsgTxt:%len(MsgTxt):'*INFO':'*':*zero:msgKey:*zero);

Bon courage.

Larry57