database zawod
MAIN

  MENU "Ημαχξοε νεξΰ"
    command key("w") "Χχοδ" "Χχοδ υώετξωθ δαξξωθ"
      call wwod()
    command key("p") "Πςοσνοτς" "Πςοσνοτς ταβμιγω kadry"
      call prosmotr()
    command "Oδιξοώξωκ πςοσνοτς" "Ποισλ πο ταβεμψξονυ ξονεςυ"
      call odin_prosmotr()
    command "Kοξεγ"
      clear screen
      exit program
  end menu

END MAIN

FUNCTION wwod()
  define c char(1) , zapisx record like kadry.*
    #           Dάτο οβ®ρχμεξιε όλχιχαμεξτξο ταλονυ:E
    # DEFINE zapisx RECORD
    #   nomerceh  INT,          # ξονεςγεθα
    #   tabnom    INT,          # ταβεμψξ.ξονες
    #   fio       CHAR(20),     # ζανιμιρ
    #   dolvn     CHAR(20),     # δομφξοστψ
    #   zarplata  MONEY(16,2),  # ϊαςπματα
    #   datarovd  DATE          # δατα ςοφδ
    # END RECORD

  OPEN WINDOW  wwod  AT 4,20 WITH FORM  "kadry"  attribute(border)
  MESSAGE "Χχεδιτε υώετξωε δαξξωε, ι ξαφνιτε ESC" attribute (reverse)
  let c="Y"

    WHILE c NOT MATCHES "[nNξΞ]" or c is NULL   # Χ γιλμε
    INPUT by name zapisx.*              # DΧχεστι δαξξωε ώεςεϊ όλςαξξυΰ ζοςνυE
    DISPLAY "Πςιξρτο"    AT 1 , 1

    let   zapisx.tabnom=0
    INSERT INTO kadry values (zapisx.*) # DΧσταχιτψ στςολυ χ ταβμιγυ kadryE
    display   SQLCA.SQLERRD[2] to tabnom# DΛαλοκ ξονες πομυώιμ serial στομβεγ ?E
    prompt "Πςιξρτο.   Χχοδιτψ σμεδυΰύεηο (Δα/Ξετ)?" for char c
    END WHILE

  CLOSE WINDOW WWOD                     # DΜιλχιδιςυεν ολοϋλοE
END FUNCTION

FUNCTION prosmotr()
  define zapisx record like kadry.* , c char

  open window prosmotr  at 4,34 with form  "kadry" attribute(border)
  declare prosmotr cursor for select * from kadry order by nomerceh, tabnom
    FOREACH prosmotr INTO zapisx.*              # DΧ γιλμε δμρ λαφδοκ στςολιE
    DISPLAY BY NAME zapisx.*                    # DΧωχεμι εε ξα όλςαξE
    prompt "Πολαϊωχατψ σμεδυΰύεηο (Δα/Ξετ)? " for char c
    IF c matches "[ΞξNn]" then exit foreach END IF # DΕσμι Ξετ το λοξεγE
    END foreach
  close window prosmotr         #       DΜιλχιδιςυεν ολοϋλοE
END FUNCTION

FUNCTION odin_prosmotr()
  define zapisx record like kadry.* , nomer int

  open window odin_prosmotr  at 4,4 with form  "kadry" attribute(border)
    WHILE 1=1                                   # DΧ γιλμεE
    prompt "Λαλοκ ταβεμψξωκ ξονες πολαϊατψ: " attribute (reverse)
         for nomer  attribute (underline)
    IF nomer IS NULL THEN exit while END IF     # DΕσμι ξιώεηο ξε χχεμ το λοξεγE

    SELECT * INTO zapisx.*
             FROM kadry WHERE nomer=tabnom      # Dήιταεν στςοώλυE
      if status = NOTFOUND then
        error "Ξετ ταλιθ" attribute (reverse)   # DΕσμι ξε ξαϋμοσψ τοE
        continue while                          #  Dπεςεκτι ξα ξαώαμο γιλμαE
        end if

    DISPLAY BY NAME zapisx.*                    # DΧωχεμι εε ξα όλςαξE
    END WHILE
  close window odin_prosmotr         #       DΜιλχιδιςυεν ολοϋλοE
END FUNCTION