*
* From BostonComputerNewsNetwork @NJ Fox-user 6-22-94
*+
*PURPOSE:
* To Make SQL read-only cursor into R/W cursor
* Must be real file not filtered view
*
*SYNTAX:
* m.retstat = mkcursrw(m.cn)
*PARAMETERS:
* m.cn -(C) Cursor alias name to be made read/writable.
*
*RETURNS:
* m.retstat -(L) .t. made the read-only cursor to R/W cursor.
* .f. the cursor alias name does not correspend
* to a cursor.
*REMARKS:
*SEE ALSO:
*-
*
FUNCTION mkcursrw
PARAMETER m.cn
PRIVATE m.cf, m.retstat
m.cf = DBF(m.cn)
IF ".TMP"=RIGHT(m.cf,4)
USE (m.cf) AGAIN IN 0 ALIAS dummycname
USE IN (m.cn)
USE (m.cf) AGAIN IN 0 ALIAS (m.cn)
USE IN dummycname
SELECT (m.cn)
m.retstat = .t.
ELSE
m.retstat = .f.
ENDIF
RETURN m.retstat
****