** Use CAST instead of temp file
lcStr = CAST(custfile AS Blob)
*  COPY TO temp FIELDS custfile NEXT 1
*  lcPdfFileName = "cust_hist.pdf"
*  lcStr = FILETOSTR("temp.fpt")
lnStartPos = AT( "%PDF", lcStr)
lnEndPos = RAT( "%%EOF", lcStr) + 5
lcPdfStr = SUBS(lcStr, lnStartPos, lnEndPos - lnStartPos + 1 )
STRTOFILE(lcPdfStr, lcPdfFileName)