-- 다음과 같은 형태로 Procedure 나 Trigger 형태로 적용하시면 되겠습니다.
DECLARE
    -- 입력인자(대출번호, 입금액) --
    입력_대출번호 상환.대출번호%TYPE := 111;
    입력_입금액   NUMBER             := 2000000;
    입금잔액      NUMBER             := 입력_입금액;
    CURSOR c IS
    SELECT *
      FROM 상환
     WHERE 대출번호 = 입력_대출번호
       AND 완료여부 = 'N'
     ORDER BY 회차
    ;
BEGIN
    FOR c1 IN c
    LOOP
        -- 최초 잔액이 0 인게 찜찜하네요. 그래서 추가된 로직.Start. --
        IF c1.잔액 = 0 THEN
            c1.잔액 := c1.상환금액;
        END IF;
        -- 최초 잔액을 제대로 셋팅해 준다면 필요 없는 로직.End. --
        IF c1.잔액 <= 입금잔액 THEN
            c1.입금액       := c1.잔액;
            c1.잔액         := 0;
            c1.상환완료일자 := TO_CHAR(sysdate, 'yyyymmdd');
            c1.완료여부     := 'Y';
        ELSE
            c1.입금액 := 입금잔액;
            c1.잔액   := c1.잔액 - c1.입금액;
        END IF;
        입금잔액 := 입금잔액 - c1.입금액;
        UPDATE 상환
           SET 상환완료일자 = c1.상환완료일자
             , 입금액       = c1.입금액      
             , 잔액         = c1.잔액        
             , 완료여부     = c1.완료여부    
         WHERE 대출번호 = c1.대출번호
           AND 회차     = c1.회차
        ;
        IF 입금잔액 = 0 THEN
            goto End_Process;
        END IF;
    END LOOP;
    << End_Process >>
    COMMIT;
EXCEPTION
    WHEN OTHERS THEN
        ROLLBACK;
END;
/