C11/Tasks/scripts/VBS/save-as-mdl.mac

Dim objApp As Object
Dim objModel As Object
Dim objCube As Object

Dim filename as String
Dim folder as String
Dim publish As String


Sub Main ()
   Rem On Error Resume Next

   folder = "C:\GlobalCube\System\LOCOSOFT\Models"
   filename = "S_Aftersales"
   rem publish = "C:\GAPS\Portal\System\Cube_out\temp"
   
   folder = GetField(Command, 1, ",")
   filename = GetField(Command, 2, ",")
   
   Set objApp = CreateObject("IBMCognosTransformer.ApplicationCtrl.1")
   Set objModel = objApp.OpenModel(folder + "\" + filename + ".pyj")

   objModel.SaveAs(folder + "\..\mdl\" + filename + ".mdl")
   
   objModel.Close
   rem objApp.Quit
End Sub