SORTEDREC=''
*count the fields in RECORD
NFIELDS=COUNT(RECORD,@FM)+(RECORD NE '')
FOR I=1 TO NFIELDS
 ITEM=RECORD<I>
 LOCATE ITEM IN SORTEDREC BY 'AL' USING @FM SETTING J THEN NULL
 *Insert ITEM immediately before Jth field of SORTEDREC
 SORTEDREC=INSERT(SORTEDREC,J,0,0,ITEM)
NEXT
TRANSFER SORTEDREC TO RECORD
