DEFINE VARIABLE bufferHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE queryHandle AS HANDLE NO-UNDO.
/* Create the dynamic objects */
CREATE BUFFER bufferHandle FOR TABLE "myTableName".
CREATE QUERY queryHandle.
queryHandle:SET-BUFFERS ( bufferHandle ).
/* Prepare and open the query */
queryHandle:QUERY-PREPARE ( SUBSTITUTE ( "FOR EACH &1 NO-LOCK", bufferHandle:NAME ) ).
queryHandle:QUERY-OPEN ( ).
/* Loop through the result set */
queryHandle:GET-FIRST ( NO-LOCK ).
DO WHILE NOT queryHandle:QUERY-OFF-END:
/* Do your stuff */
queryHandle:GET-NEXT ( NO-LOCK ).
END.
queryHandle:QUERY-CLOSE ( ).
/* Cleanup so that we don't produce a memory leak */
DELETE OBJECT queryHandle.
DELETE OBJECT bufferHandle.