LPARAMETERS cfile, olog
 
LOCAL citems, cparts, citem, cpart, citemprev, calias, cfilen, cfilennew, nrec, nrecd, nafld, nprevsel, lcsubject, lcbody, lcbodyitems, lcbodyparts
 
ccr= CHR(13)+CHR(10)
 
nprevsel = SELECT()
cfile = LOWER(cfile)
 
sns = ALLTRIM(SYS(2))