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