Algoritma Updating

OPEN(F_Master,RekMas)
OPEN(F_Update,RekUp)
REWRITE(F_MasterBaru)
WHILE   not EOF(F_Master)
WHILE  (RekUp.KD_Barang < RekMas.KD_Barang) AND not EOF(F_Update)
DO
READ(F_Update,RekUp)
END WHILE
IF (RekUp.KD_Barang = RekMas.KD_Barang)
THEN
NewSaldo <- RekMas.Jumlah
REPEAT
NewSaldo <- NewSaldo +  RekMas.Jumlah
READ(F_Update,RekUp)
UNTUL (RekUp.KD_Barang ≠ RekMas.KD_Barang) OR EOF(F_Update)
WRITE (F_MasterBaru,< RekMas.KD_Barang,NewSaldo>)
ELSE
WRITE (F_MasterBaru, RekMas)
ENDIF
READ(F_Master, RekMas)
ENDWHILE
WRITE (F_MasterBaru, <99999,0>)
CLOSE (F_Master)
CLOSE (F_Update)
CLOSE (F_MasterBaru)