tests/autorecod.stat

   1 title 'Test for AUTORECODE procedure'.
   2
   3 /* Tries AUTORECODE on some random but similar strings of characters.
   4 data list /x 1-5(a) y 7.
   5 begin data.
   6 lasdj 1 1                                                           3
   7 asdfk 0 3 <---- These are the numbers that should be produced for a 4
   8 asdfj 2 4                                                           2
   9 asdfj 1 4                                                           3
  10 asdfk 2 3                                                           2
  11 asdfj 9 4                                                           1
  12 lajks 9 2                                                           1
  13 asdfk 0 3 These are the numbers that should be produced for b ----> 4
  14 asdfk 1 3                                                           3
  15 end data.
  16 list.
  17 autorecode x y into a b/descend.
  18
  19 /* This should produce the values indicated in the data above.
  20 list.
  21
  22 /* Just to make sure it works on second & subsequent executions,
  23 /* try it again.
  24 compute z=trunc(y/2).
  25 autorecode z into w.
  26
  27 /* This should display:
  28 /*   z 0 0 1 0 1 4 4 0 0
  29 /*   w 1 1 2 1 2 3 3 1 1
  30 list z w.