Perhatikan codingan dibawah ini :
Keterangan:
- IDENTIFICATION DIVISION : dari nama divisinya kita dapat menyimpulkan kegunaan dari divisi ini, yaitu sebagai identifikasi program cobol yang kita buat, misalnya nama pembuat (AUTHOR) dan nama program (PROGRAM-ID).
- PROGRAM-ID. BIODATA : merupakan isi dari identification division yang bermaksud memberikan judul program yang akan kita buat.
- ENVIRONMENT DIVISION : Berisi tentang informasi peralatan yang di gunakan dalam program (boleh tidak diisi).
- DATA DIVISION : Divisi ini berguna untuk mendeskripsikan variabel-variabel dan jenis tipe data yang akan kita gunakan.
- WORKING-STORAGE SECTION : Merupakan section pada data division yang memiliki arti perintah mendeklarasikan variabel data.
- 01 BIODATA : Menjelaskan tentang nama record yaitu “BIODATA".
- 02 NAMA PIC X(30) : Untuk menentukan type data karakter.
- 02 NPM PIC X(8) : Untuk menentukan type data karakter dan numeric.
- 02 KELAS PIC X(5) : Untuk menentukan type data karakter dan numeric.
- SCREEN SECTION : Digunakan untuk menunjukan format dari layar untuk menampilkan data.
- 01 HAPUS : Merupakan nama record dari SCREEN SECTION.
- BLANK SCREEN. : Untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.
- PROCEDURE DIVISION : Merupakan inti dari pemrograman COBOL.
- MULAI : Yaitu merupakan nama record dari PROCEDURE DIVISION.
- DISPLAY (9, 10) “ NAMA : “. : Mencetak/menampilkan “NAMA” pada baris 9 kolom ke 10.
- ACCEPT ( , ) NAMA : Menyimpan variable nama.
- DISPLAY (10, 10) “ NPM : “. : Mencetak/menampilkan “NPM” pada baris 10 kolom ke 10.
- ACCEPT ( , ) NPM : Menyimpan variable npm.
- DISPLAY (11, 10) “ KELAS : “. Mencetak/menampilkan “KELAS” pada baris 11 kolom ke 10.
- ACCEPT ( , ) KELAS : Menyimpan variable kelas.
- DISPLAY (15, 10) ‘NAMA SAYA ADALAH ‘, NAMA : Mencetak/menampilkan kata “NAMA SAYA ADALAH di baris 15 kolom ke 10 dan sekaligus memanggil variable NAMA.
- DISPLAY (16, 10) ‘DENGAN NPM ‘, NPM : Mencetak/menampilkan kata “DENGAN NPM di baris 16 kolom ke 10 dan sekaligus memanggil variable NPM.
- DISPLAY (17, 10) ‘BERADA DI KELAS ‘, KELAS : Mencetak/menampilkan “BERADA DI KELAS di baris 17 kolom ke 10 dan sekaligus memanggil variable KELAS.
- SELESAI : Menandakan telah selesai untuk bagian PROCEDURE DIVISION.
- STOP RUN : Perintah untuk mengakhiri program.
Setelah selesai melakukan
pengkodingan lakukan pengsavean dengan mengubah extensionya menjadi .cob
langkah-langkahnya : save - pilih save as type - ubah menjadi “command business
oriented language”. Selanjutnya perhatikan gambar dibawah ini :
Gambar ini menjelaskan untuk pengoreksian untuk mengetahui
error pada codingan kita, langkah-langkah : ketik cobol – nama file kita -
.cob, contoh : cobol biodata.cob
Berikut ini hasil outputnya :
Selamat Mencoba :DD
Tidak ada komentar:
Posting Komentar