조회를 작업공간의 지정된 위치에 저장합니다.
현재 세션에 로그인한 사용자는 qdefPath 매개변수에 지정된 경로 이름에 대해 액세스 권한을 갖고 있어야 합니다. (따라서 관리 권한이 있는 사용자만 조회를 공개 조회 폴더에 저장할 수 있습니다.) qdefPath 매개변수에 지정한 경로 이름에 존재하지 않는 서브폴더가 포함된 경우, Rational® ClearQuest®는 해당 폴더를 암시적으로 작성합니다.
SaveQueryDef 메소드에 대한 마지막 매개변수는 기존 QueryDef 오브젝트를 같은 이름 및 경로로 겹쳐쓸 것인지 여부를 지정하는 부울 값입니다(0=겹쳐쓰지 않음, 1=겹쳐씀). 메소드는 overwrite 매개변수에 지정된 0 또는 1 값을 사용하여 조회가 이미 존재하는 경우 오류를 리턴합니다.
VBScript
workspace.SaveQueryDef qdefName, qdefPath, queryDef, overwrite
Perl
$workspace->SaveQueryDef(qdefName, qdefPath, queryDef, overwrite);
Perl
use CQPerlExt;my $CQSession = CQSession::Build();
my $RootFolder = "Public Queries";
$CQSession->UserLogon($ologon, $opw, $odb, "");
$workspace = $CQSession->GetWorkSpace();
$QueryDef = $CQSession->BuildQuery("Defect");
@owner = ("jswift");
@state = ("Closed");
@dbfields = ("ID","State","Headline");
foreach $field (@dbfields) {
$QueryDef->BuildField($field);
}
$FilterNode1 = $QueryDef->BuildFilterOperator($CQPerlExt::CQ_BOOL_OP_AND);
$FilterNode1->BuildFilter("Owner", $CQPerlExt::CQ_COMP_OP_EQ, \@owner);
$FilterNode1->BuildFilter('State', $CQPerlExt::CQ_COMP_OP_NOT_IN, \@state);
$ResultSet = $CQSession->BuildResultSet($QueryDef);
$ResultSet->Execute();
$workspace->SaveQueryDef("delete me", $RootFolder, $QueryDef, 1);
print "'$RootFolder/delete me' copied\n";
}
CQSession::Unbuild($CQSession);