MEMBUAT MENU PADA COBOL

Setiap source yang di masukkan harus diakhiri dengan tanda “ . “  (titik).

    Identification divison digunakan untuk memberi keterangan  program yang akan dibuat. Identification division biasanya berisi tentang apa judul dari program yang dibuat,     PROGRAM-ID. Digunakan untuk mendeklarasikan judul program yang akan dibuat.
   Selanjutnya kita masuk pada divisi dari Cobol yang kedua yaitu Environment division. Environment division digunakan untuk memberikan informasi peralatan yang digunakan  dalam pembuatan program.
DATA DIVISON.digunakan untuk mendeskripsikan variable-variabel dan jenis tipe data yang digunakan untuk membuat program.
WORKING-STORAGE SECTION berfungsi untuk mendeklarasikan varibael-variabel serta jenis data yang nantinya akan digunakan
01 merupakan level number yang digunakan untuk mengawali keterangan pada record.
Record yang pertama adalah OPERAND.
PIL menggunakan tipe data numeric.
ULANG menggunakan tipe data alphabet.
88 merupakan level number yang digunakan untuk mengawali nama suatu kondisi.
Jika pada saat kondisi kita memilih YA maka kita dapat masukkan huruf Y atau Y. Sedangkan jika pada saat kondisi kita memilih TIDAK kita masukkan huruf T atau t.
Record yang kedua adalah BIODATA.
NAMA menggunakan tipe data alphabet dengan max length 30 karakter.
NPM menggunakan tipe data alphanumeric dengan max length 8 karakter.
KELAS menggunakan tipe data alphanumeric dengan max length 5 karakter.
UTS menggunakan tipe data numeric dengan max length 2 karakter.
UAS menggunakan tipe data numeric dengan max length 2 karakter.
NILAI  menggunakan tipe data numeric dengan max length 2 karakter.
SCREEN SECTION berguna untuk mengatur bentuk format dari layar input maupun output.
01 merupakan level number Cobol yang digunakan untuk mengawali keterangan dari awal record. CLS yang digunakan untuk membersihkan layar. 02 BLANK SCREEN digunakan untuk membersihkan layar dan menempatkan kursor pad posisi kiri atas.

PROCEDURE DIVISION .Divisi ini merupakan inti dari bahasa pemrograman COBOL karena pada divisi ini semua statement instruksi dibuat
DISPLAY CLS Digunakan untuk menampilkan atau memanggil output dari record CLS.DISPLAY diatas digunakan untuk menampilkan menu berbentuk kotak seperti diatas pada saat program dijalankan.

DISPLAY (, ) 'MASUKAN PIL ANDA :', ACCEPT PIL. Digunakan untuk menampilkan tulisan MASUKKAN PIL ANDA : lalu angka yang dimasukkan akan disimpan didalam var PIL.
GO TO MEN1, MEN2, MEN3, MEN4, DEPENDING ON PIL. Apabila kita sudah memasukkan angka pilihan maka kita akan masuk kedalam MEN1/MEN2/MEN3/MEN4 sesuai dengan pilihan yang kita masukkan.
STOP, 'MAAF MENU TIDAK TERSEDIA'. Apabila kita memasukkan angka pilihan yang tersedia maka akan muncul tulisan MAAF MENU TIDAK TERSEDIA.  Lalu kembal ilagi ke Menu awal.
Kita masuk ke sub procedure MEN1.
DISPLAY SPACE digunakan untuk memberikan jarak kebawah.
DISPLAY 'PROGRAM BIODATA'. Digunakan untuk menampilkan tulisan PROGRAM BIODATA.
DISPLAY 'MASUKAN NAMA ANDA:', ACCEPT NAMA. Digunakan untukmenampilkan tulisan MASUKKAN NAMA ANDA : Lalu nama yang dimasukkan akan disimpan didalam var NAMA.
DISPLAY 'MASUKAN NPM ANDA:', ACCEPT NPM. Digunakan untuk menampilkan tulisan MASUKKAN NPM ANDA : Lalu NPM yang dimasukkan akan disimpan didalam var NPM.
DISPLAY 'MASUKAN KELAS ANDA:', ACCEPT KELAS .Digunakan untuk menampilkan tulisan MASUKKAN KELAS ANDA : Lalukelas yang dimasukkan akan disimpan didalam var KELAS.

DISPLAY SPACE digunakan untuk memberikan jarak kebawah.
DISPLAY 'JADI NAMA SAYA ADALAH :', NAMA. Digunakan untuk menampilkan tulisan JADI NAMA ANDA : dikuti dengan nama yang sudah di inputkan sebelumnya.
DISPLAY 'NPM SAYA ADALAH :', NPM. Digunakan untuk menampilkan tulisan NPM ANDA ADALAH : diikuti dengan npm yang sudah diinputkan sebelumnya.
DISPLAY 'KELAS SAYA ADALAH :', KELAS. Digunakan untu kmenampilkan tulisan KELAS ANDA BERADA DI : diikuti dengan kelas yang sudah diinputkan sebelumnya.
GO TO TANYA. Lalu loncat ke procedure TANYA.
Kita masuk ke sub procedure MEN2.
DISPLAY SPACE digunakan untuk memberikan jarak kebawah.
DISPLAY 'MASUKAN  UTS ANDA:', ACCEPT UTS. Digunakan untuk menampilkan tulisan MASUKKAN NILAI UTS ANDA : nilai yang dimasukkan akan disimpan didalam var UTS,
DISPLAY 'MASUKAN UAS ANDA:', ACCEPT UAS. Digunakan untuk menampilkan tulisan MASUKKAN NILAI UAS ANDA: Nilai yang dimasukkan akan disimpan didalam var UAS.
COMPUTE HASIL = (UTS * 0.7) + (UAS * 0.3). merupakan proses perhitungan untuk mencari nilai hasil dengan rumus nilai UTS x 0.7 + nilai UASx 0.3.
IF HASIL > 90 and <100
DISPLAY 'GRADE A  LULUS'.

Kita masuk ke sub procedure MEN3.
DISPLAY CLS digunakan untuk menampilkan atau memanggil output dari record CLS.
DISPLAY 'SELAMAT DATANG DI PROGRAM  PERULANGAN'. Digunakan untuk menampilkan tulisan PROGRAM PERULANGAN.
PERFORM CETAK VARYING I FROM 1 BY 1 UNTIL I>N
AFTER J FROM 1 BY 1 UNTIL J>I.
Merupakan proses looping/pengulangan yang diawali nilai I dengan angka 1 lalu pindah kevariabel J. Setelah variable J lebih besar dari angka I makan looping berhenti dan kembali ke proses awal sampai nilai I yang ditambah satu. Lalu kembali ke proses J sampai nilai J lebih besar dari I maka proses looping selesai.
GO TO TANYA.Lalu loncat ke procedure TANYA.
DISPLAY SPACE digunakan untuk memberikan jarak kebawah.
Merupakan sub procedure cetak yang ada pada perintah looping sebelumnya. Hasil dari perulangan akan mencetak tanda‘ * ‘. Jika nilai J sudah sama dengan nilai I maka akan diberi space kebawah.
Kita masukke sub procedure TANYA.
DISPLAY(, ) 'KEMBALI LAGI KE MENU AWAL ?[Y/T]'. Digunakan untuk menampilkan tulisan KEMBALI KE MENU AWAL?[Y/T]
ACCEPT ULANG. Digunakan untuk menyimpan huruf yang dimasukkan
IF YA GO TO MENU. Jika memilih ya maka akan kembali ke sun procedure MENU.

IF TIDAK GO TO SELESAI .Jika memilih tidak maka akan kembali ke sub procedure SELESAI.
Kita masuk ke sub procedure MEN4.
DISPLAY 'TERIMA KASIH '. Digunakan untuk menampilkan tulisan TERIMAKASIH
STOP RUN. Apabila kita memilih menu pilihan 4 maka otomatis program akan berhenti