ERROR: Array subscript out of range at line 1592 column 42.

[Nadra999]

*recoding 6 to be missing;*recode refuse to answer to missing;

array ASix (*)hb_bx hb_effects hb_burden hb_work hb_travel hb_cost hb_problems
hb_Others hb_advice hb_satisfied
if hb_english hb_communicating hb_comfort;/*existing variables */

array AMiss (*)hb_bx_R hb_effects_R hb_burden_R hb_work_R hb_travel_R hb_cost_R hb_problems_R
hb_Others_R hb_advice_R hb_satisfied_R
hb_english_R hb_communicating_R hb_comfort_R;/* new variables*/

do i =1 to dim (Asix);
if ASix (i)=6 then AMiss (i)=.; else AMiss (i)=ASix (i);
end;

What is wrong?

[Astounding]

The first array contains an extra element.  Somehow the word IF snuck its way into the list of elements.  Just remove it.