我试图打印sql查询的值，但它是打印不同的值

Question

我已经创建了一个存储过程，在那里我卡住了，我试图打印REC_STAT的值，但我得到其他值当我试图得到类似ab，ab1和ver_dosage的vlaue时，我可以打印这些值，但是REC.REC_STAT有问题，它通过dbms_output.put_line打印空白值，但打印像这样的REC。

declare 

EXT_PHARMA_ID varchar2(10) := 'MCL_051270'; 

begin 

TEST_SP('T_MCL_051270_20160314_0019057','MCL',EXT_PHARMA_ID,'0'); 

end; 

/

DBMS_OUTPUT.PUT_LINE是打印这样

REC 
REC 
REC 
REC 

存储过程： -

CREATE OR REPLACE PROCEDURE TEST_SP(Dy_File_Name IN  VARCHAR2, 
               SUPPLIER_CD  IN  VARCHAR2, 
               EXT_PHARMA_ID IN OUT VARCHAR2, 
               FLAG_VALUE  IN  VARCHAR2) 
    AS 

      CLREF   SYS_REFCURSOR; 

     TYPE REC_TYP IS RECORD 

      (

      AB     VARCHAR2(256) , 
      AB1    VARCHAR2(256) , 
      AB2    NUMBER(20), 
      REC_STAT   VARCHAR2(9), 
      VER_DOSAGE   VARCHAR2(20), 

     OPEN CLREF FOR ('SELECT 
        S.ABC AS AB, 
       S.ABC1 AS AB1, 
       S.ABC2 AS AB2, 
        S.VERBOSE_DOSAGE    AS VER_DOSAGE, 
        CASE WHEN S.DEL_IND = 1 AND H.DEL_IND = 0 THEN ''DEL'' 
         WHEN S.DEL_IND = 1 AND H.DEL_IND IS NULL THEN ''DEL_IGNR'' 
         WHEN S.DETL_CLMNS_HASH <> H.DETL_CLMNS_HASH THEN ''UPDT'' 
         WHEN S.DETL_CLMNS_HASH = H.DETL_CLMNS_HASH THEN ''DUPL'' 
         WHEN S.DETL_CLMNS_HASH = S.DETL_CLMNS_HASH THEN ''REC'' 
         WHEN H.DETL_CLMNS_HASH IS NULL THEN ''NEW'' 
         ELSE ''ERR'' END AS REC_STAT 

       FROM 
        (SELECT stg.*, 
        row_number() over (partition BY key_clmns_hash, rx_dspnsd_dt, del_ind ORDER BY 1) AS RN 
        FROM ' || Dy_File_Name || ' stg 
       ) s 
       LEFT JOIN ps_pharmacy p ON s.extrnl_pharmacy_id = p.extrnl_pharmacy_id 
       LEFT JOIN ps_rx_hist H 
       ON h.key_clmns_hash  = s.key_clmnS_hash 
       AND h.rx_dspnsd_dt   = s.rx_dspnsd_dt 
       AND s.supplier_pharmacy_cd = h.SUPPLIER_PHARMACY_CD 
       WHERE s.RN     = 1') 


     LOOP 


       FETCH CLREF INTO REC; 
       EXIT WHEN CLREF%NOTFOUND; 

      dbms_output.put_line(REC.REC_STAT);  

       IF (REC.REC_STAT = 'UPDT') 
       THEN 

        L_UPD_COUNT := L_UPD_COUNT + 1; 

       ELSIF (REC.REC_STAT = 'DUPL') -- DUPLICATE 
       THEN 

        L_DUP_COUNT := L_DUP_COUNT + 1; 

       ELSIF REC.REC_STAT = 'DEL' THEN-- DELETION 

         L_DEL_COUNT := L_DEL_COUNT +1; 

       ELSIF REC.REC_STAT = 'DEL_IGNR' THEN 
         SRC_ID := SRC_FILE_ID_SEQ.NEXTVAL; 

       END IF; 

     END LOOP; 
END; 

Answer 1

通过寻找到你的代码中，我可以看到几个指针在失踪程序。这种情况只有在null或REC_STAT字段为“空白”时才会发生。

首先打印动态sql，然后尝试运行它并检查值。希望这些都有帮助。

CREATE OR REPLACE PROCEDURE TEST_SP(
    Dy_File_Name IN VARCHAR2, 
    SUPPLIER_CD IN VARCHAR2, 
    EXT_PHARMA_ID IN OUT VARCHAR2, 
    FLAG_VALUE IN VARCHAR2) 
AS 
    CLREF SYS_REFCURSOR; 
TYPE REC_TYP 
IS 
    RECORD 
    (
    AB   VARCHAR2(256) , 
    AB1  VARCHAR2(256) , 
    AB2  NUMBER(20), 
    REC_STAT VARCHAR2(9), 
    VER_DOSAGE VARCHAR2(20) 
    ); 
REC REC_TYP; --Was missing 
BEGIN  -- was missing 
    OPEN CLREF FOR 
    'SELECT     
     S.ABC AS AB,    
     S.ABC1 AS AB1,    
     S.ABC2 AS AB2,     
     S.VERBOSE_DOSAGE    AS VER_DOSAGE,     
     CASE WHEN S.DEL_IND = 1 AND H.DEL_IND = 0 THEN ''DEL''      
     WHEN S.DEL_IND = 1 AND H.DEL_IND IS NULL THEN ''DEL_IGNR''      
     WHEN S.DETL_CLMNS_HASH <> H.DETL_CLMNS_HASH THEN ''UPDT''      
     WHEN S.DETL_CLMNS_HASH = H.DETL_CLMNS_HASH THEN ''DUPL''      
     WHEN S.DETL_CLMNS_HASH = S.DETL_CLMNS_HASH THEN ''REC''      
     WHEN H.DETL_CLMNS_HASH IS NULL THEN ''NEW''      
     ELSE ''ERR'' END AS REC_STAT     

     FROM     
     (SELECT stg.*,      
     row_number() over (partition BY key_clmns_hash, rx_dspnsd_dt, del_ind ORDER BY 1) AS RN     
     FROM ' || Dy_File_Name || 
     ' stg     
     ) s     
     LEFT JOIN ps_pharmacy p ON s.extrnl_pharmacy_id = p.extrnl_pharmacy_id     
     LEFT JOIN ps_rx_hist H     
     ON h.key_clmns_hash  = s.key_clmnS_hash     
     AND h.rx_dspnsd_dt   = s.rx_dspnsd_dt     
     AND s.supplier_pharmacy_cd = h.SUPPLIER_PHARMACY_CD     
     WHERE s.RN     = 1'; 
    LOOP 
     FETCH CLREF INTO REC; 
     EXIT WHEN CLREF%NOTFOUND; 
     dbms_output.put_line(REC.REC_STAT); --Try to print any other entity returned by the dynamic sql 
     IF (REC.REC_STAT = 'UPDT') THEN 
     L_UPD_COUNT  := L_UPD_COUNT + 1; 
     ELSIF (REC.REC_STAT = 'DUPL') -- DUPLICATE 
     THEN 
     L_DUP_COUNT  := L_DUP_COUNT + 1; 
     ELSIF REC.REC_STAT = 'DEL' THEN-- DELETION 
     L_DEL_COUNT  := L_DEL_COUNT +1; 
     ELSIF REC.REC_STAT = 'DEL_IGNR' THEN 
     SRC_ID   := SRC_FILE_ID_SEQ.NEXTVAL; 
     END IF; 
    END LOOP; 
    END; 

Answer 2

正如Avrajit如上所述，请修改代码，我也可以看到，在你的代码中case声明： WHEN S.DETL_CLMNS_HASH = S.DETL_CLMNS_HASH THEN ''REC''

的，因为你得到的输出作为REC上述条件，这声明总是如此。