Процедура дает пустой результат при вызове

Question

Я создал простую процедуру для обращения числа в PL / SQL. Процедура выполняется нормально, но результат не печатается. Вот проц,

CREATE OR REPLACE PROCEDURE SAMPLE_REV (myinput IN NUMBER, finalresult OUT NUMBER)
IS 
    OperInput NUMBER;
    MYREMAINDER NUMBER;
    MYRESULT NUMBER;
BEGIN   
     OperInput:=myinput;    

     while OperInput!=0 LOOP 

        MYREMAINDER:=mod(OperInput,10);
        MYRESULT:=(MYRESULT*10)+MYREMAINDER;
        OperInput:=TRUNC(OperInput/10);  

     end LOOP;

    finalresult:=MYRESULT;

END;

Процедура, когда выполнено работает отлично. Но когда я вызываю процедуру по следующему коду,

DECLARE
      ENTER NUMBER;
      finalresult NUMBER;      
BEGIN
     ENTER:=&ENTER;
     SAMPLE_REV(ENTER,finalresult);
     dbms_output.put_line('Output is '|| finalresult);
END;

Результат пуст, как,

Output is 

PL/SQL procedure successfully completed.

Я не могу узнать здесь ошибку, если есть. И спасибо за помощь.

Answer 1

Я вижу, ваш расчет не верен. Я добавил дополнительный вывод в процедуру, чтобы увидеть, что он печатает.

MYRESULT itslef пусто, и, следовательно, вы видите, что вывод пуст.

set serveroutput on;
CREATE OR REPLACE PROCEDURE SAMPLE_REV (myinput IN NUMBER, finalresult OUT NUMBER)
IS 
    OperInput NUMBER;
    MYREMAINDER NUMBER;
    MYRESULT NUMBER;
BEGIN   
     OperInput:=myinput;    

     while OperInput!=0 LOOP 

        MYREMAINDER:=mod(OperInput,10);
        dbms_output.put_line('remainder ' || MYREMAINDER);
        dbms_output.put_line('in ' || MYRESULT);

        MYRESULT:=(MYRESULT*10)+MYREMAINDER;

        dbms_output.put_line('out ' || MYRESULT);
        OperInput:=TRUNC(OperInput/10);  

     end LOOP;

    finalresult:=MYRESULT;

END;

Answer 2

Чтобы просмотреть вывод процедуры PL / SQL с использованием dbms_ouput.put_line, выполните в окне сеанса следующую команду:

SET SERVEROUTPUT ON;

Должен сделать трюк:)

Answer 3

Эта строка является проблемой:

MYRESULT:=(MYRESULT*10)+MYREMAINDER;

На первой итерации MYRESULT равен нулю. Таким образом, MYRESULT*10 также будет нулевым. And null + MYREMAINDER = null;

Инициализировать MYRESULT в разделе объявления 0;

Answer 4

процедура использует MYRESULT до ее инициализации, следовательно, null. Итак, эта строка:

MYRESULT:=(MYRESULT*10)+MYREMAINDER;

по существу

    MYRESULT:=(<<<NULL>>>*10)+MYREMAINDER;

Так что в целом ноль.

Просто добавив: = 0 к объявлению, оно заработает. Также добавьте set serveroutput on

SQL>set serveroutput on

SQL>CREATE OR REPLACE PROCEDURE SAMPLE_REV (myinput IN NUMBER, finalresult OUT NUMBER)
  2  IS 
  3      OperInput NUMBER;
  4      MYREMAINDER NUMBER;
  5      MYRESULT NUMBER :=0;
  6  BEGIN   
  7       OperInput:=myinput;    
  8  
  9       while OperInput!=0 LOOP 
 10  
 11          MYREMAINDER:=mod(OperInput,10);
 12          MYRESULT:=(MYRESULT*10)+MYREMAINDER;
 13          OperInput:=TRUNC(OperInput/10);  
 14  
 15       end LOOP;
 16  
 17      finalresult:=MYRESULT;
 18  
 19  END;
 20* /
Procedure SAMPLE_REV compiled

SQL>DECLARE
  2        ENTER NUMBER;
  3        finalresult NUMBER;      
  4  BEGIN
  5       ENTER:=&ENTER;
  6       SAMPLE_REV(ENTER,finalresult);
  7       dbms_output.put_line('Output is '|| finalresult);
  8  END;
  9  /
Enter value for ENTER: 987


Output is 789


PL/SQL procedure successfully completed.

SQL>