Code to Control a Model Build

Commerce Server 2002

This section shows how to retrieve the status of a build, and how to pause, resume, and stop the build. Additionally, the priority of the build is retrieved and then increased.

  1. Using the PredModelBuilder object, oPredModelBuilder, check the status of the build thread, lBuildID, started in Code to Build a New Model. For information on the enumerated build states, see PredModelBuilder.Status.
    Response.Write "Build " & lBuildID & " is "
    Select Case oPredModelBuilder.Status(lBuildID)
    Case PredBldRunning
    Response.Write "Running <P>"
    Case PredBldPaused
    Response.Write "Paused <P>"
    Case PredBldShuttingDown
    Response.Write "ShuttingDown <P>"
    Case Else
    Response.Write "No status <P>"
    End Select
    
  2. Assume the build is running. Pause the build.
    If oPredModelBuilder.Status(lBuildID) = PredBldRunning Then
    oPredModelBuilder.Pause(lBuildID)
    End If
    
  3. Resume the paused build.
    If oPredModelBuilder.Status(lBuildID) = PredBldPaused Then
    oPredModelBuilder.Resume(lBuildID)
    End If
    
  4. Check the priority of the build. For information about the enumerated build priorities, see PredModelBuilder.Priority.
    Dim ePriority
    ePriority = oPredModelBuilder.Priority(lBuildID)
    
    Response.Write "Build " & lBuildID & " has a priority of "
    Select Case ePriority
    Case PriLowest
    Response.Write "PriLowest <P>"
    Case PriBelowNormal
    Response.Write "PriBelowNormal <P>"
    Case PriNormal
    Response.Write "PriNormal <P>"
    Case PriAboveNormal
    Response.Write "PriAboveNormal <P>"
    Case PriHighest
    Response.Write "PriHighest <P>"
    Case Else
    Response.Write "Bad Priority <P>"
    End Select
    
  5. Increase the priority of the build.
    If ePriority <> PriHighest Then
    ePriority = ePriority + 1
    End If
    
  6. Stop the build.
    If oPredModelBuilder.Status(lBuildID) = PredBldRunning Or _
          oPredModelBuilder.Status(lBuildID) = PredBldPaused Then
    oPredModelBuilder.Stop(lBuildID)
    End If
    
  7. Stop all the builds.
    oPredModelBuilder.StopAllBuilds
    

Copyright © 2005 Microsoft Corporation.
All rights reserved.
Show: