CREATE CURSOR TestM (id1 I NULL,id2 I) APPEND blank LOCATE NEXT nextScope() PROCEDURE nextScope RETURN 1 ENDPROC