home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / RD_LABEL.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  620 b   |  25 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. FUNCTION rd_label()
  5. {
  6. The rd_label report driver retrieves prospects in zip code order
  7. from the prospect table.  It then passes the information to the
  8. r_label report.
  9. }
  10. DECLARE c_label CURSOR FOR
  11.    SELECT      *
  12.       INTO     pr_prospect.*
  13.       FROM     prospect
  14.       ORDER BY zip
  15. DISPLAY "Running report, output going to label.out" AT 15,1
  16. START REPORT r_label
  17. FOREACH c_label
  18.    OUTPUT TO REPORT r_label(pr_prospect.*)
  19. END FOREACH
  20. FINISH REPORT r_label
  21. DISPLAY "Report finished, output in label.out", "" AT 15,1
  22. SLEEP 3
  23. DISPLAY "" AT 15,1
  24. END FUNCTION
  25.