removing segments — question

[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,

Josh

Topic

[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?

[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?

[Tom Rioux]

Joel,

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

[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 } {

[code]
proc rm_al1 { msg } {

[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  😉

[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.   😆

[Charlie Bursell]

I hope you noticed that lsprt  should be lsort

Fingers are fasterthan the brain  😉

[Josh Fishel]

Got it!  Thanks for all your help!!

and yes i did notice the lsort 🙂

[Author]

Replies