UPOC testing

I tried the way you folks replied but I am not getting any display in Result pane.

proc tps_upoc_chg_from_ctrc_ {args} {

global HciSite HciConnName

keylget args MODE mode

set dispList {}

switch -exact — $mode {

time {

set mIns {}

set directory [file join F:/Interfaces $HciSite $HciConnName queue]

set files     [glob -directory $directory -nocomplain — *.txt]

foreach file $files {

set timestamp [clock seconds]

puts “Polled $file on [clock format $timestamp -format %m/%d/%Y] at [clock format $timestamp -format %H:%M:%S]:”

if {[::ctrc_::poll_chg_from_ctrc_ $file]} {

catch {

set mIn {}

dict set mIn FILE  $file

dict set mIn LINES {}

set handle [open $file r]

while {[gets $handle line] >= 0} {

dict lappend mIn LINES $line

}

close $handle

file delete -force $file

lappend mIns $mIn

puts ”    Processed:”

puts ”        [tcl_::label_ [llength [dict get $mIn LINES]] line lines]”

} message

if {$message != {}} {

puts ”    Error:”

puts ”        $message”

}

} else {

puts ”    Queued…”

}

}

set mOuts [::ctrc_::translate_chg_from_ctrc_ $mIns]

if {$mOuts != {}} {

puts “Processed [tcl_::label_ [llength $mIns] file files]:”

puts ”    [tcl_::label_ [llength $mOuts] message messages]”

foreach mOut $mOuts {

set out   [dict get $mOut SEGMENTS]

set outMH [msgcreate -class engine -type data -recover — [join $out r]r]

lappend dispList “CONTINUE $outMH”

}

}

}

}

return $dispList

}

I set up in Time Mode but still did not displaying any thing.

My set up:

Procs: tps_upoc_chg_from_ctrc_

Selected Leak Detection Time Mode selected Initial startup Interval 1  Selected Send to Proc  as hcitpstestsowbydisp.

I hardcoded the directory where file is residing

This is what I am seeing as output

Command Issued: hcitpstest -r time -L -i 1 -S -c sms_ib_data -e “hcitpstestshowbydisp ” “tps_upoc_chg_from_ctrc_”

Command output:

count must be > 0

Usage: D:quovadxqdx5.4.1integratorbinhcitpstest.exe [-a] [-c caller] [-e “proc args”] [-f format]

      [-i interval] [-L] [-m count] [-r runmode] [-S] [-s savebase]

      [file] [“proc1 args1” … “procN argsN”]

   -a               = process all records in file

   -c caller        = caller context name

   -e “proc args”   = end processing config

   -f format        = file format specifier

   -i interval      = delay interval (time mode)

   -m count         = max msg count (time mode)

   -L               = do Tcl handle leak detection

   -r runmode       = run mode

   -S               = run message-less Startup

   -s savebase      = save file base name

   file             = data file (run mode)

   “procN argsN”    = TPS module proc and args

caller values:

   ack_control

   fileset_ibdel

   fileset_ibdirparse

   pdupoc_read

   pdupoc_write

   prewrite

   proto_startup

   proto_startup_sendfail

   proto_startup_sendok

   reply_gen

   send_data_fail

   send_data_ok

   send_reply_fail

   send_reply_ok

   sms_fwd_data

   sms_fwd_reply

   sms_ib_data

   sms_ib_reply

   sms_ob_data

   sms_ob_reply

   xlt_gen

   xlt_post

   xlt_pre

   xlt_raw

   httpc_query

format values:

   len10     = 10-byte length encoded

   nl        = newline-terminated (default)

   eof       = eof-terminated

runmode values:

   run       = ‘normal’ run mode

   start     = start-up mode

   time      = time-based mode

   shutdown  = shut down mode

Thank you all! It worked. I really appreciate all the help