DATABASE ...

MAIN

# definicie premennych

...

# formular

...

OPTIONS MESSAGE LINE 22,

  PROMPT LINE 21,

# kontrolny vypis

PROMPT "Zadaj kod dodavatela: " FOR kod

MESSAGE "Hladam vsetky zaznamy tabulky soft pre dany kod ",kod

SLEEP 3

MESSAGE ""

# rolovaci kurzor

DECLARE r_kurzor SCROLL CURSOR FOR

  SELECT * FROM soft WHERE kod_dod = kod

OPEN r_kurzor

FETCH FIRST r_kurzor INTO p_soft.*

IF status = NOTFOUND THEN

 # vypis, ze zaznamy neexistuju

 MESSAGE "Zaznam neexistuje"

 SLEEP 3

 MESSAGE ""

ELSE

 DISPLAY BY NAME p_soft.*

 # menu

 MENU "PREZERAJ"

 

 COMMAND "Nasledujuci" "Nasledujuci zaznam"

  FETCH ...

  IF status = NOTFOUND THEN

   MESSAGE "Ziadny dalsi zaznam"

   SLEEP 3

   MESSAGE ""

   FETCH ...

  END IF

  ...

 COMMAND KEY ("R") "pRedosly" "Predosly zaznam"

  FETCH ...

  IF status = NOTFOUND THEN

   MESSAGE "Ziadny predosly zaznam"

   SLEEP 3

   MESSAGE ""

   FETCH ...

  END IF

  ...

 COMMAND "Prvy" "Prvy zaznam"

  FETCH ...

  ...

 COMMAND KEY ("S") "poSledny" "Posledny zaznam"

  FETCH ...

  ...

 COMMAND "Koniec" "Koniec prezerania"

  ...

 

 END MENU

 CLOSE r_kurzor

END IF

END MAIN