.tell Vypocet UZIZAR.NEW
.format Fix
.clearequ
.create c:\tmp\uzizar.new
.fprintf TOTO JE NOVY UZUZAR
.reset
#.sqlfile $(Param)\uzizar.sql
.chapter Uzizarek
.tell DoSelect
.call DoSelect
.tell SetItems
.call SetItems
.tell writedata
.writedata
.close
.view c:\tmp\uzizar.new
.return
.halt
#
# subroutines
#
DoSelect
.tell In DoSelect
.sql
SELECT
  K.Zarizeni,K.Objekt,K.Rks,K.VlZar,K.Zavod,
  S.AkslZ,S.AkslK,S.Zarizeni,S.Uziv,S.Drs,S.Fak,S.Lim,S.Skup,S.Zvuk,
  S.TypZDMO,S.ZDMO,
  P.Dz,P.Dp
FROM 
  Kmen K, Sluzba S, Provud P
WHERE
  K.Zarizeni=S.Zarizeni AND
  K.Idpu=P.Idpu ;
.continue
.tell Returning
.return

SetItems
.items
    Zarizeni:12
    Uziv:6
    Drs:5
    Dp:2
    Dz:2
    Zavod:2
    TypZDMO:1
    ZDMO:12
.continue
.return
.return