BEGIN
   FOR i IN 1..3000
   LOOP
    if nls_charset_name(i) is not null then 
     dbms_output.put_line(TO_CHAR(i) || ' ' || nls_charset_name(i));
    end if;
   END LOOP;
 END;
/