CREATE CURSOR crsTest (fld M) INSERT INTO crsTest VALUES ("") DO CASE CASE LEN(TRIM(invrepor.ocr))>0 lnLines = ALINES( laLines, invrepor.ocr, 1 ) lcOutStr = "" FOR lnLCount = 1 TO lnLines lcOutStr = lcOutStr + laLines[ lnLCount ] + CHR(13) + CHR(10) NEXT CASE LEN(TRIM(invrepor.abstract))>0 lnLines = ALINES( laLines, invrepor.ocr, 1 ) lcOutStr = "" FOR lnLCount = 1 TO lnLines lcOutStr = lcOutStr + laLines[ lnLCount ] + CHR(13) + CHR(10) NEXT ENDCASE UPDATE crstest SET fld=lcOutStr TEXT <<xcount>>~<<ALLTRIM(invrepor.SUBJECT)>>~<<ALLTRIM(STRTRAN(invrepor.title2,CHR(13)+CHR(10)," "))>>~ <<ALLTRIM(STRTRAN(INVREPOR.AUTHORS,CHR(13)+CHR(10)," "))>>~<<ALLTRIM(STRTRAN(fld,CHR(13)+CHR(10)," "))>> <<lcPart2>><<lcPart3>><<lcPart4>><<lcPart5>><<lcPart6>><<lcPart7>><<lcPart8>><<lcPart9>><<lcPart10>>~<<ALLTRIM(str(stock.price1,7,2))>> ENDTEXT Endif***************************