Extending DW - Primary key

Hello!

     I use CS2002 + SP3 + FP1.

     I use vbs script (a customized CreateSchemaObject.vbs from SDK) to 
extend data warehouse with a new class MyClass (this script uses OLE DB 
Provider for Commerce Server).

     Here are 2 variants of the code.

     This works:

CreateClassDef cn, "MyClass", "test_Source", "", True, 0, ""
CreateMemberDef cn, "MyClass", "ID", "NUMBER", fGenerateColDef + 
fIsRequired + fPrimaryKey + fHasDefaultVal, "0", ""

     This generates an error:

CreateClassDef cn, "MyClass", "test_Source", "", True, 0, ""
CreateMemberDef cn, "MyClass", "ID", "NUMBER", fGenerateColDef + 
fIsRequired + fPrimaryKey, "", ""


     So, I failed to generate primary key if the column does not help a 
default value.
     That seems strange to me.
     Why doesn't it work without default value?
     Are there any other flag combinations to make the OLE DB Provider 
create primary key?

-- 
Yours faithfully,
Alexander Yushchenko