1 Příklady - Návratový kód

   -- Zobrazte podle jména zaměstnance osobního oddělení --
   -- Nepoužívejte funkci _DBResult --
          
       
   StepIdx(dbtO, oJmeno)
   if _StartDB(dbtO) then
     repeat
       PrintLn(O[oJmeno]:25)
     until _LNot(_StepRec(dbtO, 1));
   endif
   -- Používejte funkci _DBResult --
   StepIdx(dbtO, oJmeno)
   if _StartDB(dbtO) then
     repeat
       PrintLn(O[oJmeno]:25)
       _StepRec(dbtO, 1)
     until _DBResult // 0;
   endif