>An example of my data:
>

>Part No    Recseq
>854411-401 0000001
>854411-402 0000002
>854411-403 0000003
>854411-405 0000004
>854411-405 0000005
>854411-405 0000006
>854411-407 0000007
>

>My desired string:
>854411-401(000001),854411-402(000002),854411-403(0000003),854411-405(0000004,0000005,0000006),854411-407)
>
>This is the code I have came up with which almost works except it puts an ")" after the first -405 recseq number and no ")" after the last -405 recseq number(any multiple part numbers).
>

>CLEAR
>SET EXACT On
>partnoS = ""
>partnoS2 = ""
>recseqS2 = ""
>openP = ""
>closeP = ""
>
>SELECT testQuery
>SCAN
>		
>	IF AT(ALLTRIM(testQuery.partno), partnoS2) < 1 Then
>		
>		partnoS = ALLTRIM(partno)+"("
>		closeP = "),"
>	ELSE
>		partnoS = ""
>		closeP = ","
>	ENDIF
>	partnoS2 = partnoS2 + ALLTRIM(partno)
>	recseqS2 = recseqS2 + partnoS + recseq + closeP
>ENDSCAN
>
>? recseqS2

The general principle is to hold the current part in the variable. Once you found that your variable is not equal to the current part you may do your closing code and update the variable.