BEGIN

FOR elem in  (SELECT * FROM TABLE)
    LOOP
           INSERT TABLE...

EXIT WHEN cursor%NOTFOUND;

END LOOP;
END;

DECLARE

v_subject_id          NUMBER;

BEGIN 

-------------------INSERT SUBJECTS----------------------------        

FOR elem in ( SELECT * FROM SUBJECTS.EMLOYEERS)

   LOOP 
    
        v_subject_id := UB_EMS.SEQ_SUBJECT.NEXTVAL;
        
        INSERT INTO SUBJECTS.EMLOYEERS (ID , SUBJECT_ID, TYPE_ID ,CREATE_DATE , CREATE_USER_ID , UPDATE_DATE, UPDATE_USER_ID ) VALUES( v_subject_id , elem.SUBDICID , 1000147 ,  SYSDATE ,55 , SYSDATE ,555 );
 
   END LOOP;        



END;

SELECT S.* FROM V$SQL  S
JOIN V$SESSION  N ON N.SQL_ID = S.SQL_ID
JOIN V$PROCESS P ON P.ADDR = N.PADDR
WHERE N.USERNAME IS NOT NULL
ORDER BY P.PGA_USED_MEM DESC;