Program Barang Pada Cobol

Identification division yaitu sebagai identifikasi program cobol yang akan dibuat seperti author dan program id

Program-id yaitu sebagai judul pada program

Environtment division yaitu untuk menunjukkan atau menerangkan bagian mana dari sistem komputer yang dipakai untuk mengerjakan komputer

Input-output section yaitu untuk menerangkan peralatan yang akan di gunakan untuk memproses file

File control yaitu untuk mengontrol file

Select barang assign to disk yaitu untuk memilih barang untuk masuk ke dalam disk

Organization is line sequential yaitu file dengan pengorganisasian sequential yaitu pengaksesan secara urut

Access mode is sequential yaitu perintah akses yang bermodelkan sequential

Data division yaitu berguna sebagai mendeskripsikan variabel variabel dan jenis tipe data yang digunakan dalam program cobol.

File section yaitu data yang akan diambil dari disk –file atau data yang akan direkam pada disk file

Fd barang yaitu penamaan dari nama file yang akan dibuat

Label record is standard yaitu label rekaman atau catatan rekaman yang bersifat standard

Value if file-id is ‘barang.dat’ yaitu nilai jika id file adalah barang.dat

Data record is recbarang yaitu data yang terekam atau data yang akan diambil adalah barang

01 recbarang

02 nama barang pic A(25) yaitu nama barang dengan tipe data string yang berjumlah 25 karakter

02 kode barang pic 9(3) yaitu kode barang dengan tipe data integer yang berjumlah 3 karakter

02 alamat barang pic x(25) yaitu alamat barang dengan tipe data alfanumerik yang berjumlah 25 karakter

Working storage section yaitu untuk pemesanan program di internal memory

01 tambah-data pix x yaitu untuk menambahkan data  dengan tipe data alfanumerik

88 ya value ‘Y’, ‘y’. Yaitu untuk memasukkan huruf Y kecil atau Y besar sama saja

88 tidak value ‘T’, ‘t’. Yityu untuk memasukkan huruf T kecil atau t besar sama saja

Screen section yaitu untuk menentukan format layar tampilan baik input maupun output

01 hapus layar yaitu untuk menghapus layar

02 blank screen yaitu membersihkan layar dan menempatkan cursor pada posisinya

01 input data yaitu untuk memasukkan data yang ingin di input

02 line 5 column 8 value ‘nama barang : ‘. Yaitu menempatkan inputan nama barang pada line ke5 dan kolom ke 8

02 column plus 2 pic a(25) to nama barang. Yaitu untuk memasukkan nama barang dengan kolom+1 atau spasi dengan tipe data string yang hanya dapat dimasukkan oleh 25 karakter\

Procedure division yaitu merupakan inti dari bahasa pemrograman cobol karena pada divisi inilah semua statement instruksi dibuat.

Buka-file yaitu untuk membuka file

Open output barang yaitu untuk membuka output barang yang kita akan masukkan

Mulai. Yatu untuk memulai

Display hapus layar yaitu untuk menghapus layar agar bersih

Display (2,16) ‘=====pengiriman barang======’. Yaitu menampilkan pengiriman barang pada baris ke2 dan kolom ke16

Display input data yaitu untuk menginput data yang telah kita masukkan

Accept input data yaitu untuk menerima input data yang telah kita isi

Write recbarang yaitu untuk menulis kembali inputan barang yang telah kita isi atu masukkan

Display (14,8) ‘tambah lagi data [Y/T] ? ‘. Yaitu pada baris14 kolom ke8 muncul tulisan ‘tambah lagi data[Y/T]?

Accept tambah data yaitu untuk menerima tambahan data

If ya go to mulai yaitu jika ya maka proses akan kembali ke pertama yaitu mengisi barang

Selesai.

Close barang yaitu untuk menutup file barang

Stop run. Yaitu untuk mengakhiri program yang telah selesai kita buat

Dan ini outputnya seperti gambar dibawah