Question

我是Pl Sql的新手。我正在尝试运行程序并得到这些错误：

遇到符号“Create”，带有begin case声明结束异常退出goto if loop mod null pragma raise return select update with with with ＆LT;＆LT;继续关闭当前删除获取锁定 insert open rollback savepoint set sql execute commit forall 合并管道清除：

我已尝试搜索导致这些错误的原因以及与此类似的示例，但结果不充分。这是我的剧本：

 CREATE OR REPLACE PROCEDURE CommandScript IS
BEGIN 
  EXECUTE IMMEDIATE 'DROP TABLE sf_tmp'; 
  EXCEPTION
     WHEN OTHERS THEN IF SQLCODE != -942 
       THEN RAISE; 
       END IF; 

create table sf_tmp(smcard varchar2(17),p_line varchar2(1000));  

INSERT INTO dec_tmp(DECSCNR,DECSCPSNR)
     SELECT TRIM (SUBSTRB (qinputstring, INSTR (qinputstring, '|', 1, 2) + 1,11)) dec_nr,
        decoders.decscpsnr FROM bgqueue, decoders WHERE qworktype = 10
        AND decoders.decscpsnr > 0 AND decoders.decscnr =
        TRIM (SUBSTRB (qinputstring,INSTR (qinputstring, '|', 1, 2) + 1,11))
        AND LENGTH (TRIM (SUBSTRB (qinputstring,INSTR (qinputstring, '|', 1, 2) + 1,11))) = 11;

commit;


declare 
 CURSOR smcard_cursor  IS 
     (select d.DECSCNR,d.DECSCPSNR from dec_tmp d);                  


 CURSOR prod_cursor  (v_pslink number )  IS
     (select  p.psdecscpsnrlink, c.CPCSIENTITLEMENTS
        from csiprod c, prodsubs  p
         where p.psdecscpsnrlink = v_pslink
            and c.CPIBSPRODUCTNR = p.psproductnr
            and c.CPCONDITIONNR =1
            and c.cpcsientitlements<>'NILDRA'
            and p.psstatus = 'A' ) ;

   m_decno  varchar2(17) ;
   v_decno  varchar2(17) ;
   prod_line VARCHAR2(1000) ;
   prod_full VARCHAR2(1000) ;
   comma_line VARCHAR2(1000) ;

   prod_len  number ;
   prod_diff number ;
   new_prodct varchar2(300) ;

   L_Size NUMBER ;
   new_size number ;
   s_link number ;
   space_con number ;
   sw number ; 
BEGIN


FOR smcard_record IN smcard_cursor LOOP
   prod_line  := '' ;
   prod_full  := ''  ;
   comma_line := ''  ;
   prod_len   :=0 ;
   prod_diff  :=0  ;
   L_Size :=0 ;
   new_size := 0 ;

   space_con := 0;  
   new_prodct := '' ;


   sw := 0 ; 
   S_link := smcard_record.decscpsnr ;
   v_decno:= substr(smcard_record.decscnr,1,10) ;
   m_decno:= substr(smcard_record.decscnr,1,11) ;


 FOR prod_record IN prod_cursor (s_link) LOOP
    SW := 1 ;
    prod_len := length(prod_record.CPCSIENTITLEMENTS) ;
    prod_diff := mod(prod_len,6) ;

  if prod_diff = 0   THEN 
       new_prodct := prod_record.CPCSIENTITLEMENTS ; 
     else 
      space_con :=prod_len+6-prod_diff ;
      new_prodct := rpad(prod_record.CPCSIENTITLEMENTS, space_con,' ') ;
  end if ;       

  prod_line := prod_line || new_prodct ;
  end loop ;



if sw = 1 then 
 L_size := length(prod_line) ;
 comma_line := comma_line || substr(prod_line,1,6);

for I in 1..L_size  LOOP 
    IF MOD(I,6) = 0 THEN                             
       comma_line := comma_line ||',' || substr(prod_line,(I+1),6) ; 
    END IF;
end loop ;  

 new_size := length(comma_line) - 1 ;
 comma_line := substr(comma_line,1,new_size) ;



prod_FULL :='SOFULL'||','||'002000,'|| v_decno||',EGY,'||'EG,'||'NONE      ,'||comma_line ;

 insert into sf_tmp  (smcard,p_line) values (m_decno,prod_full) ;
 commit ;

end if ; 

end loop ;  
 END;
END;

Answer 1

我相信你不需要＆＃39; /＆＃39;在第10行。

Answer 2

您无法在本机过程中执行DDL。将其包裹在EXECUTE IMMEDIATE中

create table sf_tmp(smcard varchar2(17),p_line varchar2(1000));

您不会结束begin声明，这意味着您的程序会看到

create procedure begin ... declare ... begin ... end ... end

您在编译代码中不需要declare，因此应该是：

create procedure ... begin ... end ... begin ... end

第二个begin ... end是你想要在编译时执行的（即创建和删除表）

您无法在过程中引用不存在的表。鉴于你允许你的表在开头不存在，你需要将它包装在一个EXECUTE IMMEDIATE中。

insert into sf_tmp  (smcard,p_line) values (m_decno,prod_full) ;

请开始使用ANSI join syntax，而不是加入WHERE条款

Oracle建议您使用FROM子句OUTER JOIN语法而不是Oracle join运算符。使用Oracle连接运算符（+）的外连接查询受以下规则和限制的约束，这些规则和限制不适用于FROM子句OUTER JOIN语法：

LISTAGG()可以帮助您。

A global temporary table应该不再需要在您的程序中执行DDL。

如果不进行太多的调查，您的整个程序看起来就像在一个INSERT声明中完成......

最后，看起来您正在生成稍后要执行的部分SQL。在非常具体的情况下，这个可以是一种有效的方法，但我会在继续之前认真考虑是否这样做。

错误：PLS-00103：遇到符号“/”

2 个答案: