OUTPUT TO 'D:\Temp\Kategorien.csv' NO-MAP NO-CONVERT.
FOR EACH Warengrp NO-LOCK WHERE Firma = '1000':
    export delimiter '"";"";"1";"'
            Warengrp.Bez1
            '";"";"0";"'
            Warengrp.BezL
            '";"";"";"";"";"";""'.
END.
FOR EACH ProdGrp NO-LOCK where Firma = '1000',
    first WarenGrp of ProdGrp no-lock:
    export delimiter '"";"";"1";"'
        Prodgrp.Bez1
        '";"'
        Warengrp.Bez1
        '";"0";"'
        Prodgrp.BezL
        '";"";"";"";"";"";""'.
END.
OUTPUT CLOSE.