Hi *all
Wir machen per CLP ein sbmrmtcmt auf ein CLP, das ein sndpgmmsg *escape macht.

SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) MSGDTA('Test') TOPGMQ(*PRV) MSGTYPE(*ESCAPE)

Diese CPF kann vom Rufenden System abgefragt und somit beachtet werden.

Anstatt eines CLP Programms will ich aber ein RPG rufen.
Alle versuche mit dem API QMHSNDPM die CPFMSG an den remoten Job zu bekommen schlugen bisher fehl.

Wer kann helfen?

C EVAL QMHMSGID = 'CPF9898'
C EVAL %SUBST(QMHMSGF:1:10) = 'MI_MSGMS '
C EVAL QMHMSGDTA = ##DATA
C EVAL QMHMSGLEN = %LEN(%TRIM(QMHMSGDTA))
C EVAL QMHMSGTYP = '*ESCAPE'
C EVAL QMHMSGENT = '*'
C EVAL QMHMSGCTR = 0
C CLEAR QUSEC
C CALL(E) 'QMHSNDPM'
* ==== ============
C PARM QMHMSGID
C PARM QMHMSGF
C PARM QMHMSGDTA
C PARM QMHMSGLEN
C PARM QMHMSGTYP
C PARM QMHMSGENT
C PARM QMHMSGCTR
C PARM QMHMSGKEY
C PARM QUSEC
*

Gruß Robi