FIND tMenuProg USE-INDEX tMenuProg-k1
            WHERE tMenuProg.cMenu = SELF:NAME NO-ERROR.
    CASE tMenuProg.Typ:
        WHEN 'WI' THEN RUN START_PROGRAMM ( INPUT tMenuProg.cProg ) NO-ERROR.
        WHEN 'DI' THEN RUN VALUE(tMenuProg.cProg)                   NO-ERROR.
        WHEN 'FR' THEN RUN START_PROGRAMM ( INPUT tMenuProg.cProg ) NO-ERROR.
    END.