Reply To: Need Help!

######################################################################
# Name: over_to_ibTPS
# Purpose:
# UPoC type: tps
# Args: tps keyedlist containing the following keys:
#       MODE    run mode (”start”, “run” or “time”)
#       MSGID   message handle
#       ARGS    user-supplied arguments:
#              
#
# Returns: tps disposition list:
#          
#

proc over_to_ibTPS { args } {
   keylget args MODE mode               ;# Fetch mode

   set dispList {} ;# Nothing to return

   switch -exact — $mode {
       start {
           # Perform special init functions
   # N.B.: there may or may not be a MSGID key in args
       }

       run {
   # ‘run’ mode always has a MSGID; fetch and process it
           keylget args MSGID mh
           lappend dispList “CONTINUE $mh”
           set msg [msgget $mh]
           set new_mh [msgcreate -recover $msg]
           lappend dispList “OVER $new_mh”
       }

       time {
           # Timer-based processing
   # N.B.: there may or may not be a MSGID key in args
       }

       default {
   error “Unknown mode ‘$mode’ in proto_to_ibTPS”
       }
   }

   return $dispList
}