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

'SAVE AS .SBS.

Sub Main
	Dim DataDoc As ISpssDataDoc
	Dim SyntDoc As ISpssSyntaxDoc
	Dim objSPSSInfo As ISpssInfo,ValueLabels()
	Dim i, j, NumVars As Long
	Dim VarName As String
	Dim vallab As String
	Dim varLab As String
	Dim vartyp As Long
	Dim varlen As Long
	Dim ss As String

	Set objSPSSInfo = objSpssApp.SpssInfo
	Set DataDoc = objSpssApp.Documents.GetDataDoc(0)

	NumVars=objSPSSInfo.NumVariables-1

	For i=0 To NumVars
  		VarName= objSPSSInfo.VariableAt(i)
  		varLab = objSPSSInfo.VariableLabelAt(i)
		vartyp = objSPSSInfo.VarType(i)
		varlen = objSPSSInfo.VarLength(i)

		If objSPSSInfo.NumberOfValueLabels(i) > 0 Then
			'ss = ""
			For j=0 To objSPSSInfo.NumberOfValueLabels(i)-1
				ss = ss & varlen & vbTab & vartyp & vbTab & VarName & vbTab & varLab & vbTab & objSPSSInfo.ValueAt(i,j) & vbTab & objSPSSInfo.ValueLabelAt(i,j) & vbCrLf
			Next j
		Else
			ss = ss & varlen & vbTab & vartyp & vbTab & VarName & vbTab & varLab & vbCrLf
		End If
	Next i

	Set SyntDoc = objSpssApp.NewSyntaxDoc
	SyntDoc.Visible = True

	SyntDoc.Text = ss

End Sub