FILE SEQUENTIAL

-          Langkah pertama di program cobol ini kita menuliskannya dicolom 8 dan jangan upa diakhiri dengan titik

-          Pertama kita masukan (Identification Division) yang artinya seperti judul

-          Selanjutnya kita masukkan program id

-          Langkah awal adalah kita masukkan “Environment Division” yang artinya  berguna untuk memberikan informasi peralatan yang digunakan dalam program

-          Masukkan input-output section untuk memanggil input & output

-          Masukan file-control

-          Masukan Select Barang Assign To Disk yang artinya barang yang akan dipilih akan masuk ke disk

-          Lalu Organization Is Line Sequential berfungsi untuk data disk dibaca secara urut

-          Selanjutnya Acces Mode Is Sequential adalah dibaca secara urut

-          Lalu (Data Division ) yang artinya divisi yang memberikan izin untuk jalannya suatu program

-          File section berfungsi untuk keterangan file

-          Masukan FD Barang

-          Lalu Label Record Is Standard berfungsi untuk disk file mempunyai label

-          Selanjutnya Value Of  File-Id Is ‘Barang.Dat’ berfungsi untuk membuat file baru nama filenya adalah barang.dat

-          Masukkan Data Record Is Recbarang berfungsi untuk nama file recordnya

-          Masukkan 01 RecBarang untuk membuat suatu record

-          Masukkan 02 Nama-Barang Pic A(25) yang artinya memasukan variable bertipe alphanumeric dan panjang maksimalnya 25

-         Lalu 02 Kode-Barang Pic 9(3) yang artinya bertipe variable dengan panjang maksimalnya 3

-          Selanjutnya (Working-Storage Section) yang artinya digunakan untuk mendeklarasikan variable dan tipe data

-          Masukkan 01 Tambah-Data Pic X berfungsi untuk output dan menambahkan data bertipe alphanumeric

-          Masukkan 88 Ya Value ‘Y’ , ‘y’ artinya kalau kita memilih ya maka kita bisa menambahkan data

-          Lalu 88 Tidak Value ‘T’ , ‘t’ artinya tidak akan bisa menambah data

-          langkah selanjutnya kita masukkan SCREEN SECTION berfungsi untuk menentukan format layar tampilan baik input atau output

-          masukkan 01 hapus layar artinya untuk menghapus layar

-          kita masukkan blank screen yang berfungsi untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.

-          Masukkan 01 Input-Data yang berfungsi untuk mengiput data

-          Masukkan 02 Line 5 Column 8 Value ‘Nama Barang : ‘. Berfungsi untuk memasukan data di baris ke 5 kolom 8 untuk nama barang

-          Lalu 02 Column Plus 2 Pic A(25) To Nama-Barang berfungsi untuk menginput data sebanyak 2 kali

-          Masukan statement seperti diatas’

-          Selanjutnya kita masukkan procedure division yang berfungsi untuk meletakkan sintaks atau statement yang kita ingin masukkan

-          Masukkan Buka-File yang artinya untuk membuka file

-          Masukkan Open Ouput barang berfungsi untuk membuka outputan

-          Masukkan mulai untuk memulai program

-          Masukkan Display Hapus Layar berfungsi untuk menghapus layar sebelumnya

-          Masukkan Display (2,16) pengiriman barang yang artinya pada saat kita run program akan muncul tulisan pengiriman barang di baris ke 2 kolom ke 16

-          Masukkan Display Input-Data berfungsi untuk menampilkan data

-          Masukkan Accept-Data berfungsi untuk menerima data

-          Masukkan Write Recbarang

-          Masukkan Display(14,8) ‘Tambah Lagi Data[Y/T]?  yang berfungsi menampilkan tambah lagi data di baris 14 kolom 8

-          Masukkan Accept Tambah-Data

-          Masukkan If Ya Go To Mulai

-          Masukkan selesai yang artinya untuk menyelesaikan program

-          Masukkan Close Barang yang berfungsi menutup program

-          Masukan Stop Run yang artinya untuk mengakhiri program

Ini hasil outputnya :