API - QMHRCVM - Problem

[muadeep]

Hallo,

wie kann ich mit dem API-QMHRCVM z.B die 10 ältesten Nachrichten auslesen?


Mein Beispiel (siehe unten) liest mir leider immer nur die erste (älteste) Nachricht aus!




C Do 10

C Eval MsgInfoLn = 944
C Eval FmtName = 'RCVM0200'
C Eval MsgQueue = QSPMQN + QSPMQLN
C Eval MsgType = '*NEXT'
C Eval MsgKey = '*TOP'
C Eval WaitTime = 0
C Eval MsgAction = '*OLD'

C Call 'QMHRCVM'
C Parm MsgInfo
C Parm MsgInfoLn
C Parm FmtName
C Parm MsgQueue
C Parm MsgType
C Parm MsgKey
C Parm WaitTime
C Parm MsgAction
C Parm API_Err

C Eval MsgDta = %subst(RplData:LenRplDta + 1 : +
C LenMsgRet)

C CallP SendEscMsg ('CPF9897':'QCPFMSG *LIBL':
C MsgDta:%len(MsgDta):'*STATUS':'*EXT':0:
C MsgKey:API_Err)

C EndDo

[Fuerchau]

Jede Nachricht hat einen MSGKEY.
Nach Erhalt einer Nachricht musst du diesen MSGKEY wieder als Relation im Parameter MsgKey angeben.

Wobei du natürlch über die Richtung im klaren sein musst:

*LAST/*PREV
*TOP/*NEXT