Problems running scripts in v17

[Cleland, Patricia (EDU)]

I have a number of scripts that I've collected over the years that don't
seem to work in v17.

For example, below is a script that I've used successfully for years
(the creation date is 2002) on versions 12, 13 and 15. The script closes
all the case statistics in the output viewer.

========================================================
Sub Main
        ' Declare object variables
Dim objOutputDoc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable

Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items()

Dim intItemCount As Integer             'number of output items
Dim intItemType As Integer              'type of item (see SpssType
property)
Dim strLabel As String                  'Item label

' Iterate through output items
' If Statistics, then hide

intItemCount = objOutputItems.Count()
        For Index = 0 To intItemCount - 1
                Set objOutputItem = objOutputItems.GetItem(Index)
                intItemType = objOutputItem.SPSSType()
                strLabel = objOutputItem.Label
                If strLabel = "Statistics" Then
                        objOutputItem.Visible = False
                End If
        Next Index
End Sub
======================================================

When I run it in 17, this is the log I get:

----------------------------------
ERROR : (16305) No error.


Error :
------------------------------------
and the Statistics don't close.


I actually get this message with every script I've tried to run.

Any suggestions as to what's gone wrong?

In an earlier email (Tuesday, December 09, 2008 9:58 AM), Brad Cousins
asked about the sample scripts that come with SPSS17, which can be found
in '../SPSSInc/Statistics17/Samples'. This subfolder is empty on my
system. Will this affect my ability to run scripts? How can I get the
sample scripts?

TIA

Pat

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

[Peck, Jon]

I ran this script without any problems using 17.0.1, and it did close "Statistics" tables.  Please try installing the patch, and let us know if the problem persists.

Regards,
Jon Peck

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of Cleland, Patricia (EDU)
Sent: Wednesday, December 17, 2008 1:42 PM
To: [hidden email]
Subject: [SPSSX-L] Problems running scripts in v17

I have a number of scripts that I've collected over the years that don't
seem to work in v17.

For example, below is a script that I've used successfully for years
(the creation date is 2002) on versions 12, 13 and 15. The script closes
all the case statistics in the output viewer.

========================================================
Sub Main
        ' Declare object variables
Dim objOutputDoc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable

Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items()

Dim intItemCount As Integer             'number of output items
Dim intItemType As Integer              'type of item (see SpssType
property)
Dim strLabel As String                  'Item label

' Iterate through output items
' If Statistics, then hide

intItemCount = objOutputItems.Count()
        For Index = 0 To intItemCount - 1
                Set objOutputItem = objOutputItems.GetItem(Index)
                intItemType = objOutputItem.SPSSType()
                strLabel = objOutputItem.Label
                If strLabel = "Statistics" Then
                        objOutputItem.Visible = False
                End If
        Next Index
End Sub
======================================================

When I run it in 17, this is the log I get:

----------------------------------
ERROR : (16305) No error.


Error :
------------------------------------
and the Statistics don't close.


I actually get this message with every script I've tried to run.

Any suggestions as to what's gone wrong?

In an earlier email (Tuesday, December 09, 2008 9:58 AM), Brad Cousins
asked about the sample scripts that come with SPSS17, which can be found
in '../SPSSInc/Statistics17/Samples'. This subfolder is empty on my
system. Will this affect my ability to run scripts? How can I get the
sample scripts?

TIA

Pat

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

[Cleland, Patricia (EDU)]

The patch had been installed before I tried to run the script.

I don't know whether this means anything, but when I open the script, it
opens v15, even if I have v17 already open.

Pat



-----Original Message-----
From: Peck, Jon [mailto:[hidden email]]
Sent: December 17, 2008 4:26 PM
To: Cleland, Patricia (EDU); [hidden email]
Subject: RE: [SPSSX-L] Problems running scripts in v17

I ran this script without any problems using 17.0.1, and it did close
"Statistics" tables.  Please try installing the patch, and let us know
if the problem persists.

Regards,
Jon Peck

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of
Cleland, Patricia (EDU)
Sent: Wednesday, December 17, 2008 1:42 PM
To: [hidden email]
Subject: [SPSSX-L] Problems running scripts in v17

I have a number of scripts that I've collected over the years that don't
seem to work in v17.

For example, below is a script that I've used successfully for years
(the creation date is 2002) on versions 12, 13 and 15. The script closes
all the case statistics in the output viewer.

========================================================
Sub Main
        ' Declare object variables
Dim objOutputDoc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable

Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items()

Dim intItemCount As Integer             'number of output items
Dim intItemType As Integer              'type of item (see SpssType
property)
Dim strLabel As String                  'Item label

' Iterate through output items
' If Statistics, then hide

intItemCount = objOutputItems.Count()
        For Index = 0 To intItemCount - 1
                Set objOutputItem = objOutputItems.GetItem(Index)
                intItemType = objOutputItem.SPSSType()
                strLabel = objOutputItem.Label
                If strLabel = "Statistics" Then
                        objOutputItem.Visible = False
                End If
        Next Index
End Sub
======================================================

When I run it in 17, this is the log I get:

----------------------------------
ERROR : (16305) No error.


Error :
------------------------------------
and the Statistics don't close.


I actually get this message with every script I've tried to run.

Any suggestions as to what's gone wrong?

In an earlier email (Tuesday, December 09, 2008 9:58 AM), Brad Cousins
asked about the sample scripts that come with SPSS17, which can be found
in '../SPSSInc/Statistics17/Samples'. This subfolder is empty on my
system. Will this affect my ability to run scripts? How can I get the
sample scripts?

TIA

Pat

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

[Peck, Jon]

Yes, that means that the 17 COM support is not properly installed.  Please contact Technical Support to see if they can diagnose the problem.

-Jon

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of Cleland, Patricia (EDU)
Sent: Thursday, December 18, 2008 7:03 AM
To: [hidden email]
Subject: Re: [SPSSX-L] Problems running scripts in v17

The patch had been installed before I tried to run the script.

I don't know whether this means anything, but when I open the script, it
opens v15, even if I have v17 already open.

Pat



-----Original Message-----
From: Peck, Jon [mailto:[hidden email]]
Sent: December 17, 2008 4:26 PM
To: Cleland, Patricia (EDU); [hidden email]
Subject: RE: [SPSSX-L] Problems running scripts in v17

I ran this script without any problems using 17.0.1, and it did close
"Statistics" tables.  Please try installing the patch, and let us know
if the problem persists.

Regards,
Jon Peck

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of
Cleland, Patricia (EDU)
Sent: Wednesday, December 17, 2008 1:42 PM
To: [hidden email]
Subject: [SPSSX-L] Problems running scripts in v17

I have a number of scripts that I've collected over the years that don't
seem to work in v17.

For example, below is a script that I've used successfully for years
(the creation date is 2002) on versions 12, 13 and 15. The script closes
all the case statistics in the output viewer.

========================================================
Sub Main
        ' Declare object variables
Dim objOutputDoc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable

Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items()

Dim intItemCount As Integer             'number of output items
Dim intItemType As Integer              'type of item (see SpssType
property)
Dim strLabel As String                  'Item label

' Iterate through output items
' If Statistics, then hide

intItemCount = objOutputItems.Count()
        For Index = 0 To intItemCount - 1
                Set objOutputItem = objOutputItems.GetItem(Index)
                intItemType = objOutputItem.SPSSType()
                strLabel = objOutputItem.Label
                If strLabel = "Statistics" Then
                        objOutputItem.Visible = False
                End If
        Next Index
End Sub
======================================================

When I run it in 17, this is the log I get:

----------------------------------
ERROR : (16305) No error.


Error :
------------------------------------
and the Statistics don't close.


I actually get this message with every script I've tried to run.

Any suggestions as to what's gone wrong?

In an earlier email (Tuesday, December 09, 2008 9:58 AM), Brad Cousins
asked about the sample scripts that come with SPSS17, which can be found
in '../SPSSInc/Statistics17/Samples'. This subfolder is empty on my
system. Will this affect my ability to run scripts? How can I get the
sample scripts?

TIA

Pat

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

[Cleland, Patricia (EDU)]

In case others are interested, here's the response that I received from
Tech Support. It fixed the problem.

Pat

========================================================================


We have Resolution 80619 on file for this issue.

Problem Summary:
SPSS Statistics 17 - Receive Error: (16305) no error when running a
script e.g Syntax Convertor.wwd

Problem Description:
I have recently upgraded to SPSS Statistics 17 and have old Tables
command syntax which I would like to convert with the syntax
convertor.wwd script. When I click on "Utilities - Run scipt" I can
locate the script in the samples folder but when I click "Run" nothing
happens. I only get this strange message in the viewer:



Error: (16305) no error.



Error:



When I click on "File - Open Script" and open the convertor script in a
script editor nothing happens and I get no error message when I click on
the green arrow to run the script.

Resolution Summary:
This problem has been reported to SPSS Development - Workaround
Available

Resolution Description:
This problem has been reported to SPSS Development. The problem is
expected to be fixed in SPSS Statistics 17.0.2.

As a workaround, please register spsswin.dll manually.

To do this, go to a command prompt and change directory to c:\Program
Files\Common Files\SPSS. When you are in this folder type:

regsvr32 spsswin.dll

Press the enter key. After that you should be able to run your scripts
without problems.

We apologize for any inconvenience.

-----Original Message-----
From: Peck, Jon [mailto:[hidden email]]
Sent: December 18, 2008 9:39 AM
To: Cleland, Patricia (EDU); [hidden email]
Subject: RE: Re: [SPSSX-L] Problems running scripts in v17

Yes, that means that the 17 COM support is not properly installed.
Please contact Technical Support to see if they can diagnose the
problem.

-Jon

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of
Cleland, Patricia (EDU)
Sent: Thursday, December 18, 2008 7:03 AM
To: [hidden email]
Subject: Re: [SPSSX-L] Problems running scripts in v17

The patch had been installed before I tried to run the script.

I don't know whether this means anything, but when I open the script, it
opens v15, even if I have v17 already open.

Pat



-----Original Message-----
From: Peck, Jon [mailto:[hidden email]]
Sent: December 17, 2008 4:26 PM
To: Cleland, Patricia (EDU); [hidden email]
Subject: RE: [SPSSX-L] Problems running scripts in v17

I ran this script without any problems using 17.0.1, and it did close
"Statistics" tables.  Please try installing the patch, and let us know
if the problem persists.

Regards,
Jon Peck

-----Original Message-----
From: SPSSX(r) Discussion [mailto:[hidden email]] On Behalf Of
Cleland, Patricia (EDU)
Sent: Wednesday, December 17, 2008 1:42 PM
To: [hidden email]
Subject: [SPSSX-L] Problems running scripts in v17

I have a number of scripts that I've collected over the years that don't
seem to work in v17.

For example, below is a script that I've used successfully for years
(the creation date is 2002) on versions 12, 13 and 15. The script closes
all the case statistics in the output viewer.

========================================================
Sub Main
        ' Declare object variables
Dim objOutputDoc As ISpssOutputDoc
Dim objOutputItems As ISpssItems
Dim objOutputItem As ISpssItem
Dim objPivotTable As PivotTable

Set objOutputDoc = objSpssApp.GetDesignatedOutputDoc
Set objOutputItems = objOutputDoc.Items()

Dim intItemCount As Integer             'number of output items
Dim intItemType As Integer              'type of item (see SpssType
property)
Dim strLabel As String                  'Item label

' Iterate through output items
' If Statistics, then hide

intItemCount = objOutputItems.Count()
        For Index = 0 To intItemCount - 1
                Set objOutputItem = objOutputItems.GetItem(Index)
                intItemType = objOutputItem.SPSSType()
                strLabel = objOutputItem.Label
                If strLabel = "Statistics" Then
                        objOutputItem.Visible = False
                End If
        Next Index
End Sub
======================================================

When I run it in 17, this is the log I get:

----------------------------------
ERROR : (16305) No error.


Error :
------------------------------------
and the Statistics don't close.


I actually get this message with every script I've tried to run.

Any suggestions as to what's gone wrong?

In an earlier email (Tuesday, December 09, 2008 9:58 AM), Brad Cousins
asked about the sample scripts that come with SPSS17, which can be found
in '../SPSSInc/Statistics17/Samples'. This subfolder is empty on my
system. Will this affect my ability to run scripts? How can I get the
sample scripts?

TIA

Pat

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD

=====================
To manage your subscription to SPSSX-L, send a message to
[hidden email] (not to SPSSX-L), with no body text except the
command. To leave the list, send the command
SIGNOFF SPSSX-L
For a list of commands to manage subscriptions, send the command
INFO REFCARD