Index: vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml
===================================================================
diff -u -r35704 -r38535
--- vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 35704)
+++ vhUnitTest/DOM/common/Locatie/impl/LandRepository/Test.cls.xml	(.../Test.cls.xml)	(revision 38535)
@@ -94,6 +94,23 @@
 	#dim Land As DOM.common.Land = ..LandRepository.GeefViaLandCodeIso2("XXX")
 ]]></Implementation>
 </Method>
+
+<Method name="Test: GeefViaLandCode3Lang BE">
+<Implementation><![CDATA[
+	#dim Land As DOM.common.Land = ..LandRepository.GeefViaLandCodeIso3("BEL")
+	
+	Do $$$AssertEquals(Land.GeefID(),1019,"")
+]]></Implementation>
+</Method>
+
+<Method name="Test: GeefViaLandCodeIso3 onbestaand">
+<Implementation><![CDATA[
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen land gevonden met id ''")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.DataNotFoundException",Substrings))
+	
+	#dim Land As DOM.common.Land = ..LandRepository.GeefViaLandCodeIso3("XXX")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/common/Locatie/impl/LandRepository.cls.xml
===================================================================
diff -u -r35703 -r38535
--- DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 35703)
+++ DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 38535)
@@ -58,6 +58,23 @@
 	Quit ..GeefViaID(LandID)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaLandCodeIso3">
+<FormalSpec>LandCodeIso3:%String</FormalSpec>
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[
+	#dim LandID As %String = ""
+	#dim LandCode As %String = ""
+	
+	For { Quit:$$$HasLength(LandID)  Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode))  Quit:(LandCode="")		
+		If $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",35) = LandCodeIso3 {			
+			Set LandID = LandCode
+		}
+	}
+	
+	Quit ..GeefViaID(LandID)
+]]></Implementation>
+</Method>
 </Class>