%MACRO DSHIDE;
%LET _lastds_ = &sysdsn;
%IF &_lastds_ ^= _NULL_ %THEN
%IF %SCAN(&sysdsn,2) ^= %THEN %DO;
     %LET _lastds_ = %SCAN(&sysdsn,1).%SCAN(&sysdsn,2); %END;
%ELSE %DO; %LET _lastds_ = %SCAN(&sysdsn,1); %END;
%MEND DSHIDE;