Question

嗨，我想在PLSql中编写一个ISBN验证。但是dbms_output.put_line不输出任何内容。我没有任何错误，但是dbms_output用黄色标记警告：

无法解析符号“ dbms_output”

检查信息：此检查执行未解决的SQL引用检查。

。我在DataGrip中工作，是的，我已启用SYS.dbms_output。

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;

Answer 1

尝试使用dbms_output.enable明确启用DBMS_OUTPUT

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

Answer 2

执行SET SERVEROUTPUT ON并再次运行代码。

Answer 3

可能是这个错误：https://youtrack.jetbrains.com/issue/DBE-4702 请使用最新版本。

DBMS输出无法打印

3 个答案: