>FYI: With VFP9's CAST function, you don't have to create the temp table anymore:
>
>

>** 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)
>

squeezing it more

STRTOFILE(STREXTRACT(CAST(custfile AS W), "%PDF" , "%%EOF") , lcPdfFileName)