{ SUPER/funktionen.i }
    
    DEF VAR canmeldung AS CHAR .
    
    canmeldung = SUBSTITUTE('&1&4&2&4&3', '1000', 'wari', '', chr(01)).

    DEFINE VARIABLE cPath       AS CHARACTER NO-UNDO.

    DO WHILE TRUE:    
        cPath = DYNAMIC-FUNCTION ('getFehlwert':U, '1000', 'GEMIS_TEMPDIR') NO-ERROR.
        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
        
        GET-KEY-VALUE SECTION 'GrundEinstellungen'
            KEY     'Ge_MIS_TEMP'
            VALUE   cPath.
        IF  cPath <> '' AND 
            cPath <> ?  THEN LEAVE.
            
        cPath = SESSION:TEMP-DIRECTORY.
        LEAVE.
    END.
    
    FILE-INFO:FILE-NAME = SEARCH(cPath).
    IF FILE-INFO:FILE-NAME = ? THEN FILE-INFO:FILE-NAME = cPath.
    IF FILE-INFO:FILE-NAME = ? THEN DO:
        DYNAMIC-FUNCTION('fehlerMeldung':U, 1021, SUBSTITUTE("&1", cPath) ).
        RETURN ''.
    END.
    cPath = (IF FILE-INFO:FULL-PATHNAME = ? THEN FILE-INFO:FILE-NAME ELSE FILE-INFO:FULL-PATHNAME).

    IF  SUBSTRING(cPath, LENGTH(cPath), 01) <> '/' AND
        SUBSTRING(cPath, LENGTH(cPath), 01) <> '\' THEN cPath = cPath + '\'.
        
    MESSAGE cPath
        VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.