Variáveis Booleanas

Muitos confundem a atribuição de 0 (zero) ou valores maiores que 0 (zero) como falso ou verdadeiro na atribuição a variáveis booleanas, aqui demonstro um simples script que esclarece esta situação.

declare 
  tb boolean;  -- 0 = false, 1 = true
  qtde integer ; 
begin
  qtde := 1222;
  tb := ( qtde > 0 ) ;
  if tb then
     dbms_output.put_line ('true');
  else
     dbms_output.put_line ('false');    
  end if;
end;