global procedure TestEn(record RcVc RepSpec) begin ExportFormat; BlockExport("SysFormatBlock"); ExportString("artikelinfo1"); NewLine; ... return; end;