home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / S_PRODUC.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  895 b   |  41 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. MAIN
  5. {
  6. The s_product program (a simplified version of the product
  7. function) displays the f_sproduct form and allows the user
  8. to add or delete products.  It contains no error checking
  9. code.
  10. }
  11. DEFINE   pa_prod           ARRAY[20] OF RECORD LIKE product.*,
  12.          idx               SMALLINT
  13.  
  14. DECLARE c_prod CURSOR FOR
  15.    SELECT      *
  16.       INTO     pr_product.*
  17.       FROM     product
  18.       ORDER BY pcode
  19.  
  20. LET idx = 0
  21. FOREACH c_prod
  22.    LET idx = idx + 1
  23.    LET pa_prod[idx].* = pr_product.*
  24. END FOREACH
  25. CALL SET_COUNT(idx)
  26.  
  27. OPEN FORM f_sproduct FROM "f_sproduct"
  28. DISPLAY FORM f_sproduct
  29.  
  30. INPUT ARRAY pa_prod WITHOUT DEFAULTS FROM sr_product.*
  31.  
  32. AFTER INSERT
  33.    LET idx = ARR_CURR()
  34.    INSERT INTO product VALUES (pa_prod[idx].*)
  35.  
  36. AFTER DELETE
  37.    DELETE FROM product WHERE pcode = pr_product.pcode
  38.  
  39. END INPUT
  40. END MAIN
  41.