home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / DATABASE / MYB_203.ZIP / MYB_203.EXE / LETTER.MRG < prev    next >
Encoding:
Text File  |  1993-05-04  |  1.3 KB  |  52 lines
  1. <*
  2.    LETTER.MRG - Sample merge print file for CONTACT database.
  3.    ~~~~~~~~~~
  4.    NOTE: The statement below which begins with the hash mark (#) is only
  5.    evaluated ONCE! However, since the result of this function is assigned
  6.    to a memory variable, "_Date", it may be used later without needing to
  7.    re-evaluate the entire function (much faster).
  8.  
  9. >
  10. <# _Date := CMONTH(DATE()) +" "+ ALLTRIM(STR(DAY(DATE()))) +","+ STR(YEAR(DATE())) >
  11.  
  12.                                                          John Smith
  13.                                                          XYZ Company Inc.
  14.                                                          101 Street Avenue
  15.                                                          Anywhere, Anystate
  16.                                                          12345
  17.  
  18.                                                          Tel. (999) 555-1212
  19.  
  20.  
  21.  
  22.  
  23. < _Date >
  24.  
  25. < TRIMLINES (
  26.      TRIM( TRIM (SAL)+" "+FIRST_NAME) +" "+ LAST_NAME +_LF +
  27.      TITLE     + _LF +
  28.      DEPARTMENT+ _LF +
  29.      COMPANY   + _LF +
  30.      ADDRESS_1 + _LF +
  31.      ADDRESS_2 + _LF +
  32.      TRIM (CITY)+ ", " + STATE + _LF +
  33.      ZIP_CODE  + _LF )
  34. >
  35.  
  36.  
  37. Dear < IF(EMPTY(LAST_NAME), "Sir/Madam", ALLTRIM(TRIM(SAL)+" "+LAST_NAME)) >,
  38.  
  39.    ********************
  40.  
  41.            TEXT
  42.  
  43.    ********************
  44.  
  45.  
  46. Yours very truly,
  47.  
  48.  
  49.  
  50. John Smith, PhD.
  51.  
  52.