Filter Project by using Layer wise in AX 2009 with Rollup7 and SP1 Code

static void createProjectFromLayerkanha(Args _args)
{
Args args;
Dialog dialog;
DialogField dialogFileName;
DialogField dialogLayer;
IdentifierName setOrGetProjName = strfmt('%1Layer_%2_%3', strUpr(enum2str(currentAOLayer())), curUserId(), timenow());
UtilEntryLevel layer;
SysProjectFilterRunbase projFilter;
UtilElements utilElements;
FormRun fr;
;
dialog = new Dialog('Choose filename');

dialogFileName = dialog.addFieldValue(typeid(IdentifierName), setOrGetProjName);
dialogLayer = dialog.addFieldValue(typeid(UtilEntryLevel), currentAOLayer(),'Layer');
setOrGetProjName = dialogFileName.value();
layer = dialogLayer.value();
dialog.run();

if (dialog.closedOk())
{

projFilter = new SysProjectFilterRunbase();

projFilter.parmProjectNode(systreenode::createProject(dialogFileName.value(),
ProjectSharedPrivate::ProjShared));

projFilter.grouping(sysprojectgrouping::AOT);

try
{
while select utilElements
where utilElements.utilLevel == layer

{
utilElements.reread();
projFilter.doUtilElements(utilElements);
}
projFilter.write();
}
catch (exception::Error)
{
throw error('Error occurred while creating project.');
}
}
}