I had a few errors in the code but below is a working tcl script :

proc set_outbound_name {args} {

set dispList {}

# Get mode
set mode “”
catch {keylget args MODE mode}

if {$mode ne “run”} {
return $dispList
}

# Get message ID
set msgid “”
catch {keylget args MSGID msgid}

if {$msgid eq “”} {
echo “DEBUG: MSGID missing”
return…Read more

Will make amends and let you know.

The issue is that its not attaching the “new” file name so its failing by saying file name is blank

Thanks again

I have a script : to remove the characters WBS and replace with NIBTS

proc set_outbound_name {args} {

# Extract MODE safely
if {[catch {keylget args MODE mode}]} {
return “”
}

# ✅ Ignore startup call
if {$mode eq “start”} {
return “”
}

# Extract MSGID and ARGS safely
if {[catch {keylget args MSGID msgid}]} {
return “”
}

if {[catch…Read more

I need to remove the leading zeros at the start of the line only. ie 00008 to  8

I can remove the leading zeros via a tcl proc but it wont read the message in.

proc removeLeadingZerosPerLine {DATA args} {

echo “RUNNING PROC VERSION: PRE-WRITE SIGNATURE”
echo “removeLeadingZerosPerLine: START”
echo “Original…Read more