X12 – TCL PROC

[Femina Jaffer]

I am trying to modify an existing TCL proc that manipulates an X12 transaction.

I need to append the ISA header to each TRN and then break it into separate files.  I am having a problem with getting the data between the ISA header and everything before the ~TRN, and then setting this to a variable.  Any advice would be most helpful and appreciated.

Thanks

FJ

Topic

[Charlie Bursell]

# I am not big on *ASSUMING* sep characters

set elSep [string index $msg 105]      ;# Normally ~

# get the header (ISA … ~) Just before TRN

set head [string range $msg 0 [string first “${elSep}TRN” $msg]]

# Remove header from message

set msg [string replace $msg 0 [string first “${elSep}TRN” $msg]]

Hope this helps

[Femina Jaffer]

Thanks Charlie!  I will give this a try.

FJ

[Author]

Replies