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