API 자체의 버전 번호를 리턴합니다. API에 호환되지 않는 변경이 있을 때마다 메이저 번호가 증가합니다. 메이저 번호는 ClearQuest®와의 초기 상호작용의 일부로 검사하여 API가 호출자에서 예측한 버전과 호환되는지 확인해야 합니다.
Perl
$prodinfo->GetObjectModelVersionMajor();
Perl
use CQPerlExt;
my $cqobject = CQSession::Build();
my $prodinfo = $cqobject->GetProductInfo();
print $prodinfo->GetObjectModelVersionMajor(),"\n";
CQSession::Unbuild($cqobject);