LAPORAN AKHIR COBOL 5

Cobol

Pada pertemuan kali ini kita akan membuat Laporan Akhir tentang program SEQUENTIAL .

Hal pertama yang harus di lakukan yaitu membentuk struktur pada Cobol yang terdiri dari IDENTIFICATION DIVISION , ENVIRONMENT DIVISION , DATA DIVISION dan PROCEDURE DIVISION.

Selain itu kita menggunakan INPUT-OUTPUT SECTION dan FILE CONTROL untuk merekan dan menampilkan record.

Pada FILE CONTROL statement statement yang dilakukan yaitu untuk mendeklarasikan atau menentukan bahwa jenis program data yang di gunakan berbentuk SEQUENTIAL.

Selanjutnya masuk ke FILE-SECTION yang berisi penamaan dan pendataan untuk setiap record nantinya.

LABEL RECORD IS STANDARD untuk menampilkan record

VALUE OF FILE-ID IS ‘BARANG.DAT’ untuk penamaan pada setiap record yang di seimpan sebagai BARANG.DAT

DATA RECORD IS RECBARANG untuk menyimpan record utama antara lain

NAMA BARANG yang di deklarasikan sebagai ALFABET dengan panjang character 25

KODE BARANG yang di deklarasikan sebagai NUMERIK dengan panjang character 3

ALAMAT BARANG di deklarasikan sebagai ALFANUMERIK dengan panjang character 25

Pada WORKING-STORAGE SECTION terdapat situasi yaitu apakah data ingin di tambah atau tidak

Jika kita mengetikan “ Y ” makan akan menambah data lagi, jika memilih “ T ” maka tidak ada data tambahan.

Selanjutnya masuk ke SCREEN SECTION yaitu membersihkan layar dengan HAPUS LAYAR dan BLANK SCREEN

Pada INPUT DATA kita masukan data yang akan menjadi tampilan utama Pada saat program di run.

Pada baris 5 kolom 8 di tampilkan NAMA BARANG dan nantinya akan terisi sesuai inputan yang kita masukan pada NAMA BARANG,

Pada baris 7 kolom 8 di tampilkan KODE BARANG nantinya akan terisi sesuai inputan yang kita masukan pada KODE BARANG,

Pda baris 9 kolom 8 di tampilkan ALAMAT BARANG nantinya akan terisi sesuai inputan yang kita masukan pada ALAMAT BARANG.

Pada PROCEDURE DIVISION file atau record yang telah di masukan di tampilkan.

Pada baris 2 kolom 16 di tampilkan tulisan =========PENGIRIMAN BARANG=============

Lalu DISPLAY BARANG dan ACCEPT BARANG untuk menampilkan apa saja yang perlu di isi dan menyimpan setiap record yang di masukan

WRITE RECBARANG untuk menyimpan record tersebut pada RECBARANG

Setelah itu terdapat kondisi dimana apakan data ingin di tambahkan atau tidak

Jika YA kembali lagi ke mulai (IF YA GO TO MULAI)

Jika TIDAK makan record pun berhenti dan program berhenti.

OUTPUT

BERIKUT ADALAH HASIL OUTPUT DARI PROGRAM YANG DI BIKIN :