Membuat Menu Pada COBOL

- Langkah pertama kita masukkan perintah IDENTIFICATION DIVISION. yang berfungsi untuk memberikan informasi mengenai program yang dibuat
- Kemudian kita masukkan perintah PROGRAM-ID. LA2. yang berfungsi untuk memberikan nama judul program yang kita buat
- Selanjutnya kita masukkan AUTHOR. DEFRI. Yang berfungsi untuk menyebutkan orang yang membuat program
- Setelah itu kita masukkan perintah ENVIRONMENT DIVISION. yang berfungsi untuk memberikan informasi mengenai peralatan yang digunakan dalam program.
- Lalu kita masukkan perintah DATA DIVISION. yang berfungsi untuk mendeskripsikan variabel-variabel dan jenis tipe data yang digunakan dalam program
- Setelah itu masukkan perintah WORKING-STORAGE SECTION. yang berfungsi untuk mempersiapkan manipulasi/operasi terhadap data
- Kemudian kita masukkan perintah 01 BILANGAN. yang berfungsi sebagai awal dari record (nama record)
- Selanjutnya kita masukkan perintah 02 BIL1 PIC 9(6). O2 BIL2 PIC 9(6). 02 HASIL PIC 9(6) yang berfungsi sebagai keterangan dari record
- Setelah itu masukkan perintah 77 PIL PIC 9(6). merupakan pernyataan tipe data yang dipakai Integer
- Kemudian masukkan perintah SCREEN SECTION. yang berfungsi sebagai statement untuk deklarasi clrscr
- 01 HAPUS. adalah nama variable clrscr nya
- 02 BLANK SCREEN. adalah statementnya
- Selanjutnya kita masukkan perintah 01 MENU-UTAMA. yang berarti bagian deklarasi di program
- 02 LINE 1 COLUMN 10 VALUE “===FAIRY CAFÉ===”
FOREGROUND-COLOR 3. yang berarti cetak ===FAIRY CAFÉ=== pada baris 1 kolom 10 dengan warna biru kehijauan
- 02 LINE 2 COLUMN 5 VALUE “1. PIZZA”. yang berarti cetak 1. PIZZA pada baris 2 kolom 5
- 02 LINE 3 COLUMN 5 VALUE “2. SANDWICH”. yang berarti cetak 2. SANDWICH pada baris 3 kolom 5
- 02 LINE 4 COLUMN 5 VALUE “3. NO THANKZ”. yang berarti cetak 3. NO THANKZ pada baris 4 kolom 5
- 02 LINE 5 COLUMN 5 VALUE “SILAHKAN PILIH :”. yang berarti cetak SILAHKAN PILIH : pada baris 5 kolom 5
- 02 COLUMN PLUS 2 PIC 9 TO PIL.
- Setelah itu kita masukkan 01 MENU1. yang berarti bagian deklarasi di program
- 02 LINE 1 COLUMN 10 VALUE “HARGA/PORSI : 5000”. yang berarti cetak HARGA/PORSI : 5000 pada baris 1 kolom 10
- 02 LINE 2 COLUMN 5 VALUE “PESAN BERAPA :”. yang berarti cetak PESAN BERAPA : pada baris 2 kolom 5
- 02 COLUMN PLUS 2 PIC 9(6) TO BIL1. yang berarti menambahkan 2 kolom di BIL1
- Kemudian masukkan perintah 01 MENU1-OUT. yang berarti bagian deklarasi di program
- 02 LINE 5 COLUMN 5 VALUE “TOTAL HARGA :”. yang berarti cetak TOTAL HARGA : pada baris 5 kolom 5
- 02 COLUMN PLUS 2 PIC 9(6) FROM HASIL. yang berarti menambahkan 2 kolom dari HASIL
- Selanjutnya kita masukkan 01 MENU2. yang berarti bagian deklarasi di program
- 02 LINE 1 COLUMN 10 VALUE “HARGA/PORSI : 2000”. yang berarti cetak HARGA/PORSI : 2000 pada baris 1 kolom 10
- 02 LINE 2 COLUMN 5 VALUE “PESAN BERAPA :”. yang berarti cetak PESAN BERAPA : pada baris 2 kolom 5
- 02 COLUMN PLUS 2 PIC 9(6) TO BIL2. yang berarti menambahkan 2 kolom di BIL2
- Setelah itu kita masukkan perintah PROCEDURE DIVISION. merupakan inti dari bahasa pemrograman COBOL karena pada divisi inilah semua statement instruksi dibuat
- Kemudian kita masukkan perintah MULAI. yang berfungsi untuk memulai program
- DISPLAY HAPUS. yang berarti membersikan layar
- DISPLAY MENU-UTAMA. yang berarti menampilkan MENU-UTAMA
- ACCEPT MENU-UTAMA. yang berfungsi untuk mencetak MENU-UTAMA
- Selanjutnya kita masukkan perintah IF PIL = 1
GO TO PILIHAN-SATU yang berarti jika pilihan yang dimasukkan 1 maka akan ke statement PILIHAN-SATU
- ELSE IF PIL = 2
GO TO PILIHAN-DUA yang berarti jika pilihan yang dimasukkan 2 maka akan ke statement PILIHAN-DUA
- ELSE IF PIL = 3
GO TO SELESAI yang berarti jika pilihan yang dimasukkan 3 maka akan ke statement SELESAI
- ELSE
GO TO SALAH. yang berarti jika pilihan yang dimasukkan lebih dari 3 maka akan ke statement SALAH
- Setelah itu masukkan perintah PILIHAN-SATU. yang berarti bagian deklarasi di program
- DISPLAY HAPUS. yang berarti membersikan layar
- DISPLAY MENU1. yang berarti menampilkan MENU1
- ACCEPT MENU1. yang berfungsi untuk mencetak MENU1
- COMPUTE HASIL = BIL1 * 5000. yang berarti perhitungan hasil antara BIL1 * 5000
- DISPLAY MENU1-OUT. yang berarti menampilkan MENU1-OUT
- GO TO SELESAI. yang berarti menuju ke statement SELESAI
- Kemudian masukkan perintah PILIHAN-DUA. yang berarti bagian deklarasi di program
- DISPLAY HAPUS. yang berarti membersikan layar
- DISPLAY MENU2. yang berarti menampilkan MENU2
- ACCEPT MENU2. yang berfungsi untuk mencetak MENU2
- COMPUTE HASIL = BIL2 * 2000. yang berarti perhitungan hasil antara BIL2 * 2000
- DISPLAY MENU1-OUT. yang berarti menampilkan MENU1-OUT
- GO TO SELESAI. yang berarti menuju ke statement SELESAI
- Selanjutnya kita masukkan perintah SALAH. yang berarti bagian deklarasi di program
- DISPLAY (10, 5) “PILIHAN SALAH”. yang berarti menampilkan PILIHAN SALAH pada baris 10 kolom 5
- STOP ‘ ‘.
GO TO MULAI. yang berarti akan berhenti jika pilihan yang dimasukkan <=3 lalu menuju ke statement MULAI. - Setelah data yang ingin ditampilkan di layar selesai kita masukkan perintah SELESAI. - Lalu STOP RUN. Perhatikan gambar dibawah ini :

- Setelah semua statement dimasukkan kita Save dengan judul LA3.COB kemudian Exit.
- Lalu kita masukkan perintah COBOL LA3.COB untuk mengcompail program, apakah ada kesalahan (error) atau peringatan (lihat gambar dibawah)