>Hi, All,
>
>I have two functions:
>

>*merging
>function getlettercaption
> lparameters lpnscript_id
> local lcreturn
> use scriptfile in 0 order script_id shared
> if indexseek(m.lpnscript_id,.t.,'scriptfile','script_id') ;
> then
>  m.lcreturn = textmerge(alltrim(scriptfile.mg_script))
> else
>  m.lcreturn =[]
> endif
> use in scriptfile
> return m.lcreturn
>endfunc &&getlettercaption
>
>* get default caption
>
>function getdefaultcaption
> use sysfile in 0 shared
> local m.lcreturn
> m.lcreturn = getlettercaption(sysfile.dft_cap)
> use in sysfile
> return m.lcreturn
>endfunc &&getdefaultcaption
>
>

>Then I have a prg which calls function getdefaultcaption() like as follows:
>

>set textmerge on
>LOCAL lcfile
>m.lcfile = SYS(2015)+".txt"
>_text = FCREATE(m.lcfile)
>SET TEXTMERGE ON
>TEXT noshow
>*some code
><<getdefaultcaption()>>
>*some more code
>ENDTEXT
>

>
>The end result was that I get two lines of letter caption instead of one, for example,
>I get:
>
>LLL Company
>2324 Main St.
>Main City, CA 90000
>
>Dear Mr. John Doe,
>
>LLL Company
>2324 Main St.
>Main City, CA 90000
>
>Dear Mr. John Doe,
>
>
>Instead of just:
>
>LLL Company
>2324 Main St.
>Main City, CA 90000
>
>Dear Mr. John Doe,
>
>Does anybody know why this is happening? How should I fix this?
>Any help will appreciated!
>
>TIA,
>
>Dawa

Check _text in help. When you direct outout to a file all subsequent text commands go to that file. You're using :
textmerge(alltrim(scriptfile.mg_script))
in GetLetterCaption() and calling it from within text...endtext dubling the output.
Instead of creating output to a file you might simply collect all to memvar and StrToFile() at once.

Text to m.lcLetter textmerge noshow
...
endtext
StrToFile(m.lcLetter, filename)

Cetin