//Formula name  @unique_values
stringVar output := "";
WhilePrintingRecords;
output = output + (
if InStr(output, {command.column_name}) > 1 then ""
else output := "," + {command.column_name};
);

WhileReadingRecords;
stringvar array a;
numbervar i;
if not({Column1} in a) then (
i := i + 1;
redim preserve a[i];
a[i] := {Column1};
);
a[i];

WhilePrintingRecords;
stringvar array a;
stringvar fin;
numbervar j;
for j := 1 to ubound(a) do (
fin := fin + a[j] + ", ";
);
fin;