home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / REPORT1.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  411 b   |  31 lines
  1.  
  2.  
  3. DATABASE stores
  4.  
  5. MAIN
  6.  
  7.     DEFINE p_customer RECORD LIKE customer.*
  8.  
  9.     DECLARE q_curs CURSOR FOR 
  10.         SELECT * FROM customer
  11.  
  12.     START REPORT cust_list
  13.  
  14.     FOREACH q_curs INTO p_customer.*
  15.  
  16.         OUTPUT TO REPORT cust_list (p_customer.*)
  17.  
  18.     END FOREACH
  19.  
  20.     FINISH REPORT cust_list
  21.  
  22. END MAIN
  23.  
  24. REPORT cust_list (r_customer)
  25.  
  26.     DEFINE r_customer RECORD LIKE customer.*
  27.  
  28.     FORMAT EVERY ROW
  29.  
  30. END REPORT
  31.