OBX Limit 300 and DSC segment

[Alka Sharma]

Hi Everyone,

I am looking for some help in figuring out how to break a long message into smaller messages using a tcl proc. We have a limitation of 300 OBX’s to LCR. Procs is attached. It works when I have OBX number less than 300 or more than 300 but fails to split the message when the OBX is exactly 300 or 600 or 900.

So if the message has 300 OBX’s I need one message. If the message has more than 300 OBX’s say 353, we need to create 2 messages with a DSC segment at the end of the first message and continuation counter on the 2nd message. I have attached my proc.

Thanks for your help in advance.

Alka…

Topic

[Daniel Lee]

I’ve just skimed over your code, but my ‘guess’ at what’s happening is in that the last piece of your code.  The comment says “#If the message has less than 300 OBX, then it falls here”.  However, I don’t think that’s what’s happening.  I think that code is getting executed all the time.  If the number of OBX segments is not divisible by 300 I think it’s working because it’s taking all of the extra OBX segments and putting them in the last message.  However, if it’s exactly divisible by 300 it looks like it’s still creating another message even though there’s no OBX segments to put in it.  I wonder if you need to wrap that whole last section in an if statement that only executes if there is data in $DSCList.

[Author]

Replies