desc ro_fren_dtl
 RO_FREN_CD                                         VARCHAR2(5)
 RO_MAKE_CD                                         VARCHAR2(5)

desc non_lts_dtl
RO_FREN_CD                                         VARCHAR2(5)
RO_MAKE_CD                                         VARCHAR2(5)
CODE                                               VARCHAR2(6)

DECLARE 
  CURSOR c1 IS 
    SELECT a.ro_fren_cd, 
           a.ro_make_cd, 
           :code 
    FROM   ro_fren_dtl a 
    WHERE  ro_fren_cd IN ('01','02','03','04'); 
   col_rec  c1%ROWTYPE; 
BEGIN 
  OPEN c1; 
   
  LOOP 
    FETCH c1 INTO col_rec; 
     
    EXIT WHEN c1%NOTFOUND; 
 
     
    INSERT INTO non_lts_dtl 
               (ro_fren_cd, 
                ro_make_cd, 
                code) 
    VALUES     (col_rec.ro_fren_cd, 
                col_rec.ro_make_cd, 
                :code); 
  END LOOP; 
   
  CLOSE c1; 
END; 
commit;