gctools/cognos7/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

   rem folder = "C:\GAPS\Portal\System\Models"
   rem filename = "belege.mdc"
   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
   objApp.Quit
End Sub