USES Common/std;
USES Common/Converters;
USES Common/CommonUtil;
USES Common/ModelDataRetreive;
USES Common/StringUtil;
USES Common/DBUtil;

proc main()
  Init();
  info = "UML check STARTED at \t"time()"\n";
  AttributesWithConstraints();
  info = "UML check STOPPED at \t"time()"\n";
end proc

proc Init()
	//Language
	setLanguage("SQL");
	mkdir([OutputDir]);
	setOutput( [OutputDir] "/" "AttributesWithConstraints.bat" );
	info = "Output generating into: " [OutputDir] "/" "AttributesWithConstraints.bat\n";	

end proc

proc AttributesWithConstraints()
    loop (Instances -> MClass as Entity Where(getStereotype([Entity]) == "Entity" ) )
        loop ( Entity -> MAttribute )
            if ( getConstraint([MAttribute]) != "" )
                info = [Entity.name]"."[MAttribute.name] ":\n" getConstraint([MAttribute]) "\n";
                out = "echo " [Entity.name]"."[MAttribute.name]"\n";
                GenerateEditorNavigation([MAttribute.guid]);
            end if
        end loop
    end loop
end proc