home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a063 / 6.img / SAMPLE / APTSQL / TITIN_1.FPL < prev   
Encoding:
Text File  |  1990-08-24  |  428 b   |  28 lines
  1. create apt proc titin_1() as
  2. begin
  3.     useform sntr_3
  4.  
  5.     if title:modified
  6.     begin
  7.         title:modified = FALSE
  8.  
  9.         if title is not NULL
  10.         begin
  11.             submit
  12.             sqlbegin
  13.                   select titleid = title_id, price
  14.                     from titles
  15.                      where title = {sqlexpr(title)}
  16.             sqlend
  17.         end
  18.  
  19.         if $channel:count = 0
  20.         begin
  21.             print "Sorry, no such title"
  22.             title:modified = TRUE
  23.             positionform title
  24.         end
  25.     end
  26.     return
  27. end
  28.