CREATE OR REPLACE PACKAGE   BODY p1ch_pkg
IS
   PROCEDURE show_nt
   IS
      l_index   pls_integer := g_nt.FIRST;
   BEGIN
        --  g_nt:=nt();
  -- dbms_output.put_line(11111);
      while l_index IS NOT NULL
      loop
         dbms_output.put_line ('l_index='||l_index || '-' || g_nt (l_index));
         l_index := g_nt.NEXT (l_index);
      END loop;
   END;
END;