home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / a / a610 / 6.ddi / DEMO / FGL / R_LETTER.4GL < prev    next >
Encoding:
Text File  |  1989-12-08  |  3.1 KB  |  94 lines
  1. DATABASE leads
  2. GLOBALS "globals.4gl"
  3.  
  4. REPORT r_letter(rr_p, rr_s, rr_c)
  5. {
  6. The r_letter report prints letters to prospects, sending
  7. the output to letter.out.  The content of each letter differs
  8. depending on whether the contact was a complaint, request for
  9. information, inquiry, or sale.
  10. }
  11. DEFINE   rr_p              RECORD LIKE prospect.*,
  12.          rr_s              RECORD LIKE sperson.*,
  13.          rr_c              RECORD LIKE contact.*,
  14.          dummy             CHAR(20)
  15.  
  16. OUTPUT
  17.    REPORT TO "letter.out"
  18.  
  19. FORMAT
  20. ON EVERY ROW
  21.    SKIP TO TOP OF PAGE
  22.    SKIP 10 LINES
  23.    PRINT rr_p.title CLIPPED, 1 SPACE,
  24.          rr_p.fname CLIPPED, 1 SPACE,
  25.          rr_p.lname
  26.    PRINT rr_p.company
  27.    IF (rr_p.add1 IS NOT NULL) THEN PRINT rr_p.add1 END IF
  28.    IF (rr_p.add2 IS NOT NULL) THEN PRINT rr_p.add2 END IF
  29.    IF (rr_p.add3 IS NOT NULL) THEN PRINT rr_p.add3 END IF
  30.    PRINT rr_p.city CLIPPED, ", ",
  31.          rr_p.state CLIPPED, 2 SPACES,
  32.          rr_p.zip
  33.    SKIP 1 LINE
  34.    LET dummy = MONTH(rr_c.cdate)
  35.    IF dummy = 1 THEN PRINT "January"; END IF
  36.    IF dummy = 2 THEN PRINT "February"; END IF
  37.    IF dummy = 3 THEN PRINT "March"; END IF
  38.    IF dummy = 4 THEN PRINT "April"; END IF
  39.    IF dummy = 5 THEN PRINT "May"; END IF
  40.    IF dummy = 6 THEN PRINT "June"; END IF
  41.    IF dummy = 7 THEN PRINT "July"; END IF
  42.    IF dummy = 8 THEN PRINT "August"; END IF
  43.    IF dummy = 9 THEN PRINT "September"; END IF
  44.    IF dummy = 10 THEN PRINT "October"; END IF
  45.    IF dummy = 11 THEN PRINT "November"; END IF
  46.    IF dummy = 12 THEN PRINT "December"; END IF
  47.    PRINT rr_c.cdate USING " DD, YYYY"
  48.    SKIP 1 LINE
  49.    PRINT "Dear ",
  50.          rr_p.title CLIPPED, 1 SPACE,
  51.          rr_p.lname CLIPPED, ":"
  52.    SKIP 1 LINE
  53.    IF (rr_c.ctype = "C") THEN
  54.       PRINT "I was sorry to hear that you were not satisfied"
  55.       PRINT "with your recent shipment of binders. I hope the"
  56.       PRINT "issue has been settled to your satisfaction.  If"
  57.       PRINT "not, do not hesitate to contact me."
  58.    END IF
  59.  
  60.    IF (rr_c.ctype = "I") THEN
  61.       PRINT "Thank you for your request for information.  I"
  62.       PRINT "will be sending you literature under separate"
  63.       PRINT "cover."
  64.    END IF
  65.  
  66.    IF (rr_c.ctype = "Q") THEN
  67.       PRINT "Thank you for your recent inquiry.  I hope you"
  68.       PRINT "have had all your questions answered.  I will be"
  69.       PRINT "sending you our literature under separate cover."
  70.    END IF
  71.  
  72.    IF (rr_c.ctype = "S") THEN
  73.       PRINT "Thank you for your recent purchase.  I hope the"
  74.       PRINT "binders meet your requirements and that we can"
  75.       PRINT "continue to do business together in the future."
  76.    END IF
  77.  
  78.    PRINT FILE "para"
  79.    IF rr_s.add1 IS NOT NULL THEN PRINT rr_s.add1 END IF
  80.    IF rr_s.add2 IS NOT NULL THEN PRINT rr_s.add2 END IF
  81.    IF rr_s.add3 IS NOT NULL THEN PRINT rr_s.add3 END IF
  82.    PRINT rr_s.city CLIPPED, ", ",
  83.          rr_s.state CLIPPED, 2 SPACES,
  84.          rr_s.zip
  85.    PRINT "telephone: ", rr_s.phone
  86.    SKIP 1 LINE
  87.    PRINT "Sincerely,"
  88.    SKIP 4 LINES
  89.    PRINT rr_s.fname CLIPPED, 1 SPACE,
  90.          rr_s.lname CLIPPED, ", ",
  91.          rr_s.position
  92.    PRINT "Associated Binder Company"
  93. END REPORT
  94.