TUGAS ALGO2

Entry data

? Hubungkan file data barang dan data sementara
? Buka file barang, jika IO Result tidak sama dengan o maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, selain itu
? Kosongkan file yang sudah ada,lalu tutup file dan rekam file yang sudah ada di buffer memory ke file external
? Buka file yang sudah ada
? Buat file baru yang sudah ada di file sementara
? Jka KDBC tidak sama dengan spc(7) maka tampilkan pesan “TUNGGU LAGI PROSES”
? Tutup file barang dan rekam,
? Tutup file sementara, replace file sementara dengan file barang dan keluar
? Hubungkan fileada dengan data barang.dbp
? Buka file yang sudah ada, lakukan pengulangan pada file ada
? Tutup fileada dan rekam
? Setelah slesai tampilkan pesan “masih mau menambah data Y/T ?”
? Jika dijawab y maka keluar

List Data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan o maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Swada = 0, lakukan pengulangan pada file barang
? Jika swada sama dengan 0 maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau menambah data yang lain “
? Jika jawab tidak sama dengan y maka keluar

Update data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan 0 maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Swada = 0, hubungkan file sementara dengan file barang.new
? Buat file baru di file sementara
? Lakukan pegulangan pada file barang
? Tampilkan pesan ‘’YAKIN AKAN DIRUBAH”, jika dijawab y maka tampilkan
? “Ketikan nama barang”, “Ketikan satuan barang”, “ketikan jumlah satuan barang”, “Ketikkan harga satuan barang”, dan selesai.
? Jika swada sama dengan 0 maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau merubah data yang lain “
? Jika jawab tidak sama dengan y maka keluar

Delete data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan o maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Jika KDBC = SPC(7) maka tutup file dan rekam file lalu keluar
? Swada = 0, hubungkan file sementara dengan data barang.new
? Buat file baru di file sementara
? Lakuakn pengulangan pada file barang
? Keluarkan pesan “Yakin data akan dihapus”
? Jika jawab sama dengan y maka hapus baranng tersebut
? Jika swada sama dengan 0 maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau menghapus data yang lain ?“
? Jika jawab tidak sama dengan y maka keluarEntry data

? Hubungkan file data barang dan data sementara
? Buka file barang, jika IOResult tidak sama dengan 0 maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Buka file yang sudah ada
? Buat file baru yang sudah ada di file sementara
? Jka KDBC tidak sama dengan spc(7) maka tampilkan pesan “TUNGGU LAGI PROSES”
? Tutup file barang dan rekam,
? Tutup file sementara, replace file sementara dengan file barang dan keluar
? Hubungkan fileada dengan data barang.dbp
? Buka file yang sudah ada, lakukan pengulangan pada file ada
? Tutup fileada dan rekam
? Setelah slesai tampilkan pesan “masih mau menambah data Y/T ?”
? Jika dijawab y maka keluar

List Data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan 0 maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Swada = 0, lakukan pengulangan pada file barang
? Jika swada sama dengan 0 maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau menambah data yang lain “
? Jika jawab tidak sama dengan y maka keluar

Update data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan 0 maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Swada = 0, hubungkan file sementara dengan file barang.new
? Buat file baru di file sementara
? Lakukan pegulangan pada file barang
? Tampilkan pesan ‘’YAKIN AKAN DIRUBAH”, jika dijawab y maka tampilkan
? “Ketikan nama barang”, “Ketikan satuan barang”, “ketikan jumlah satuan barang”, “KEtikan harga satuan barang”, dan selesai.
? Jika swada sama dengan 0 maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau merubah data yang lain “
? Jika jawab tidak sama dengan y maka keluar

Delete data

? Hubungkan file barang dengan data barang, buka file yang sudah ada
? Buka file barang, jika IOResult tidak sama dengan 0 maka ‘jawab’
? Jika jawab tidak sama dengan y maka keluar, sealin itu
? Kosongkan file yang sudah ada, ttutup file dan rekam file yang sudah ada di buffer memory ke file external
? Jika KDBC = SPC(7) maka tutup file dan rekam file lalu keluar
? Swada = 0, hubungkan file sementara dengan data barang.new
? Buat file baru di file sementara
? Lakuakn pengulangan pada file barang
? Keluarkan pesan “Yakin data akan dihapus”
? Jika jawab sama dengan y maka hapus baranng tersebut
? Jika swada sama dengan o maka keluarkan pesan “data dengan kode tersebut tidak ada”
? Setelah selesai, keluarkan pesan konfirmasi “ masih mau menghapus data yang lain ?“
? Jika jawab tidak sama dengan y maka keluar

Falling in love?

Tentunya kalian sudah pernah merasakannya, jatuh cinta memang bisa membuat orang akan lupa segal-galanya yang ada hanyalah dia..dia..dia seorang , walaupun hanya cidaha Cinta Dalam Hati.
Tapi kalian tahu ga sih, dari pada jatuh cinta yang kadang bertahan selamanya atau hanya sesaat itu, mendingan bangun cinta atau membangun cinta. Beda loh rasanya! coba deh rasakan bedanya!!.