{
    log("Enter: Pruefmodul::run");
    const ExportParameter& exppar = ExportParameter::getParameter();
    if (!init())
        return false;
    uint handle = 0;
    strn javaExe(winFindExecutable("java.exe"));
    log("javaExe: "-javaExe);
    if (len(javaExe) == 0)
    {
        Error e(Error::INVALID_CONFIG, Error::E_SEVERE);
        return false;
    }
    strn actualDir(GetDir());
    log("actualDir: "-actualDir);
    ChDir(exppar.getKBVRootDir());
    log("Enter loop...");
    for (int i = 1; i <= exppar.getDMPType()->getParamCount(); i++)
    {
        log("i = "-cvs(i));
        if (i > 1)
            wait_100ms(20);   // <2DO> PM kann nicht zweimal gestartet - besser auf Processende warten
        strn pm_param = exppar.getDMPType()->getPruefmodulParams()(i).stripBlanks() - " -z " - dmpDateiname;
        log(pm_param);
        handle = winExecuteProgram(javaExe, pm_param, true);
        log("handle: "- cvs(handle));
        if (handle)
        {
            int code = winGetProcessReturnCode(handle);
            log("winGetProcessReturnCode: "-cvs(code));
            if (code >= 3)
            {
                Error e(Error::FILE_NOT_ACCEPTED, Error::E_SEVERE, "Prfmodul: Fehler "-cvs(code));
                ChDir(actualDir);
                return false;
            }
        } 
        else 
        {
            Error e(Error::INVALID_CONFIG, Error::E_SEVERE, "Prfmodul
 konnte nicht gestartet werden");
            ChDir(actualDir);
            return false;
        }
    }
    log("End loop");
    ChDir(actualDir);
    return parseProtocol();
}

class Executor : unary_function< const DMPType&, void >
{
    const ExportParameter& exppar_;
    string java_path_;
    string actualDir_;
    
    void log_and_throw( string const& msg)
    {
        LOG << level(basic_logger::DEBUG) << parameter, environment, etc... << endl;
        throw runtime_error( msg );
    }
    
public:
    Executor( const ExportParameter& exp ) : exppar_( exp ), 
                 java_path_( winFindExecutable("java.exe") ), 
                 actualDir_( GetDir() )
    {
        init();
        ChDir( exppar_.getKBVRootDir() );
    }
    ~Executor()
    {
        if ( ! actualDir_.empty() )
            ChDir( actualDir );
    }
    
    void operator()( const Parameters& p )
    {
        HANDLE handle = winExecuteProgram( java_path_, cmd, true );
        if ( handle )
        {
            WaitForSingleObject( handle, INFINITE );
            int code = winGetProcessReturnCode( handle );
            if ( code > 2 )
                log_and_throw( "Pruefmodul: Fehler " + to_string( code ) );
        }
        else
            log_and_throw(
 "Pruefmodul konnte nicht gestartet werden" );
    }
};
{
    try {
        const ExportParameter& exppar = ExportParameter::getParameter();
        for_each( exppar.getDMPType().begin(), exppar.getDMPType().end(), Executor( exppar ) );
    }
    catch( runtime_error const& ) {
        return false;
    }
    return parseProtocol();
}