DEF STREAM velorob.
OUTPUT STREAM velorob TO "d:\velo\veloroba.txt".
DEFINE VARIABLE centrala AS INTEGER NO-UNDO.
centrala = 0.
FOR EACH komdet WHERE komdet.vrs = "centrala"
AND komdet.opis = "0522",
EACH komit WHERE komit.sifkom = komdet.sifkom,
EACH rromat WHERE rromat.sifkom...