Labels:monitor | person | plant | web site OCR: funkce ktera vrati vek prvni nalezene Oqoso dle zadaneho jmena ZjistiVek0sobyD] leJmenal (meno] new 63q1 select Vek into :vek from SQLUser Osoba where Jmeno :jmeno SQLCODE 100 quit quit vek procedure ktera vrati vek viech nalezenych 03ob dle zadaneho jmena ZjistiVek0sobyDleJmena2 (jmeno new sq1 (decl are cursor for select TD Vek into :id, :vek from SQLUser Osoba where Jmeno :jmeno) &sql (open loop &sq1 (fetch C goto SQLCODE: 100 exit wri te vek: vek goto loop exit &sql (close quit osoby imeno SoLUser 0soba Jmenc SOLCODE vsech nalezenvch o3ob
