$title $clear acts like a data statement and knows about alias (CLEAR3,SEQ=11)
set i / a,b,c /; alias(i,j);
$clear j
abort$card(i) 'set should be empty', i;
abort$card(j) 'set should be empty', j;

set ii(*,*) / 1.2, 3.4 /; alias(ii,jj);
$clear jj
abort$card(ii) 'set should be empty', ii;
abort$card(jj) 'set should be empty', jj;