'Wilhelm Landerholm.
'QUEUE/STATB - your partner in data analysis, data modeling and data mining.
'http://www.qsweden.com

'SAVE AS .SBS.


Sub Main
    Const PREFIX= "prefix_"

		Dim objDataDoc As ISpssDataDoc
        Dim objDocuments As ISpssDocuments
        Set objDocuments = objSpssApp.Documents

        Dim varList As Variant, newlist As Variant, oldlist As Variant
        Dim i As Long

        Set objDataDoc = objDocuments.GetDataDoc(0)

        varList = objDataDoc.GetVariables (False)

        For i = LBound(varList) To UBound(varList)
                oldlist = oldlist & " " & varList(i)
                newlist = newlist & " " & PREFIX & varList(i)
        Next i

        objSpssApp.ExecuteCommands "RENAME VARIABLES (" & oldlist & "=" & newlist & ").", _
                 False  

End Sub