Change a cognos report to a new different catalog?

Answer 1

You can do it with a macro.

Dim ImpAppObject as Object

Dim ImpRepObject as Object

Dim strPath as String

Dim strExtension as String

Dim strFolder as String

Dim PromptVal As String

Dim strPath1 as String

Sub Main()

strPath = "M:\Algemeen\Werkmap\In"

strFolder = dir("M:\Algemeen\Werkmap\In\*.IMR")

strPath1 = "M:\Algemeen\Werkmap\Uit"

Set ImpAppObject = CreateObject("CognosImpromptu.Application")

ImpAppObject.Visible 0

ImpAppObject.OpenCatalog "L:\BESTMATE 3.014PRPI.CAT","Creator"

Do While StrFolder <>""

Set ImpRepObject = ImpAppObject.OpenReportNoExecute(strpath & strfolder)

ImpRepObject.SaveAs strpath1+strfolder

ImpRepObject.CloseReport

strFolder = Dir

loop

ImpAppObject.Quit

Set ImpAppObject = Nothing

End Sub