Program Kondisi pada COBOL

Kali ini tugas praktikum Cobol yang ingin saya share disini, adalah program Kondisi Kelulusan, Grade serta Status Nilai.



Perhatikan capture gambar program Lulus dan Gagal serta grade dan status nilai.

 IDENTIFICATION DIVISION. Divisi ini berisi Informasi tentang Program, antara lain nama program, nama pembuat, tanggal dibuat, tanggal kompilasi, tingkat   keamanan program, Informasi ini bersifat Optional yaitu boleh diisi atau   tidak

ENVIRONMENT DIVISION. Divisi ini dibagi menjadi dua section yaitu CONFIGURATION SECTION dan INPUT-OUTPUT SECTION. Pada bagian CONFIGURATION SECTION dapat diisi dengan informasi tentang komputer apa saja yang dapat digunakan untuk program. Sedangkan pada INPUT-OUTPUT SECTION menerangkan informasi tentang peralatan-peralatan yang dipergunakan untuk memproses file baik sebagai media peralatan input maupun media peralatan output.

DATA DIVISION. Divisi ini terdiri dari beberapa section yaitu :

-  WORKING-STORAGE SECTION, mempunyai sifat Optional (bisa diikutkan atau tidak ) seksi ini berguna untuk menggambarkan  suatu record dan data lainnya.

-  SCREEN SECTION, digunakan untuk mendefinisikan bentuk layar tampilan untuk input ataupun untuk tampilan output.

PROCEDURE DIVISION. bertugas untuk menunjukan prosedur dari instruksi yang mempunyai akibat secara langsung menghasilkan output yang diminta dari sejumlah input yang ada.

·  DISPLAY, dipergunakan untuk menampilkan format yang telah dibentuk di SCREEN SECTION pada layar terminal.

·  ACCEPT, digunakan untuk memasukkan nilai data-item lewat layar terminal dengan bentuk format yang dibentuk pada SCREEN SECTION tersebut.

·  COMPUTE, Digunakan untuk operasi yang lebih rumit, untuk menyederhanakan 4 arithmatic verb sebelumnya.

·  LINE Clause, digunakan untuk menempatkan cursor pada posisi baris tertentu.

·  COLUMN Clause, digunakan untuk menempatkan kursor pada posisi kolom tertentu.

·  Level Number 77, Untuk mengawali data item yang berdiri sendiri, Level Number ini terdapat di WORKING-STORAGE SECTION.

·  PIC (PICTURE CLAUSE)

Ø  PICTURE karakter 9, Digunakan untuk data item yang berbentuk numerik

Ø  PICTURE karakter V, Menunjukkan letak anggapan dari titik desimal

Ø  PICTURE karakter P, Digunakan bersama dengan PICTURE karakter V untuk menimbulkan angka φ

Ø  PIC 9PPV berarti di prosedur 5φφ^, Tanda ^ (caret) menunjukkan posisi dari letak anggapan titik desimal

Ø  PICTURE karakter S, Digunakan untuk menempatkan angka negatif pada lokasi field, sehingga komputer akan menyimpan tanda tsb. Karakter S tidak dihitung sebagai panjang field.

Ø  PICTURE karakter A, Digunakan untuk menyimpan nilai data huruf (alphabetik).

Ø  PICTURE karakter X, Digunakan untuk menyimpan gabungan angka, huruf atau karakter khusus (alphabetik).

·   IF, logika dari statement IF di dalam program tersebut yaitu jika nilai hasil compute (Hasil) lebih kecil dari 101 dan lebih besar dari 85 maka akan cetak (DISPLAY) pada koordinat yang tertera di program “Grade A” serta “Istimewa” dilain baris, kemudian jika hasil tersebut juga akan menentukan Lulus atau Gagal. Begitu seterusnya hingga “nilai” yang terpenuhi kurang dari 25 maka cetak “Grade E dan “Buruk Banget serta pastinya akan mencetak “Anda Gagal”.