data changes; set mylib.attractions; array changelist{3} Museums Galleries Other; do Count = 1 to 3; if changelist{Count} = . then changelist{Count} = 0; end; run; %macro VBInt(value=,retval=); %definevariable(variablename=LION_VBInt,length=5,default=); LION_VBInt = Int(&value); if &value < 0 then do; if LION_VBInt ne &value then LION_VBInt = Int(&value - 1); end; &retval = LION_VBInt; %mend VBInt;