1

DNS-RR

LVS-NAT

LVS-DR

DECLARE
  v_stmt_str       VARCHAR2(200);
  v_cur_hdl        INT;
  v_rows_processed INT;
  
  DbStreamId       NUMBER(16);
BEGIN
  v_cur_hdl := DBMS_SQL.open_cursor;
  v_stmt_str := 'Select STREAMID FROM LOG_AGT_PREPAY Where STREAMID = :g_streamid';    
  
  
  DBMS_SQL.PARSE(v_cur_hdl, v_stmt_str, DBMS_SQL.NATIVE);
  
  DBMS_SQL.DEFINE_COLUMN(v_cur_hdl, 1, DbStreamId);
  
  DBMS_SQL.BIND_VARIABLE(v_cur_hdl, ':g_streamid', 67286487);
  
  v_rows_processed := DBMS_SQL.EXECUTE(v_cur_hdl);
  dbms_output.put_line('PROCESSED:' || v_rows_processed);
  LOOP    
    IF DBMS_SQL.FETCH_ROWS(v_cur_hdl) > 0 THEN
      dbms_output.put_line('DbStreamId2222:' || DbStreamId);
      DBMS_SQL.COLUMN_VALUE(v_cur_hdl, 1, DbStreamId);
      dbms_output.put_line('DbStreamId:' || DbStreamId);
    ELSE
      EXIT;
    END IF;
  END LOOP;
    
  DBMS_SQL.CLOSE_CURSOR(v_cur_hdl);
EXCEPTION
  WHEN OTHERS THEN
    DBMS_SQL.CLOSE_CURSOR(v_cur_hdl);
END;