Re: RCVMSG hell...

["sjl" <sjl_abc@xxxxxxxxxxx>]

Buck -

I tried this technique in my program [ with the only change being to receive 
MSGTYPE(*ANY) ], but it doesn't receive any of the messages which get 
generated from the time that the FTP command until it ends...

 - sjl


Buck wrote:
  The method is easy enough.  You send a place holder message at the
  beginning of your process and save the message key.  You send another
  message at the end and save that key.  Then do a RCVMSG for every
  message key in that range.

sndpgmmsg 'start save' topgmq(*same) keyvar(&key_start)
rmvmsg    msgkey(&key_start)

/* do a big pile of stuff */


/* big pile finished... did any errors occur? */
  sndpgmmsg 'stop save' topgmq(*same) keyvar(&key_stop)
  rmvmsg    msgkey(&key_stop)

  /* calculate the first possible diagnostic message */
  chgvar %bin(&msgkey 1 4) (%bin(&key_start 1 4) + 1)

get_msg:
  /* get the diagnostic message */
  RCVMSG PGMQ(*SAME (*)) +
         MSGTYPE(*DIAG) RMV(*no) MSGDTA(&MSGDTA) +
         MSGID(&MSGID) msgkey(&msgkey)
  monmsg cpf2410 exec(do) /* msg not found */
    rcvmsg msgtype(*excp) rmv(*yes) /* delete unwanted msg */
    goto next_msg
  enddo

  /* if empty, all done */
  if (&msgid *eq '       ') goto exitpgm

/* process the message */

next_msg:
  /* increment the message key */
  chgvar %bin(&msgkey 1 4) (%bin(&msgkey 1 4) + 1)
  if (&msgkey *lt &key_stop) goto get_msg

exitpgm: