Drukowanie wartości zmiennej w SQL Developer

Chciałem wydrukować wartość określonej zmiennej, która znajduje się w anonimowym bloku. Używam Oracle SQL Developer. Próbowałem użyć dbms_output.put_line. Ale to nie działa. Kod, którego używam jest pokazany poniżej.

SET SERVEROUTPUT ON

DECLARE

  CTABLE USER_OBJECTS.OBJECT_NAME%TYPE;
  CCOLUMN ALL_TAB_COLS.COLUMN_NAME%TYPE;
  V_ALL_COLS VARCHAR2(500);

  CURSOR CURSOR_TABLE
    IS
    SELECT OBJECT_NAME 
    FROM USER_OBJECTS 
    WHERE OBJECT_TYPE='TABLE'
    AND OBJECT_NAME LIKE 'tb_prm_%';

  CURSOR CURSOR_COLUMNS (V_TABLE_NAME IN VARCHAR2)
    IS
    SELECT COLUMN_NAME
    FROM ALL_TAB_COLS
    WHERE TABLE_NAME = V_TABLE_NAME;

BEGIN

  OPEN CURSOR_TABLE;

  LOOP
    FETCH CURSOR_TABLE INTO CTABLE;
    EXIT WHEN CURSOR_TABLE%NOTFOUND;

    OPEN CURSOR_COLUMNS (CTABLE);

    V_ALL_COLS := NULL;

    LOOP
      FETCH CURSOR_COLUMNS INTO CCOLUMN;
      V_ALL_COLS := V_ALL_COLS || CCOLUMN;
      IF CURSOR_COLUMNS%FOUND THEN
        V_ALL_COLS := V_ALL_COLS || ', ';
      ELSE
        EXIT;
      END IF;
    END LOOP;

    DBMS_OUTPUT.PUT_LINE(V_ALL_COLS);

  END LOOP;
  CLOSE CURSOR_TABLE;

END;

I otrzymuję dane wyjściowe tylko jako anonymous block completed.

Musisz włączyć dbms_output. W Oracle SQL Developer:

1. Pokaż okno Wyjście DBMS (Widok-> Wyjście DBMS).
2. Naciśnij przycisk „+” u góry okna Dbms Output, a następnie w otwartym oknie dialogowym wybierz otwarte połączenie z bazą danych.

W SQL * Plus:

 SET SERVEROUTPUT ON

SQL Developer wydaje się wyświetlać tekst DBMS_OUTPUT tylko wtedy, gdy jawnie włączyłeś panel okna DBMS_OUTPUT.

Przejdź do (Menu) VIEW -> Dbms_output, aby wywołać panel.

Kliknij znak Green Plus, aby włączyć wyjście dla połączenia, a następnie uruchom kod.

EDYCJA: Nie zapomnij ustawić rozmiaru bufora zgodnie z oczekiwaną ilością danych wyjściowych.

Najpierw włącz serwer wyjściowy

1. SET SERVEROUTPUT on następnie

2. Przejdź do okna Wyjście DBMS (Widok-> Wyjście DBMS)

3. następnie naciśnij Ctrl+, Naby połączyć się z serwerem

Istnieją 2 opcje:

set serveroutput on format wrapped;

lub

Otwórz menu „Widok” i kliknij „Wyjście dbms”. Na dole arkusza powinno pojawić się okno danych wyjściowych dbms. Następnie musisz dodać połączenie (z jakiegoś powodu nie dzieje się to automatycznie).

1) Przejdź do menu widoku.
2) Wybierz pozycję menu DBMS_OUTPUT.
3) Naciśnij Ctrl+ Ni wybierz edytor połączeń.
4) Wykonaj polecenie SET SERVEROUTPUT ON.
5) Następnie wykonaj swój skrypt PL / SQL.

DECLARE

  CTABLE USER_OBJECTS.OBJECT_NAME%TYPE;
  CCOLUMN ALL_TAB_COLS.COLUMN_NAME%TYPE;
  V_ALL_COLS VARCHAR2(5000);

  CURSOR CURSOR_TABLE
    IS
    SELECT OBJECT_NAME 
    FROM USER_OBJECTS 
    WHERE OBJECT_TYPE='TABLE'
    AND OBJECT_NAME LIKE 'STG%';

  CURSOR CURSOR_COLUMNS (V_TABLE_NAME IN VARCHAR2)
    IS
    SELECT COLUMN_NAME
    FROM ALL_TAB_COLS
    WHERE TABLE_NAME = V_TABLE_NAME;

BEGIN

  OPEN CURSOR_TABLE;
  LOOP
    FETCH CURSOR_TABLE INTO CTABLE;

    OPEN CURSOR_COLUMNS (CTABLE);
    V_ALL_COLS := NULL;
    LOOP

      FETCH CURSOR_COLUMNS INTO CCOLUMN;
      V_ALL_COLS := V_ALL_COLS || CCOLUMN;
      IF CURSOR_COLUMNS%FOUND THEN
        V_ALL_COLS := V_ALL_COLS || ', ';
      ELSE
        EXIT;
      END IF;
    END LOOP;
   close CURSOR_COLUMNS ;
    DBMS_OUTPUT.PUT_LINE(V_ALL_COLS);
    EXIT WHEN CURSOR_TABLE%NOTFOUND;
  END LOOP;`enter code here`
  CLOSE CURSOR_TABLE;

END;

Dodałem zamknięcie drugiego kursora. Działa i również uzyskuje wyniki ...

wybierz Widok -> Wyjście DBMS w menu i

Przejdź do okna Wyjście DBMS (Widok-> Wyjście DBMS).