GeMIS_WEB/GUI/incl/dynbrwmainblock.i

    
    Progname = ENTRY(1, THIS-PROCEDURE:FILE-NAME, '.') NO-ERROR.
    SAktiv   = DYNAMIC-FUNCTION('getSuperaktiv':U)     NO-ERROR.
    IF SAktiv = ? THEN SAktiv = FALSE.

    IF SAktiv THEN DO:
        AdFirma  = DYNAMIC-FUNCTION('getADMandant':U) NO-ERROR.
        FBFirma  = DYNAMIC-FUNCTION('getFBMandant':U) NO-ERROR.
        Firma    = DYNAMIC-FUNCTION('getMandant':U  ) NO-ERROR.
        Progname = DYNAMIC-FUNCTION('makeProgname':U, INPUT THIS-PROCEDURE ) NO-ERROR.
    END.
    Sektion = 'Browser-' + Progname.
    
    ON 'PAGE-DOWN':U OF {&BROWSE-NAME} IN FRAME {&FRAME-NAME}
    DO:
    END.
    ON 'PAGE-UP':U OF {&BROWSE-NAME} IN FRAME {&FRAME-NAME}
    DO:
    END.