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

*Copy into a syntax.

BEGIN PROGRAM.
import spss, spssaux

#-------------------------------------------------.
# CREATE DUMMY
#-------------------------------------------------.
dvar = "N_nUTS_3"
#-------------------------------------------------.
ss = ""
ss2 = ""
ss3 = ""
ss4 = ""
for i in range(spss.GetVariableCount()):
  if  spss.GetVariableName(i)[0:len(dvar)] == dvar:
        valueLabels = spssaux.GetValueLabels(i)
        if valueLabels:
                for value in sorted(valueLabels):
                        ss = ss + "if " + spss.GetVariableName(i) + " =  " + value +  " " + spss.GetVariableName(i)+ "." + value + " = 1." + "\n"
                        ss2 = ss2 + "if ~sysmis(" + spss.GetVariableName(i) + ") " + spss.GetVariableName(i)+ "." + value + " = 0." + "\n"
                        ss3 = ss3 + "var lab " + spss.GetVariableName(i) + "." + value + " '" + valueLabels[value] + "'.\n"
                        ss4 = ss4 + spss.GetVariableName(i) + "." + value + "\n"
if len(ss4):
  ss4 = "val lab \n" + ss4 + " 0 'No' 1 'Yes'.\n"
  ss = ss2 + ss + ss3 + ss4 + "Execute.\n"
  spss.Submit(str(ss))
END PROGRAM.