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