lcSql = "" text TO lcSql noshow select myPrimaryId, mySecondayId,cDtTitle, cEnTitle, cDtMaterial, cEgMaterial,ceDtFormat, ceEgFormat, coalesce(DtPrtcopy,'') as DtPrtcopy, coalesce(EgPrtcopy,'') as EgPrtcopy, coalesce(DtSPrice,'') as DtSPrice from HORSART_WORKS endtext sqltxt = CHRTRAN(lcSql, CHR(13), CHR(10), '') lcResult = sqlexec(lnRet, lcSql,"curHorsart_Works") IF lcResult < 0 * Error ENDIF>
>sqltxt='' >text TO sqltxt noshow > sqlexec(lnRet,"select myPrimaryId, mySecondayId,cDtTitle, > cEnTitle, cDtMaterial, cEgMaterial,ceDtFormat, ceEgFormat, > coalesce(DtPrtcopy,'') as DtPrtcopy, > coalesce(EgPrtcopy,'') as EgPrtcopy, > coalesce(DtSPrice,'') as DtSPrice > from HORSART_WORKS","curHorsart_Works") >endtext >sqltxt = strtran(sqltxt,chr(10), '') >sqltxt = strtran(sqltxt,chr(13), '') >&sqltxt >>cursor gets loaded.
>sqltxt='' >text TO sqltxt noshow > sqlexec(lnRet,"select myPrimaryId, mySecondayId,cDtTitle, > cEnTitle, cDtMaterial, cEgMaterial,ceDtFormat, ceEgFormat, > coalesce(DtPrtcopy,'') as DtPrtcopy, > coalesce(EgPrtcopy,'') as EgPrtcopy, > coalesce(DtSPrice,'') as DtSPrice, > coalesce(EgSPrice,'') as EgSPrice > from HORSART_WORKS","curHorsart_Works") >endtext >sqltxt = strtran(sqltxt,chr(10), '') >sqltxt = strtran(sqltxt,chr(13), '') >&sqltxt >>will result in Error : "Command contains unrecognized phrase/keyword"