to strip _trailing_ field markers
KEY.LIST := '~~' ; * some arb char set that wont be evident in the data
LOOP
CHANGE(KEY.LIST, @FM:'~~', '~~')
UNTIL KEY.LIST[LEN(KEY.LIST)-2,1] NE @FM
REPEAT
CHANGE(KEY.LIST, '~~', "")
to force unique list (with REMOVE you don't have to know how many
attributes are in FM.ARRAY)
UNIQ.LIST = ''
LOOP
REMOVE NEXT.ID FROM FM.ARRAY SETTING MORE
LOCATE(NEXT.ID,UNIQ.LIST,1;POS) ELSE UNIQ.LIST<-1> = NEXT.ID
WHILE MORE
REPEAT
_______________________________________________
U2-Users mailing list
[email protected]
http://listserver.u2ug.org/mailman/listinfo/u2-users
