CURSOR C1 IS
       SELECT  ID
             , NAME
         FROM PAYERS;

      OPEN C1;
      GO_BLOCK('BLK_PAYERS');
      FIRST_RECORD;
      WHILE TRUE LOOP
        FETCH C1 INTO :BLK_PAYERS.ID
                     ,:BLK_PAYERS.NAME;
        EXIT WHEN C1%NOTFOUND;
      NEXT_RECORD;
    END LOOP;

Create Table MHE_TEST(col1 number, col2 VARCHAR2(30))
/
Insert Into MHE_TEST( col1, col2)
Select LEVEL
     , TO_CHAR(TO_DATE(LEVEL,'J'), 'Jsp')
From   dual
Connect by level < 31
/
Commit
/

Declare
	Cursor c1
	Is
	Select col1
	     , col2
	From   mhe_test;
Begin
  Open C1;
  Go_Block('CONTROLBLOCK');
  First_Record;
  While TRUE Loop
    Fetch C1 Into :CONTROLBLOCK.COL1, :CONTROLBLOCK.COL2;
    Exit When C1%NOTFOUND;
    Next_Record;
  End Loop;
End;