Oracle DBMS输出不打印

Oracle DBMS输出不打印,oracle,plsql,datagrip,dbms-output,Oracle,Plsql,Datagrip,Dbms Output,嗨,我想用PLSql写一个ISBN验证。但是dbms_output.put_行不输出任何内容。我没有任何错误,但dbms_输出是黄色的,带有警告: 无法解析符号“dbms_输出” 检查信息:此检查执行未解析的SQL引用检查 。我在DataGrip中工作,是的,我已启用SYS.dbms_输出 DECLARE v_isbn VARCHAR(13) := 9783161484100; BEGIN isbn_validation(v_isbn); end; CREATE OR REPLACE

嗨,我想用PLSql写一个ISBN验证。但是dbms_output.put_行不输出任何内容。我没有任何错误,但dbms_输出是黄色的,带有警告:

无法解析符号“dbms_输出”

检查信息:此检查执行未解析的SQL引用检查

。我在DataGrip中工作,是的,我已启用SYS.dbms_输出

DECLARE
  v_isbn VARCHAR(13) := 9783161484100;
BEGIN
  isbn_validation(v_isbn);
end;

CREATE OR REPLACE PROCEDURE isbn_validation
(
    p_isbn VARCHAR
)
IS
  v_isbn VARCHAR(13);
  v_checksum INTEGER := 0;
BEGIN
    if LENGTH(p_isbn) = 10 THEN
        v_isbn := CONCAT('978',p_isbn);
        v_checksum := isbn13_checksum(v_isbn);
        if(v_checksum = -1)THEN dbms_output.put_line(v_isbn || ' is a invalid isbn');
        else
          v_isbn:=CONCAT(v_isbn,CAST(v_checksum AS CHAR));
          isbn_validation(v_isbn);
          dbms_output.put_line(v_isbn || ' is a valid isbn');
        end if;
    elsif LENGTH(v_isbn) = 13 THEN
      v_checksum := isbn13_checksum(v_isbn);
        if(v_checksum = -1)THEN dbms_output.put_line(v_isbn || ' is a invalid isbn');
        else
          v_isbn:=CONCAT(v_isbn,CAST(v_checksum AS CHAR));
          isbn_validation(v_isbn);
          dbms_output.put_line(v_isbn || ' is a valid isbn');
        end if;
    end if;
end;



CREATE OR REPLACE FUNCTION isbn13_checksum
(
    v_isbn VARCHAR
)
RETURN INTEGER
IS
  v_checksum INTEGER := 0;
  v_remainder INTEGER := 0;
BEGIN
    FOR i IN 1..12 LOOP
        if MOD(i,2) = 1 THEN
          if SUBSTR(v_isbn,i) = 'X' THEN
            v_checksum := v_checksum + 10;
          else v_checksum := v_checksum + CAST(SUBSTR(v_isbn,i) AS INTEGER);
          end if;
        else
          if SUBSTR(v_isbn,i) = 'X' THEN
            v_checksum := v_checksum + (10 * 3);
          else v_checksum := v_checksum + (CAST(SUBSTR(v_isbn,i) AS INTEGER) * 3);
          end if;
        end if;
    end loop;
    v_remainder := mod(v_checksum, 10);
    if v_remainder = 0 THEN RETURN -1;
    elsif(10-v_remainder)=10 THEN RETURN 0;
    else RETURN (10 - v_remainder);
    end if;
end;

尝试使用DBMS_OUTPUT.enable显式启用DBMS_输出

DECLARE
  v_isbn VARCHAR(13) := 9783161484100;
BEGIN
dbms_output.enable;
  isbn_validation(v_isbn);
end;

执行
将SERVEROUTPUT设置为ON
并再次运行代码。

可能是以下错误:
请使用最新版本。

这将无法在客户端启用它。