[progress Communities] [progress Openedge Abl] Forum Post: Re: Need A Simple Example For...

[gryphon]

Hi This should help you. {tt.i}. DEFINE DATASET ds FOR tt. DEFINE QUERY q FOR dbtable SCROLLING. DEFINE DATA-SOURCE src FOR QUERY q. DATASET ds:GET-BUFFER-HANDLE(1):SET-CALLBACK-PROCEDURE("AFTER-ROW-FILL","AfterRowFill",THIS-PROCEDURE). QUERY q:QUERY-PREPARE ("for each dbtable"). BUFFER tt:FILL-MODE = "EMPTY". BUFFER tt:BATCH-SIZE = piBatchSize. BUFFER tt:ATTACH-DATA-SOURCE(DATA-SOURCE src:HANDLE). DATASET ds:FILL(). BUFFER ttETACH-DATA-SOURCE(). PROCEDURE AfterRowFill: DEFINE INPUT PARAMETER DATASET-HANDLE pdsDataset. pdsDataset:GET-BUFFER-HANDLE(1)::tt-name = "test". END.

Continue reading...