BCA fails running reports with macros

Hi all,

We are in the process of upgrading BO from 4.1.5 to 5.0.1. All is seamless, except for BCA which is failing with every batch report that contains a macro.
All worked in DAS 4.1.5.
Scripts were converted to VBA macro using BO’s utility. And all reports with macros run fine online.
The problem appears when I send it to BCA.

The error message is:
Error Code = 0x800706be, Error Message= ‘The remote procedure call failed ‘, Wcode=0x00000000,
Description=’(null)’

As per previous posted messages with that error message, I just needed to increase Administrator
parameters for “Timeout for interactive actions” and “Timeout for batch actions”.
I did to 60, and 120 respectively and it still fails. The report runs online in less than 2 minutes.
Any ideas on what may be wrong?

My script is:

Sub main()
Dim Doc As busobj.Document
Dim SBegin As String
Dim SEnd As String

SBegin = Format(Date, “YYYY”) & “01”
SEnd = Format(Date, “YYYYMM”) - 1
Application.Variables.Item(“Enter Beginning Date ex:199701”).Value = SBegin
Application.Variables.Item(“Enter Ending Date ex:199706”).Value = SEnd ActiveDocument.Refresh
ActiveDocument.Save
ActiveDocument.Close
End Sub

What it does is just populates 2 prompted parameters, refresh and save the report.

Please help.
Thanks,
Edna


Listserv Archives (BOB member since 2002-06-25)

Problem is with ActiveDocument.Close statement. Don’t close the document.

In BO4 when u attach this script with the document and send it to DAS, when DAS processes the document, it receives the document from repository and extracts the script and saves the script file in temp directory in the filesystem and then executes it. But BO5 VBA macros are executed from within the document itself. So when you close the document it crashes.

Vasan
Baton Rouge International Inc
Data Warehousing Division

Edna_Lee@SWISSRE.COM on 03/29/2000 12:40:33 PM

My script is:

Sub main()
Dim Doc As busobj.Document
Dim SBegin As String
Dim SEnd As String

SBegin = Format(Date, “YYYY”) & “01”
SEnd = Format(Date, “YYYYMM”) - 1
Application.Variables.Item(“Enter Beginning Date ex:199701”).Value = SBegin
Application.Variables.Item(“Enter Ending Date ex:199706”).Value = SEnd ActiveDocument.Refresh
ActiveDocument.Save
ActiveDocument.Close
End Sub

What it does is just populates 2 prompted parameters, refresh and save the report.

******************************************************************************* Note: The information contained in this message may be privileged and confidential and protected from disclosure. If the reader of this message is not the intended recipient, or an employee or agent responsible for delivering this message to the intended recipient, you are hereby notified that any dissemination, distribution or copying of this communication is strictly prohibited. If you have received this communication in error, please notify us immediately by replying to the message and deleting it from your computer. Thank you. Ernst & Young LLP



Listserv Archives (BOB member since 2002-06-25)