removing segments — question

Homepage Clovertech Forums Read Only Archives Cloverleaf Tcl Library removing segments — question

  • Creator
  • #51243
    Josh Fishel

    Hi again,

    I need to loop through all of the AL1 segments and grab the AL1-3 field, then concat them into one AL1-3 field in a new AL1 segment (which i have done).

    The part that i cannot seem to figure out is how to remove the other AL1 segments.  I only need the one AL1 segment that I created, and need to remove the others.  Is this possible?  If so, how?

    Thank you,


Viewing 7 reply threads
  • Author
    • #69324
      Troy Morton

      Hi Joel,

      There are two ways that I have done this.

      1) Write a Tcl Procedure that runs post-Xlate which will remove the unwanted segments from the messages.

      2) In your Xlate, do not BULKCOPY, PATHCOPY or COPY any data to the iterations of the AL1 segment that you do not want to appear in the outbound message.

      When Cloverleaf creates the outbound message in Xlate, it starts out completely empty.  Only things that you COPY from the input to the output will appear in the outbound message.

      Make sense?

    • #69325
      Josh Fishel

      I would like to use Tcl because I have to do this for several ADT messages of different types, so the XLATE would be out (from what i can tell).  

      So i guess what i’m really asking is, what would be the syntax to do something like this?

    • #69326
      Tom Rioux


      Here is one way to do it in Tcl.  I’m sure there are cleaner and more slick ways to do it though:

      Set your new AL1 segment to some variable:  newAL1

      Create an index of your old AL1 segments that you want to remove and set it to a variable:

        set oldAL1 [lsearch -regexp -all $msg ^AL1]

      Now remove those segments from the msg variable:

       set msg [lreplace $msg [lindex $oldAL1 0] [lindex $oldAL1 end] ]

      Then just add your new AL1 segment in its place:

        set msg [linsert $msg [lindex $oldAL1 0] $newAL1]

      Hope this helps…Tom

    • #69327
      Troy Morton

      This procedure parses the message and puts it back together only including the 1st AL1 segment, discarding all the other AL1 segments.

      proc rm_al1 { msg } {

      proc rm_al1 { msg } {

    • #69328
      Charlie Bursell

      You know how I hate to loop  😆

      # Get a list of *ALL* AL1 locations

      set LOCS [lsearch -all -regexp $SEGMENTS {^AL1}]

      # Pop off the first one so you keep it

      lvarpop LOCS

      # Traverse the list backward to maintain location in list

      foreach loc [lsprt -decreasing -integer $LOCS] {lvarpop SEGMENTS $loc}

      There you have it.  Just join the segments back together and do the msgset.  Three lines  of code  😉

    • #69329
      Troy Morton

      I admittedly am not good with regexp and so I end up coding things in loops.

      Thanks for this code snipit, Charlie.  I’m gonna file this in my Tcl bible.   😆

    • #69330
      Charlie Bursell

      I hope you noticed that lsprt  should be lsort

      Fingers are fasterthan the brain  😉

    • #69331
      Josh Fishel

      Got it!  Thanks for all your help!!

      and yes i did notice the lsort 🙂

Viewing 7 reply threads
  • The forum ‘Tcl Library’ is closed to new topics and replies.

Forum Statistics

Registered Users
Topic Tags