Memubuat Program keputusan Lulus atau Gagal Menggunakan Cobol

Pertama kita buat program Biodata, buka cmd di start menu kemudian pada kotak isian search ketik cmd lalu ok maka akan muncul command promt seperti gambar dibawah :

Masuk ke program cobol dengan cara masuk ke folder cobol melalui command promt lalu bila sudah masuk ke folder cobol ketik edit lat1.cob untuk mencreate cobol lat1

Jika sudah muncul seperti kotak di atas maka ketikan kode program seperti di bawah ini, dengan menspasi 8 x terlebih dahulu :

Keterangan :

IDENTIFICATION DIVISION. Berfungsi untuk memberikan informasi mengenai program yang dibuat.

PROGRAM-ID. INPUT. Berfungsi untuk memberi nama sebuah program yang akan dibuat.

AUTHOR. HANZ. Berfungsi untuk memberi nama pembuat program/programmer.

YANG WAJIB DI TULIS DI IDENTIFICATION DIVISION ADALAH  IDENTIFICATION DIVISION dan PROGRAM-ID.

ENVIRONMENT DIVISION. Berfungsi untuk memberikan informasi peralatan yang di gunakan dalam program.

DATA DIVISION. Berfungsi untuk memberikan penjelasan tentang input data dan output yang di pergunakan. Isi dari divisi ini adalah semua keterangan tentang file, record, nama-data, serta bentuk format yang akan digunakan di Procedure  Division.

WORKING – STORAGE SECTION. Berfungsi untuk  Sifatnya optional, ada bilamana diperlukan pemesanan tempat di internal memori yang diperlukan oleh pekerjaan proses program.

77 NAMA PIC A(20). Berfungsi untuk mengawali data item yg berdiri sendiri.

77 NPM PIC 9(8). Berfungsi untuk mengawali data item yg berdiri sendiri.

77 KELAS PIC X(5). Berfungsi untuk mengawali data item yg berdiri sendiri.

77 UTS PIC 9(3). Berfungsi untuk mengawali data item yg berdiri sendiri.

77 UAS PIC 9(3). Berfungsi untuk mengawali data item yg berdiri sendiri.

77 HASIL PIC 9(3). Berfungsi untuk mengawali data item yg berdiri sendiri.

 Keterangan : A(20) Punya arti tipe data yang akan di input nanti berupa huruf dan memiliki panjang 20 karakter.

                           X(8)/X(5) Punya arti tipe data yang digunakan untuk  inputan nanti berupa angka dan memiliki panjang 8/5 karakter.

                           9(8)/9(3) Punya arti tipe data yang digunakan adalah data NUMERIK dan memiliki panjang 9/3 karakter.

SCREEN SECTION. Berfungsi untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data atau memasukkan data.

01 CLS/CLEAR SCREEN. Befungsi untuk mengawali keterangan dari record yang akan di buat dan keterangannya HAPUS.

BLANK SCRREN. Berfungsi untuk membersihkan layar dan menempatkan kursor pada baris1, kolom1 pada posisi kiri atas.

01 INPUTAN. untuk mengawali keterangan dari record.

02 LINE 4 COLOUMN 8 VALUE ‘MASUKKAN NAMA :’. Nantinya akan di tampilkan kelayar yang berisi MASUKKAN NAMA : di baris 4 kolom 8 pada layar.

02 COLUMN PLUS 1 PIC A(20) TO NAMA. Berfungsi untuk menyimpan sementara isian dari MASUKKAN NAMA : di kolom 8 di tambah satu (kolom 9).

02 LINE 5 COLOUMN 8 VALUE ‘MASUKKAN NPM :’. Nantinya akan di tampilkan kelayar yang berisi MASUKKAN NPM : di baris 5 kolom 8 pada layar.

02 COLUMN PLUS 1 PIC 9(8) TO NPM. Berfungsi untuk menyimpan sementara isian dari MASUKKAN NPM : di kolom 8 di tambah satu (kolom 9).

02 LINE 6 COLOUMN 8 VALUE ‘MASUKKAN KELAS :’. Nantinya akan di tampilkan kelayar yang berisi MASUKKAN KELAS : di baris 6 kolom 8 pada layar.

02 COLUMN PLUS 1 PIC X(5) TO KELAS. Berfungsi untuk menyimpan sementara isian dari MASUKKAN KELAS : di kolom 8 di tambah satu (kolom 9).

02 LINE 8 COLOUMN 8 VALUE ‘NILAI UTS:’. Nantinya akan di tampilkan kelayar yang berisi NILAI UTS : di baris 8 kolom 8 pada layar.

02 COLUMN PLUS 1 PIC 9(3) TO UTS. Berfungsi untuk menyimpan sementara isian dari NILAI UTS: di kolom 8 di tambah satu (kolom 9).

02 LINE 9 COLOUMN 8 VALUE ‘NILAI UAS :’. Nantinya akan di tampilkan kelayar yang berisi NILAI UAS : di baris 9 kolom 8 pada layar.

02 COLUMN PLUS 1 PIC 9(3) TO UAS. Berfungsi untuk menyimpan sementara isian dari NILAI UAS : di kolom 8 di tambah satu (kolom 9).

PROCEDURE DIVISION. Berfungsi untuk tempat menaruh instruksi-instruksi dimana dilakukan prosedur pekerjaan proses dari input data menjadi output data.

MULAI. Berfungsi untuk perintah memulai instruksi – instruksi oleh programmer.

DISPLAY CLS. Berfungsi untuk menampilkan hasil di layar.

DISPLAY INPUTAN. Berfungsi untuk menampilkan INPUTAN.

ACCEPT INPUTAN. Berfungsi untuk memasukan data INPUTAN ke layar saat program di jalan kan,

COMPUTE HASIL = (UTS *0.7) + (UAS *0.3). Berfungsi untuk mengkalkulasi sebuah nilai disini kita akan mengkalkulasi nilai dengan cara UTS di kalikan dengan 0,7 ditambahkan dengan UAS dikalikan 0,3 desimal harus pake titik (.)

DISPLAY(13 , 8)’HASIL =’HASIL. Berfungsi untuk menampilkan HASIL dari kalkulasi UTS dan UAS  di baris 13 kolom 8 di layar.

IF HASIL > 60 INI ADALAH FUNGSI PERMISALAN  jika hasil lebih dari 60 maka.

DISPLAY(14 , 8)’ANDA LULUS’. Berfungsi untuk menampilkan kata ANDA LULUS dari kalkulasi UTS dan UAS JIKA HASIL lebih besar dari 60 di baris 14 kolom 8 di layar.

IF HASIL < 60 INI ADALAH FUNGSI PERMISALAN  jika hasil kurang dari 60 maka.

DISPLAY(14 , 8)’ANDA GAGAL’. Berfungsi untuk menampilkan kata ANDA GAGAL dari kalkulasi UTS dan UAS  JIKA HASIL lebih kecil dari 60 di baris 14 kolom 8 di layar.

STOP RUN. Berfungsi untuk menghentikan program secara permanen.

Jika sudah mengetik kode program seperti diatas, jalankan kode program tersebut dengan langkah dibawah ini :

Save file terlebih dahulu dengan cara klik file lalu save jika sudah ikuti langkah berikutnya

Klik file lalu exit pada table diatas maka muncul tabell seperti dibawah :

Lalu kita compiler dahulu file yang tadi kita buat dengan cara ketik cobol lat1.cob dan tekan enter sebanyak 3x. seperti gambar di bawah :

Kemudian ketik runcobol lat1.cob untuk menjalankan program seperti gambar di bawah jika masih errors periksa kembali kode program yang di buat tadi dengan ccara edit lat1.cob kemudian Ketik kembali runcobol lat1.cob jika jalan akan muncul seperti table dibawah ini :

Dan Programpun telah selesai.