$title 'No assignment to universe' (UNIV1,SEQ=176)
set i / 1*10 /;
alias(*,u);
u('1') = no;
display u;
$if errorfree $abort assigment not allowed
$clearError
$terminate