Index: DOM/PM/impl/DataM/DataMProduct.cls.xml
===================================================================
diff -u -r47438 -r47498
--- DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47438)
+++ DOM/PM/impl/DataM/DataMProduct.cls.xml	(.../DataMProduct.cls.xml)	(revision 47498)
@@ -592,6 +592,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlasId">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..DataI1.GeefPiece(4)
+]]></Implementation>
+</Method>
+
 <Method name="GeefFSCHout">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Data3.GeefPiece(5)
@@ -686,6 +692,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetKlasId">
+<FormalSpec>KlasId:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..DataI1.ZetPiece(4,KlasId)
+]]></Implementation>
+</Method>
+
 <Method name="ZetFSCHout">
 <FormalSpec>FSCHout:%String</FormalSpec>
 <Implementation><![CDATA[	Do ..Data3.ZetPiece(5,FSCHout)