File Sequential pada COBOL

File Sequential

Pada Laporan Akhir kali ini akan membuat program File Sequential pada COBOL, berikut adalah kodingannya.

IDENTIFICATION DIVISION, untuk mengidentifikasi program yang kita buat.

PROGRAM-ID,  untuk pemberian nama program yang kita buat.

ENVIRONMENT DIVISION,  yaitu informasi peralatan apa yang digunakan pada program.

INPUT-OUTPUT SECTION, organisasi secara sequential adalah organisasi file yang sifatnya berurutan, jadi jika ada data baru yang dimasukkan maka data tersebut merupakan record urutan terakhir.

INPUT-OUTPUT SECTION

FILE CONTROL

SELECT BARANG ASSIGN TO DISK

ORGANIZATION IS LINE SEQUENTIAL

ACCESS MODE IS SEQUENTIAL

Diatas adalah bentuk umum dari INPUT OUTPUT SECTION untuk mendeklarasikan file yang akan dibuat.

DATA DIVISION, pendeskripsian variabel-variabel dan jenis tipe data apa yang kita gunakan dalam program.

FILE SECTION, yaitu berisi file file yang dipakai didalam program, file ini ada bila dipergunakan file dalam bentuk simpanan disk atau printer.

FD BARANG itu untuk judul filenya

LABEL RECORD IS STANDARD, digunakan untuk disk-file yang mempunyai label

VALUE OF FILE-ID IS ‘BARANG.DAT’. yaitu untuk menunjukkan informasi mengenai file yang berisi data yang telah direkamkan tersebut.

DATA RECORD IS RECBARANG, yaitu untuk menunjukkan nama record pada file yang sifatnya optional.

RECBARANG, untuk memberi judul pada record ini

Nama-Barang Pic A(25), yaitu nama barang ini bertipe data alphabet yang panjang karakternya 25, Kode Barangnya bertipe data numeric yang panjang karakternya 3 dan Alamat Barangnya bertipe data alphanumeric dengan panjang karakternya 25.

WORKING-STORAGE SECTION, untuk mendeklarasikan variable dan tipe data yang digunakan dalam program.

Untuk menambahkan data :

Pilih ‘Y’, ‘y’ agar bisa menambahkan datanya

Pilih ‘T’, ‘t’ jika kita sudah selesai untuk menginput datanya.

SCREEN SECTION, berguna untuk mengatur tampilan di layar outputnya,

Hapus-Layar  memberi judul untuk Hapus-layar dan BLANK SCREEN untuk menampilkan blank pada layar output

INPUT-DATA, untuk mengawali record dengan judul Input Data

Line 5 Column 8 Value ‘Nama Barang : ‘, berarti pada layar output  akan muncul Nama Barang dengan outputnya berada di baris ke 5 kolom ke 8.

Column Plus 2 Pic A(25) to Nama Barang yaitu kita akan menginput Nama Barang di kolom +2 di baris yang sama.

PROCEDURE DIVISION, tempat untuk memulai statement yang akan kita buat.

Pada record Buka-File, akan membuka outputan barangnya

MULAI

DISPLAY (2, 16) ‘====PENGIRIMAN BARANG====’,  pada baris 2 kolom ke 16 akan tercetak ‘Pengiriman Barang’ pada outputnya.

DISPLAY INPUT-DATA, unruk menampilkan record Input Data sebelumnya

ACCEPT INPUT-DATA, yaitu untuk menginput barang pada outputnya

WRITE RECBARANG, untuk menuliskan record recbarang

DISPLAY (14, 8) ‘TAMBAH LAGI DATA (Y/T)?” , ini akan tercetak pada baris ke 14 kolom ke 8.

ACCEPT TAMBAH DATA, yaitu untuk menginput pilihan Y/T

IF YA GO TO MULAI, jika kita memilih Y maka kita akan menambahkan atau menginput datanya lagi

CLOSE BARANG, yaitu untuk menutup atau menyelesaikan record barang

STOP RUN untuk menghentikan programnya

Jika sudah, buka Dosbox untuk menjalankan programnya. Ketik “cobol (nama_file).cob” yaitu nama file yang telah disimpan. Jika tidak ada yang error kita ketik “runcobol (nama_file).cob” untuk menjalankannya. Maka outputnya adalah seperti ini: