TUGAS LOGIKA dan ALGORITMA 2 (UPDATE DATA)

3. PROCEDURE UPDATE DATA

Proses perubahan (mengedit) data yang telah dimasukkan,pada umumnya sama dengan procedure list data, dimulai dengan menghubungkan var FSISWA dengan file SISWA.PDB. Lalu munculkan perintah untuk memasukkan nomor induk siswa yang akan dirubah. setelah data di temukan mulai lakukan pengeditan,mengganti data yang lama dengan data yang baru. Apabila NIS yang di cari tidak ditemukan maka munculkan pesan ('DATA DENGAN NIS TERSEBUT TIDAK ADA').
CTKS(02,22,'MASIH MAU MERUBAH DATA YANG LAIN (Y/T)?')
(munculkan tampilan 'MASIH MAU MERUBAH DATA YANG LAIN (Y/T)?')
UNTIL UPCASE (JWB)<>'Y'
(ulangi proses update data sampai JWB tidak sama dengan 'Y'
END;
(Selesai untuk UPDATE DATA)