exit when :system.last_record = 'TRUE';

begin
    go_block ('CHECK_SUB');

    first_record;
    loop
        if :CHECK_SUB.CHECK_BOX = 'Y' then
            INSERT INTO CHECK_SUB(MRR_NO,MRR_DATE,PARTY_CODE,CHECK_NO,CHECK_ISSUE_DATE, AMOUNT,
                                  COMPANY_BANK_ID,BANK_NAME,ACCOUNT_NO,SUBMISSION_DATE)
            VALUES (:CHECK_SUB.MRR_NO,:CHECK_SUB.MRR_DATE,:CHECK_SUB.PARTY_CODE,
                    :CHECK_SUB.CHECK_NO,:CHECK_SUB.CHECK_ISSUE_DATE,:CHECK_SUB.AMOUNT,:CHECK_SUB.COMPANY_BANK_ID,
                    :CHECK_SUB.BANK_NAME,:CHECK_SUB.ACCOUNT_NO,:CHECK_SUB.SUBMISSION_DATE);
        end if;

        exit when :system.last_record = 'TRUE';
	
	next_record;
    end loop

  commit;
  MESSAGE('The Selected Record Has been Inserted Successfully. Thank you');
end;