Trouble with dispList apending new records

Your dispList can only have dispositions and message handles. You can’t put message contents directly in the dispList. I don’t quite understand what you’re trying to do, but instead of this:

 lappend dispList “CONTINUE $obr_end_tag”

you could try this:

 msgappend $nmh $obr_end_tag

Or better yet, replace the else block with this:

Am I missing something here.  Seems like a very simple problem made hard

Why not simply

       run {

           # Get message

           keylget args MSGID mh

           set ibMsg [msgget $mh[

           # Remove

           regsub -line — {} $ibMsg {} ibMsg

           # Insert after

           regsub -line — {} $ibMsg {} ibMsg

           # Get rid of extra LF

           set ibMsg [string map

$ibMsg]

           msgset $mh $ibMsg

           return “{CONTINUE $mh}”

       }

Sorry I did not test it in the proc.  I thought the string map command would take care of the extra line feed.  On Windows, in Tcl, CRLF is treated as simply LF.

I was not aware you wanted a LF prior to the added OBR.

In the code below, note that replacement value in second regsub in inside double quotes (“”) instead of braces ({}).  That is so Tcl will interpret the n as a LF

Try this.  Still pretty simple stuff  😀

run {

           # Get message

           keylget args MSGID mh

           set ibMsg [msgget $mh]

           # Remove and LF

           regsub -line — {n} $ibMsg {} ibMsg

           # Insert after include LF

           regsub -line — {} $ibMsg “n” ibMsg

           msgset $mh $ibMsg

           return “{CONTINUE $mh}”

       }