GeMIS_WEB/GUI/incl/datgetquerybuffer.i

    /*    
    DEF VAR bhQuery     AS HANDLE                   NO-UNDO.
    DEF VAR bhBuffer    AS HANDLE                   NO-UNDO.

    bhBuffer = TEMP-TABLE tTabelle:DEFAULT-BUFFER-HANDLE.
    bhQuery  = DYNAMIC-FUNCTION('getQueryHandle':U) NO-ERROR.
    IF bhQuery:NUM-RESULTS > 20000 THEN DO:
        MESSAGE 'der Export umfasst ' bhQuery:NUM-RESULTS ' Datensätze '    SKIP
                'Bitte zuerst Filter setzen, Verarbeitung wird abgebrochen' SKIP
                VIEW-AS ALERT-BOX.
        RETURN ?.
    END.
    IF bhQuery:NUM-RESULTS > 1000 THEN DO:
        MESSAGE 'der Export umfasst ' bhQuery:NUM-RESULTS ' Datensätze '    SKIP
                'die Verarbeitung wird etwas dauern ... '                   SKIP
                VIEW-AS ALERT-BOX.
    END.
    bhBuffer:ATTACH-DATA-SOURCE(DATA-SOURCE DaSource:HANDLE).
    DATA-SOURCE DaSource:QUERY = bhQuery.

    SESSION:SET-WAIT-STATE('GENERAL').
    DATASET DaSet:FILL().
    SESSION:SET-WAIT-STATE('').
    RETURN DATASET DaSet:GET-BUFFER-HANDLE(1).
    */
    RETURN BUFFER rowObject:HANDLE.