/* ---------------------------------------------------------------------- */
/* INCLUDE-Datei fuer Meldung mit Abfrage nach Ja/Nein                    */
/* ---------------------------------------------------------------------- */

    FIND Femeld USE-INDEX Femeld-k1
                WHERE Femeld.Sprcd = GVSprcd
                AND   Femeld.Fenr  = {1} NO-LOCK NO-ERROR.
                
    MESSAGE Femeld.Fetext
            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO
    UPDATE Ja.