Having problems with your account or logging in?
A lot of changes are happening in the community right now. Some may affect you. READ MORE HERE

Sample code to access the CaliberRM Server.

Sample code to access the CaliberRM Server.

Problem:

Sample code to access the CaliberRM Server.

Resolution:


  • Product Name: CaliberRM
  • Product Version: CaliberRM 2005 R2 SP1
  • Product Component: SDK
  • Platform/OS Version: Microsoft Platforms including XP / Windows 2000 / Windows Server 2003 / Windows Server 2005

Pre Requites

  1. CaliberRM SDK installed
  2. Microsoft Word / Office installed
  3. Basic understanding of Object Orientated Programming and Visual Basic for Applications (VBA)
  4. KB Article 5624: CaliberRM: Visual Basic for Applications (VBA) , setting up a Microsoft Word VBA application. http://support.borland.com/entry.jspa?categoryID=435&externalID=5623

The technique to access the server is as follows:

  1. Collect login details using login form
  2. Create a server object
  3. Login to server
  4. Find out details of server
  5. Print the details to the Word document
  6. Logout of the server

Sample Code to Access CaliberRM

Note: This sample uses the first project, current baseline, first requirement type and first requirement. The index of these collections start at zero.

Sub Access_Sample()

"_______________________________________________________

"Set up objects

"_______________________________________________________

Dim caliberserver_factory As caliberserverfactory

Dim caliber_server As caliberserver

Dim cailber_session As CaliberObject

Dim My_Session As Session

Dim my_project As Project

Dim my_baseline As Baseline

Dim my_requirement_type As RequirementType

Dim my_attributes As AttributeValue

Dim no_of_attributes, i As Integer

"_______________________________________________________

"initialise Visual Basic to access CaliberRM API

"_______________________________________________________

Set caliberserver_factory = New caliberserverfactory

"host name of Caliber Server

Set caliber_server = caliberserver_factory.Create("localhost")

"login to Caliber Server

Set My_Session = caliber_server.login("admin", "admin")

Set my_project = My_Session.Projects.Item(0) start with first project

Set my_baseline = my_project.CurrentBaseline use current baseline

Set my_requirementtype = my_baseline.RequirementTypes(0) use first requirement type

Set my_requirement = my_baseline.Requirements(0) use first requirement

"________________________________________________________

"insert code to manipulate objects

"_______________________________________________________

"logout of CaliberRM

"_______________________________________________________

My_Session.logout


Old KB# 15879

DISCLAIMER:

Some content on Community Tips & Information pages is not officially supported by Micro Focus. Please refer to our Terms of Use for more detail.
Version history
Revision #:
1 of 1
Last update:
‎2013-02-15 18:26
Updated by:
 
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.