Cognos macro error while opening Impromptu Catalog

[lhlot]

Cognos Macro fails to open catalog (version 6.1). We have macro to extract values to CSV file. It worked OK for 4 years (it was run once per month). At the begining on march 2008 it fails to run. Manual attempt to run macro shows following error message:
----------------------------------------------------------------------------------
R440 "Impromptu: This is not a valid operation at the moment, Impromptu is busy."
----------------------------------------------------------------------------------

We found, that there is problem with OpenCatalog method, but we are not able to figure out why. No other instance of Impromptu is running.

Macro is as follows:



Sub Main()
Dim objImpApp as Object
Dim objImpRep as Object
'$Include: "GR.SBH"

Set objImpApp = CreateObject("CognosImpromptu.Application")
objImpApp.OpenCatalog KatMaterialAS, "Creator"
Set objImpRep = objImpApp.OpenReport(ImrStavSklAS)
objImpRep.RetrieveAll
objImpRep.ExportASCII(SoubStavSklAS)
objImpRep.CloseReport
objImpApp.Quit
Set objImpRep = Nothing
Set objImpApp = Nothing
End Sub

Header file GR.SBH:


Dim KatMaterialAS as String
Dim KatMaterialTEXT as String
Dim KatMaterialSPIN as String
Dim ImrStavSklAS as String
Dim ImrStavSklTEXT as String
Dim ImrStavSklSPIN as String
Dim SoubStavSklAS as String
Dim SoubStavSklTEXT as String
Dim SoubStavSklSPIN as String

'Definice pro ziskani aktualniho stavu skladu
KatMaterialAS = "S:\BI\MODEL\Catalogs\user\Material_AS.cat"
KatMaterialTEXT = "S:\BI\MODEL\Catalogs\user\Material_TEXT.cat"
KatMaterialSPIN = "S:\BI\MODEL\Catalogs\user\Material_SPIN.cat"
ImrStavSklAS = "S:\BI\MODEL\AS\Ppfeeds\Invana03_All.imr"
ImrStavSklTEXT = "S:\BI\MODEL\TEXT\Ppfeeds\Invana03_All.imr"
ImrStavSklSPIN = "S:\BI\MODEL\SPIN\Ppfeeds\Invana03_All.imr"
SoubStavSklAS = "S:\BI\MODEL\MODELS\stav_skladu\sklad_AS.csv"
SoubStavSklTEXT = "S:\BI\MODEL\MODELS\stav_skladu\sklad_TEXT.csv"
SoubStavSklSPIN = "S:\BI\MODEL\MODELS\stav_skladu\sklad_SPIN.csv"

 

[CognosProfessional]

I found new windows updates are not letting the manual processes of older versions of impromptu run properly. This is also happening when someone gets a new pc. Upgrade.

CP