pintos-os.org Git - pspp/blob - tests/recode.stat

   1 title 'Test RECODE transformation'.
   2
   3 data list /A B 1-20(a).
   4 begin data.
   5 12345678901234567890
   6 a         b
   7 jkl;      aklsdf
   8 aklsd     ioqeur
   9  ioquer   pasdflk
  10 end data.
  11 *recode A B(1,2,3,4=5)(5 thru hi=9)(lo thru 10=4) into A D
  12         /A B(lo thru hi=copy)(sysmis=0)(else=sysmis) into C D.
  13 string c d(a10).
  14 leave c d.
  15 recode  A B('a'='b')('jkl;'='jkl;p')('ioqeur'='sdjfkla') into C D.
  16 *recode A B(1,2,3,4="asdf")(else="xyzw")(sysmis="bdfg") into C D.
  17 *recode A B("asdf"=copy)(convert)("lkjf"=sysmis)(convert)(else=123) into C D.
  18 *recode A B(1,3,5,6,7=COPY)(SYSMIS=5e5) into C D.
  19 *recode a (convert)('xx'=50) into b.
  20 list.
  21