KB10304: How can Users Obtain the Status of a Job Using MicroStrategy Intelligence Server SDK 9.3.x?

The following lines of code can be used to obtain the status of a job using Strategy SDK 9.3.x:
 

Dim MyDataSource As New DSSDataSource
MyDataSource.Type = DssDataSourceTypeProjectMD7
MyDataSource.Location = "Your-Server-Name"
MyDataSource.ProjectName = "Your-Project-Name"
MyDataSource.Mode = DssConnectionModeServerAccess
MyDataSource.Port = 0
MyDataSource.AuthMode = DssAuthStandard
MyDataSource.login = "Administrator"
MyDataSource.Passwd = ""
MyDataSource.Init
 

Dim objServerAdmin As IDSSServerAdmin
 
Set objServerAdmin = MyDataSource.ServerAdmin
 

Dim objJobManager As IDSSJobManager
 
Set objJobManager = objServerAdmin.JobManager
 

Dim objJobs As IDSSJobs
 
Set objJobs = objJobManager.GetJobs(DssGetJobOptionBrowsing, 10, DssServerRefreshNo)
 

'Get the desired job
 
Dim objJob As IDSSJob
Set objJob = objJobs.Item(219)
 

'Check the status
 
Dim objStatus As EnumDSSJobStatus
objStatus = objJob.Status

 
Note:
The number in objJobs.Item() is not the element of the enumeration, but the ID of the job.
 
Customization Warning:
This customization is provided as a convenience to Strategy users and is only directly applicable to the version stated. While this code may apply to other releases directly, Strategy Technical Support makes no guarantees that the code provided will apply to any future or previous builds. In the event of a code change in future builds, Strategy Technical Support makes no guarantee that an updated version of this particular customization will be provided. For enhancements to this customization or to incorporate similar functionality into other versions, contact your Account Executive to inquire about Strategy Consulting assistance.