*              This assumes a database named "database",
*              an index named "data_ntx", and a 
*              filter expression named "data_filtr"

SELECT A
USE database                       && select your data base
SET INDEX TO data_ntx              && optional index
SET FILTER TO &data_filtr          && optional filter
DECLARE array[FCOUNT()]            && create optional array
AFILL (array,"+")                  && fill with pluses 
array[1] = SPACE(1)                && DO NOT translate 1st field
count = dPerfect("merge.sf",array) && create "merge.sf"
IF ERRORLEVEL() = 1                && successful completion
 ? STR(count)                      && display # records
ELSE
 ? "Sorry -- dPerfect Error!"      && error occurred
ENDI