Funkce

zpět

Příklad jednoduché funkce s parametrem

function roundUp returns integer (z as decimal):
    if z = truncate(z, 0) then
        return integer(z).
    else
        return integer(truncate(z,0) + 1).
end. /* function roundUp */

assign nejaka_promena = roundUp(5.67).

Příklad jednoduché funkce vracející true nebo false

function isProdukce returns logical ():
    define variable isProdukceResult as logical no-undo.
    assign isProdukceResult = true.
    for first ad_mstr
    where
      ad_mstr.ad_addr = „~~reports“
      and ad_mstr.ad_name begins „@“
      and ad_mstr.ad_domain = global_domain
    no-lock:
      assign isProdukceResult = false.
    end. /* find first ad_mstr */
    return isProdukceResult.
end. /* function isProdukce */

if isProdukce() then display „Produkční prostředí.“
else display „Testovací prostředí.“

zpět