tests/bugs/recode-copy-bug-2.stat

   1 DATA LIST LIST
   2  /A (A1)
   3  B (A1).
   4
   5 BEGIN DATA
   6 1     2
   7 2     3
   8 3     4
   9 END DATA.
  10
  11 STRING A1 (A1).
  12 RECODE A ("1"="3") ("3"="1") (ELSE=COPY) INTO a1.
  13 EXECUTE.
  14 LIST.
  15
  16