並發程序報錯：ORA-01007: variable not in select list（選擇列表中沒有變量） 以及相關動態指針寫法

 網上的解決方法：

Cause:	A reference was made to a variable not listed in the SELECT clause. In OCI, this can occur if the number passed for the position parameter is less than one or greater than the number of variables in the SELECT clause in any of the following calls: DESCRIBE, NAME, or DEFINE. In SQL*Forms or SQL*Report, specifying more variables in an INTO clause than in the SELECT clause also causes this error.
Action:	Determine which of the problems listed caused the problem and take appropriate action.

select語句本身沒有問題，錯誤原因是：在構造游標時數據個數不一致。比如，一個表TA有3個域A，B，C。我們構造查詢語句為：SELECT A FROM TA WHERE B='12' AND C='12'。但是在構造游標時，使用了EXEC SQL FETCH table_cursor INTO :A,:B,:C;，而不是EXEC SQL FETCH table_cursor INTO :A;。這樣變量數目就不一致，會導致錯誤。

 

實際的問題：在使用動態指針的時候，將資料指到對應的SQL  並且fetch into  相對應的 record 類型，但是此記錄定義的變量與SQL指針的變量不一致導致的。

 

TYPE r_fa_vendor IS RECORD(
      company_id          NUMBER,
      company_code        VARCHAR2(30),
      company_name        VARCHAR2(240),
      company_type        VARCHAR2(80),
      juristic_person     VARCHAR2(80),
      register_address    VARCHAR2(240),
      parent_company_id   NUMBER,
      parent_company_name VARCHAR2(240),
      org_code            VARCHAR2(10),
      application_id      NUMBER,
      set_of_books_id     NUMBER,
      org_id              NUMBER,
      org_name            VARCHAR2(240),
      trx_hdr_id          NUMBER,
      trx_number          VARCHAR2(240),
      trx_date            DATE,
      trx_type            VARCHAR2(150),
      trx_type_meaning    VARCHAR2(240),
      guanlian_sum_flag   VARCHAR2(240),
      gl_date             DATE,
      dr_conn             VARCHAR2(240),
      cr_conn             VARCHAR2(240),
      acctd_amount        NUMBER,
      comments            VARCHAR2(1800));

      TYPE defcursor IS REF CURSOR;
      c_fa_vendors     r_fa_vendor;
      defcursor1       defcursor;
      p_where          VARCHAR2(1000) := '';
      v_sql            VARCHAR2(5000) := '';


BEGIN
/*    fnd_file.put_line(fnd_file.log, '開始日期為：' || p_date_from);
    fnd_file.put_line(fnd_file.log, '結束日期為：' || p_date_to);*/
  
    IF p_company IS NOT NULL THEN
      p_where := p_where || ' (parent_company_id = ' || p_company ||
                 ' or company_id = ' || p_company || ') and ';
    ELSE
      p_where := p_where || ' 1 = 1 and ';
    END IF;
  
    IF p_trx_type IS NOT NULL THEN
      p_where := p_where || '  trx_type = ''' || p_trx_type || ''' and ';
    ELSE
      p_where := p_where || ' 1 = 1 and';
    END IF;
  
    IF p_date_from IS NOT NULL THEN
      p_where := p_where || ' gl_date >= to_date(substr(''' || p_date_from ||
                 ''', 1, 10), ''YYYY-MM-DD'')  and ';
    ELSE
      p_where := p_where || ' 1 = 1 and ';
    END IF;
  
    IF p_date_to IS NOT NULL THEN
      p_where := p_where || ' gl_date <= to_date(substr(''' || p_date_to ||
                 ''', 1, 10), ''YYYY-MM-DD'')   and ';
    ELSE
      p_where := p_where || ' 1 = 1 and ';
    END IF;
  
    IF p_guanlian_sum_flag IS NOT NULL THEN
      p_where := p_where || ' guanlian_sum_flag = ' || p_guanlian_sum_flag || '';
    ELSE
      p_where := p_where || ' 1 = 1';
    END IF;
  
    v_sql := ' select company_id,company_code,company_name,company_type,juristic_person,register_address,parent_company_id,parent_company_name,org_code, application_id,set_of_books_id,org_id,org_name,trx_hdr_id,trx_number,trx_date,trx_type,trx_type_meaning,guanlian_sum_flag,gl_date,replace(dr_conn,'';''), replace(cr_conn,'';''),acctd_amount,comments  
                 FROM transactions_v1
                WHERE application_id = 200
                  AND set_of_books_id = ' ||p_set_of_books_id || '
                  and ' || p_where || ' 
                ORDER BY company_name, trx_type, org_id, gl_date, trx_number ';

OPEN defcursor1 FOR v_sql;
    LOOP
      FETCH defcursor1
        INTO c_fa_vendors;
      EXIT WHEN defcursor1%NOTFOUND;
      v_sum := v_sum + c_fa_vendors.acctd_amount;
      v_num := v_num + 1;
    
      fnd_file.put_line(fnd_file.output, '<tr>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(c_fa_vendors.company_name, '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(c_fa_vendors.parent_company_name || '&nbsp',
                            '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(c_fa_vendors.trx_type_meaning, '&nbsp') ||
                        '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(c_fa_vendors.org_name, '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(to_char(c_fa_vendors.gl_date, 'yyyy-mm-dd'),
                            '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(to_char(c_fa_vendors.trx_date, 'yyyy-mm-dd'),
                            '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap x:str>' ||
                        nvl(c_fa_vendors.trx_number, '&nbsp') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        to_char(nvl(round(c_fa_vendors.acctd_amount, 2),
                                    '0'),
                                'FM9,999,999,999,990.00') || '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' || nvl(c_fa_vendors.dr_conn, '&nbsp') ||
                        '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' || nvl(c_fa_vendors.cr_conn, '&nbsp') ||
                        '</td>');
      fnd_file.put_line(fnd_file.output,
                        '<td nowrap>' ||
                        nvl(c_fa_vendors.comments, '&nbsp') || '</td>');
      v_records_count := v_records_count + 1;
    
    END LOOP;
    CLOSE defcursor1;