DECLARE 
  -- Local variables here
CURSOR C_SCHEMA IS
       SELECT SCHEMA
       FROM IFSAPP.M_ENTITY_TAB;

TYPE C_REF IS REF CURSOR;
DATA      C_REF;
TOTAL_HECTARAGE NUMBER;
SCHEMA_CODE     VARCHAR2(30 CHAR);
FIELD_CODE      VARCHAR2(30 CHAR);



BEGIN
  -- Test statements here
FOR REC_ IN C_SCHEMA LOOP
    
      BEGIN
      OPEN DATA FOR 'SELECT FIELDCODE,TOTALHECTARAGE FROM '||REC_.SCHEMA'||'.IBU_FIELDHISTORY@TDCONSOL;';
      FETCH DATA INTO FIELD_CODE, TOTAL_HECTARAGE;
      
      INSERT INTO IFSAPP.PARAMETER_TABLE(CODE, HECTARAGE)
      VALUES (FIELD_CODE, TOTAL_HECTARAGE);
      COMMIT;
      
      CLOSE DATA;
      END;
    
  END LOOP;       
     
END;

OPEN DATA FOR 'SELECT FIELDCODE,TOTALHECTARAGE FROM '||REC_.SCHEMA ||'.IBU_FIELDHISTORY@TDCONSOL;';

OPEN DATA FOR 'SELECT FIELDCODE, TOTALHECTARAGE FROM '||REC_.SCHEMA||'.IBU_FIELDHISTORY@TDCONSOL WHERE ROWNUM<2;';

OPEN DATA FOR 'SELECT FIELDCODE, TOTALHECTARAGE FROM '||REC_.SCHEMA||'.IBU_FIELDHISTORY@TDCONSOL WHERE ROWNUM<2';

INSERT INTO my_table (col_1,col_2) SELECT col_1,col_2 from <schema_name>.my_table;

DECLARE

V_SCHEMA VARCHAR2(20 CHAR);

BEGIN

--This is just an example to get 1 row from the table, I skip all the looping section.
SELECT SCHEMA_NAME INTO V_SCHEMA
FROM SCHEMA_LIST_TABLE WHERE ROWNUM < 2;

INSERT INTO FIELD_HISTORY ( SCHEMA_NAME, FIELD_CODE, PARAM_A )
SELECT SCHEMA, FLDCODE, TOTHECTARAGE
FROM V_SCHEMA.TR_FIELD_HIST@MYDBLINK;

END;