动态SQL和动态游标的例子

    v_sql := 'SELECT MAX(aad215) FROM ad20, ad22 WHERE ad22.aad032 IN (' || v_old_aad032list ||
             ') AND ad20.oae200 = ad22.oae200';
    EXECUTE IMMEDIATE v_sql
      INTO ad20data.aad215;

  v_sql := 'SELECT * FROM ad21 WHERE ad21.oae200 IN (SELECT distinct oae200 FROM ad22 WHERE ad22.aad032 IN (' ||
             v_old_aad032list || '))';
 
    OPEN c1 FOR v_sql;
    LOOP
      FETCH c1
        INTO ad21data;
      EXIT WHEN c1%NOTFOUND;
      ad21data.oae200 := n_oae200;
      SELECT seq_a_rowid.NEXTVAL INTO ad21data.oae001 FROM dual;
      INSERT INTO ad21 VALUES ad21data;
    END LOOP;
    CLOSE c1;