Here is what I've got.
ImpDoc(n,2)
ImpDoc(1,1) = "report name"
Impdoc(1,2) = "Catalog name"
...
ImpDoc(n,1) = "report name"
Impdoc(n,2) = "Catalog name"
Set ImpApp = CreateObject("CognosImpromptu.Application")
ImpApp.Visible 1
for j = 1 to n...