存储过程对字符串截取

传入的参数str_pallet_no  是一个长字符串，|隔开

while INSTR(str_pallet_no, '|') > 0 LOOP

      MYARRAY(I) := SUBSTR(str_pallet_no, 1, (INSTR(str_pallet_no, '|') - 1));
      
      str_pallet_no := SUBSTR(str_pallet_no, (INSTR(str_pallet_no, '|') + 1));
      IF INSTR(str_pallet_no, MYARRAY(I)) > 0 THEN
        --檢查傳入序號有無重複
        RES := 'FAIL:' || MYARRAY(I) || ' REPEAT';
        ROLLBACK;
        RETURN;
      END IF;
       DECLARE
        type MYCURSOR IS REF CURSOR;
        CUR MYCURSOR;
        EXEC_SQL  VARCHAR2(1000);
        QUERY_SN  ifsn_detail%ROWTYPE;
      BEGIN
        EXEC_SQL:='SELECT * FROM '||SCHEMA_NAME_I||'.ifsn_detail w  
            where w.pallet_no='''||MYARRAY(I)||'''  and   w.dn_no='''||FACT