Skip to Content
0
Nov 13, 2013 at 08:29 PM

DBMS custom code - VBScript translation error

45 Views

Hi,

A prior Data Architect customized our Oracle 10gr2 DBMS file, adding a template called \Profile\Shared\Templates\SetTableList\. The VBScript is showing the following error for the Primary Key object on the table (we're using PD 16.5 EBF#3):

1 error(s), 0 warning(s)

ORACLE10gR2::Profile\Shared\Templates\SetTableList(29) (Key "PK_E_FORM_106"):

[translation error] VBScript execution error;

1 error(s), 0 warning(s)

ORACLE10gR2::Profile\Shared\Templates\SetTableList(29) (Key "PK_E_FORM_106"):

[translation error] VBScript execution error;

The VBScript template code is shown below. Any advice would be greatly appreciated:

.vbscript

Dim fso, tf, TextStream, S

Dim TableDone

Dim tCode

If ActiveSelection.Item(0).IsKindOf(cls_Table) Then

tCode = ActiveSelection.Item(0).Code

Else

tCode = ActiveSelection.Item(0).Parent.Code

End If

TableDone = False

Const OpenFileForAppending = 8

Const OpenFileForReading = 1

Set fso = CreateObject("Scripting.FileSystemObject")

Set tf = fso.OpenTextFile("c:\GenList.txt")

Do While Not tf.AtEndOfStream

S = tf.ReadLine

If S = tCode Then

TableDone = True

Exit Do

End If

Loop

tf.Close

If Not Tabledone Then

Set tf = fso.OpenTextFile("c:\GenList.txt", OpenFileForAppending)

tf.WriteLine(tCode)

tf.Close

End If

.endvbscript

Note too that the DBMS file is on a network drive and shared among all Data Modellers, but one Modeller is not experiencing the problem with their PD 16.5 install. Could it be a configuration problem? We've checked the General Options and they are all the same.