home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / RD_LETTE.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.2 KB  |  43 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. FUNCTION rd_letter()
  5. {
  6. The rd_letter report driver retrieves contacts for a user-selected
  7. date and feeds them to the r_letter report.
  8. }
  9. DEFINE   answer            DATE
  10.  
  11. CLEAR SCREEN
  12. PROMPT "Letters for contacts on (enter date as mm/dd/yy or RETURN for today): "
  13.    FOR answer
  14. DISPLAY "Running report, output going to letter.out" AT 15,1
  15. IF answer IS NULL THEN LET answer = TODAY END IF
  16. DECLARE c_letter CURSOR FOR
  17.    SELECT      *
  18.       INTO     pr_prospect.*,
  19.                pr_sperson.*,
  20.                pr_contact.*
  21.       FROM     prospect,
  22.                sperson,
  23.                contact
  24.       WHERE    prospect.ref = contact.ref
  25.                AND contact.empnum = sperson.empnum
  26.                AND contact.cdate = answer
  27. LET eflag = -1
  28. START REPORT r_letter
  29. FOREACH c_letter
  30.    LET eflag = 0
  31.    OUTPUT TO REPORT r_letter(pr_prospect.*, pr_sperson.*, pr_contact.*)
  32. END FOREACH
  33. IF (eflag < 0) THEN
  34.    ERROR "There were no contacts on ", answer
  35.    LET eflag = 0
  36. ELSE
  37.    DISPLAY "Report finished, output in letter.out", "" AT 15,1
  38. END IF
  39. FINISH REPORT r_letter
  40. SLEEP 3
  41. DISPLAY "" AT 15,1
  42. END FUNCTION
  43.