Contoh dasar program COBOL :
IDENTIFICATION DIVISION. ? kolom 8
PROGRAM-ID. LAT1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 NAMA PIC A(20).
01 KELAS PIC B(5).
PROCEDURE DIVISION.
MULAI.
DISPLAY “NAMA :”.
ACCEPT NAMA.
DISPLAY “KELAS :”.
ACCEPT KELAS.
DISPLAY “NPM :”.
ACCEPT NPM.
SELESAI.
STOP RUN.
Adapun Logika Pemrogramannya adalah sebagai berikut :
• Pada COBOL, Untuk menulis divisi, section, nama paragraph, judul file description, level number 01 dan level number 77 yaitu ditulis di kolom 8-11.
• Untuk menulis elemen program selain yang ditulis di area A, disebut area B yaitu ditulis di kolom 12-72.
• IDENTIFICATION DIVISION kali ini sebagai identifikasi program cobol yang kita buat seperti nama pembuat dan nama program, pada program diatas nama dari programnya Lat1. Dan dituliskan pada kolom 8.
• DATA DIVISION pada program cobol diatas, digunakan untuk mendeskripsi kan variable dan jenis tipe data yang digunakan dimana section yg digunakan adalah WORKING-STORAGE SECTION. Dituliskan pada kolom 8.
• PROCEDURE DIVISION digunakan untuk menulis statement instruksi yang dibuat pada program diatas, seperti DISPLAY,ACCEPT,STOP RUN.
Jalan dari Program diatas yaitu:
Mengeluarkan output untuk memasukkan nama dan kelas. Setelah kita menjalankan program dengan cara mengetikkan RUNCOBOL Lat1.cob pada cmd, maka akan meminta untuk memasukkan nama, setelah kita memasukkan nama, kemudian selanjutnya meminta untuk memasukkan kelas. Kemudian program akan berhenti.
Tidak ada komentar:
Posting Komentar