Call Statement (as provided by you)
OBX5 [datget [xpmfetch $xlateId 1(0).1(0).1(%g1).OBX(0).00573] VALUE]
if {[string length $OBX5] > 80} {
set pos 0
set cnt 0
while {$pos < [string length $OBX5]} {
xpmstore $xlateId {1(0).1(0).1(%g1).NTE($cnt).00098} c [string range $OBX5 $pos [expr $pos + 80]]
incr pos 80
incr cnt
}
} else {
xpmstore $xlateId {1(0).1(0).1(%g1).NTE(0).00098} c $OBX5
}