Contoh Laporan Akhir Sequential pada COBOL

File-Control

Untuk mendeklarasika file dan jenis penyimpanan yang kita gunakan yaitu sequential.

File Section

FD Barang

Untuk membuat folder Barang yang bertipe standart didalamnya terdapat file BARANG.DAT dan mempunyai record bernama RECBARANG

Didalam RECBARANG terdapat

Nama-Barang bertipe Alfabet dapat diisi sebanyak 25 chacarter

Kode-Barang bertipe Numerik dapat diisi sebanyak 3 chacarter

Alamat-Barang bertipe Alfanumerik dapat diisi sebanyak 25 chacarter

01 Tambah-Barang

88 Ya Value

88 Tidak Value

Untuk menambah barang dan memanggil statement sebelumnya. Pada layar output jika kita ketik ‘Ya’ maka akan kembali ke proses input jika kita ketik ‘Tidak’ maka program akan berhenti.

01 Hapus-Layar

02 Blank Screen

Untuk menghapus layar

01 Input-Nama

Untuk menampilkan Nama Barang, Kode Barang dan Alamat Barang pada kolom dan baris yang sudah ditentukan dan data yang sudah kita input akan tersimpan di data masing-masing

Open Output Barang untuk membuka file Barang yang tadi kita buat. MULAI berfungsi untuk memulai program. Lalu DISPLAY untuk menampilkan tulisan pada layar sesuai baris yang kolom yang kita tentukan. Accept untuk memanggil data. STOP RUN  berhenti.

Setelah program sudah dibuat, sebelum menjalankannya, program harus di compile terlebih dahulu untuk mengetahui kesalahan / error yang terjadi pada program.