사례 사용자 (PLSQL, 익명 블록)에서 읽을 때 조건이 올바르게 실행되지 않을 때

Question

내 코드를 실행하면 코드 내부의 문안에 관계없이 모든 사례 조건을 통과 한 것처럼 보입니다. 내가 달성하기 위해 노력하고있어

는 :

• 나는 사용자가 간단한 정수 읽고 그가 0 값을 입력하면, 나는 프로그램을 종료하고 loop를 종료하고 싶습니다.
  1. 이 프로그램은 정수에 대한 사용자 요청 (:
     • 이 case

     실행 예제의 모든 when 문을 입력합니다 : 나는이 프로그램을 실행하면 어떻게됩니까

0/1/2/3)

사용자 정보 RS 0 (프로그램이 루프를 종료하고 휴식해야한다)

내가 도시 세부 정보를 입력하고 프로그램

을 실행에 계속 시도하지 않은

시 세부 사항 (라인 32)를 물어 코드를 개발했습니다 :

SET SERVEROUTPUT ON; 

declare 
    poli_name poli.name%type; 
    poli_lat poli.lat%type; 
    poli_lon poli.lon%type; 
    counter int :=1; 

    cursor poli_c is select name,lat,lon from poli; 

    number_of_cities int; 

    epilogi number; 

begin 
    dbms_output.put_line('Select 1 To Enter Details'); 
    dbms_output.put_line('Select 2 To View All The Details'); 
    dbms_output.put_line('Select 3 To Run Group Algorithm'); 
    dbms_output.put_line('Select 0 To Exit The Programm'); 

    epilogi:=&Epilogi; 

    loop 
     case epilogi 
      when 0 then 
       dbms_output.putline('Exiting Programm...'); 
       exit; 
      when 1 then 
       name_c := &Enter_City_Name; --line 32 
       lat := &Enter_City_Lat; 
       lon := &Enter_City_Lon; 

       if lon >= -180 and lon <= 180 and lat >= -90 and lat <= 90 then 
        select count(id) into number_of_cities from poli; 

        if number_of_cities <= 15 then 
         insert into poli values(counter,name_c,lat,lon); 
         dbms_output.putline('City Successfully Added'); 
        else 
         dbms_output.putline('Cities Can Not Be More Than 15'); 
        end if; 
       else 
        dbms_output.putline('Wrong Longitude Or Latidute Values'); 
       end if; 
      when 2 then 
       open poli_c; 
       fetch poli_c into poli_name,poli_lat,poli_lon; 
       dbms_output.put_line('Onoma Polis:'||poli_name); 
       dbms_output.put_line('Latidute '||poli_name||': '||poli_lat); 
       dbms_output.put_line('Longtidute '||poli_name||': '||poli_lon); 
       close poli_c; 
      when 3 then 
       null; 
      else 
       dbms_output.put_line('Wrong input - try again...'); 
     end case; 

     counter := counter+1; 
     epilogi := &Epilogi; 
    end loop; 
end; 

내가 잘못하고 있습니까? 그게 뭐야? 시간 내 줘서 고마워.

Answer 1

& Var은 대체 변수입니다.

& Epilogi, & Enter_City_Name, & Enter_City_Lat, & Enter_City_Lon - 그들은 모든 스크립트가 실행과 전달되기 전에 설정합니다.

그래서 제대로 작동하지만 모든 변수는 실행 전에 설정해야합니다. 예를 들어 다음과 같은 경우에도 가치를 제공해야합니다.

declare 
var1 int; 

begin 
    return; 
    dbms_output.put_line('Unreachable code'); 
    var1 := &v1; 


end; 

Answer 2

그 포스트 그레스 CASE .. WHEN ... THEN ... ELSE ...의 표현이 아닌 진술 유의하시기 바랍니다. 따라서 표현식이 유효한 곳, 즉 할당, 반환 등 어디서나 사용되어야합니다.

* EDIT : 진짜 실수, PLSQL 대 PGSQL .. 오라클 변형은 일반적으로 슬래시 (PL/SQL) 혼란에 이르렀다. *