String accumulation Error

[lauriesamh]

I'm using CR10 and trying to accumulate strings of transaction IDs and am hitting the 65334 limit. I've tried to get around this and am hoping someone can assist in figuring how to accumulate strings into separate "buckets" if a bucket of strings exceeds the length limit.

(@accum)
whileprintingrecords;
shared stringvar x;
shared stringvar x2;

if (recordnumber > (({?Show X Percent of TXN}/100)*distinctcount({table.Txn_ID})) and
len (x + {table.Txn_ID} + "^")<65534) then
x := x + {table.Txn_ID} + "^" ;

if (recordnumber > (({?Show X Percent of TXN}/100)*distinctcount({table.Txn_ID})) and
len(x + {table.Txn_ID} + "^")>=65533) then
if (recordnumber > ({?Show X Percent of TXN}/100)*distinctcount({table.Txn_ID}) and
len(x2)=0) then
if (recordnumber > ({?Show X Percent of TXN}/100)*distinctcount({table.Txn_ID}) and
len (x2 + {table.Txn_ID} + "^")<65534) then
x2:=x2+{table.Txn_ID} + "^";