ProErrorPurgeMdl(ProMdl mdl)
{
ProMdldata data;
ProMdlDataGet(mdl,&data);
ProMacro wmacro;
ProStringToWstring(wmacro,"~ Command `ProCmdFilePurge`;");
ProWstringConcatenate(data.name,wmacro,PRO_VALUE_UNUSED);
ProWstringConcatenate(L".",wmacro,PRO_VALUE_UNUSED);
ProWstringConcatenate(data.type,wmacro,PRO_VALUE_UNUSED);
ProWstringConcatenate(L";",wmacro,PRO_VALUE_UNUSED);
ProMacroLoad(wmacro);
ProMacroExecute();
return PRO_TK_NO_ERROR;
}