home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / RD_FOLLO.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  1.9 KB  |  61 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. FUNCTION rd_follow()
  5. {
  6. The rd_follow report driver retrieves information about follow-up
  7. contacts for each salesperson for a specified week.  It passes the
  8. information to the r_follow report.
  9. }
  10. DEFINE   pr_follow         RECORD
  11.             cndate         LIKE contact.ndate,
  12.             cref           LIKE contact.ref,
  13.             pfirst         LIKE prospect.fname,
  14.             plast          LIKE prospect.lname,
  15.             pcompany       LIKE prospect.company,
  16.             pphone         LIKE prospect.phone,
  17.             psource        LIKE prospect.source,
  18.             sfirst         LIKE sperson.fname,
  19.             slast          LIKE sperson.lname,
  20.             emp            LIKE sperson.empnum,
  21.             answer         DATE
  22.          END RECORD
  23.  
  24. CLEAR SCREEN
  25. PROMPT "Report for week starting on (enter date as mm/dd/yy): "
  26.    FOR pr_follow.answer
  27. DISPLAY "Running report, output going to follow.out" AT 15,1
  28.  
  29. DECLARE c_follow CURSOR FOR
  30.    SELECT      contact.ndate,
  31.                contact.ref,
  32.                prospect.fname,
  33.                prospect.lname,
  34.                prospect.company,
  35.                prospect.phone,
  36.                prospect.source,
  37.                sperson.fname,
  38.                sperson.lname,
  39.                sperson.empnum
  40.       INTO     pr_follow.*
  41.       FROM     contact,
  42.                prospect,
  43.                sperson
  44.       WHERE    contact.ndate
  45.                   BETWEEN pr_follow.answer AND pr_follow.answer + 6
  46.                AND contact.ref = prospect.ref
  47.                AND contact.nemp = sperson.empnum
  48.       ORDER BY sperson.lname,
  49.                sperson.fname,
  50.                contact.ndate
  51.  
  52. START REPORT r_follow
  53. FOREACH c_follow
  54.    OUTPUT TO REPORT r_follow(pr_follow.*)
  55. END FOREACH
  56. FINISH REPORT r_follow
  57. DISPLAY "Report finished, output in follow.out", "" AT 15,1
  58. SLEEP 3
  59. DISPLAY "" AT 15,1
  60. END FUNCTION
  61.