hi, one more problems working with Power x SQL

this is the manual SCOPE

DECLARE cursor_name CURSOR
[ LOCAL | GLOBAL ]
[ FORWARD_ONLY | SCROLL ]
[ STATIC | KEYSET | DYNAMIC | FAST_FORWARD ]
[ READ_ONLY | SCROLL_LOCKS | OPTIMISTIC ]
[ TYPE_WARNING ]
FOR select_statement
[ FOR UPDATE [ OF column_name [ ,...n ] ] ]


The Data base is set for Concurency=Lock

in one especific Forms I declare a Cursor with read_only
But when this Event is Started SQL Locks the ROW

Does anybody Knows why ?


EXEC SQL
DECLARE CURSOR_VIEW1 CURSOR READ_ONLY
FOR
SELECT sup_codigo,
sup_nome,
sup_per1,
sup_per2,
sup_tipo
FROM Supervsr
WHERE sup_nome >= :sql-nome
ORDER BY sup_nome
END-EXEC

EXEC SQL OPEN CURSOR_VIEW1 END-EXEC.
P01.
EXEC SQL
FETCH CURSOR_VIEW1 INTO :sup-codigo,
:sup-nome,
:sup-per1,
:sup-per2,
:sup-tipo
END-EXEC

Carlos Lages