API 自体のバージョン番号を戻します。メジャー バージョン番号は、互換性のない変更が API に行われるたびに増加します。メジャー番号は、API が、呼び出し側が予期する番号と互換性があることを確認するために、ClearQuest® との初期相互作用の一部として検査する必要があります。
Perl
$prodinfo->GetObjectModelVersionMajor();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print $prodinfo->GetObjectModelVersionMajor(),"¥n";
CQSession::Unbuild($cqobject);