IDENTIFICATION DIVISION.
PROGRAM-ID. BIODATA.
AUTHOR. IRENE.
Arti dari statement di atas adalah, Identification Division menjelaskan program yang dibuat. Program ini dijelaskan dengan nama Biodata dan penulis yang membuat program ini adalah Irene.
ENVIRONMENT DIVISION.
Arti dari statement diatas adalah untuk informasi keadaan komputer yang dipakai. Disini tidak menggunakan configuration section dan input-output section.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUK.
02 NAMA PIC A(20).
02 NPM PIC 9(8).
02 KELAS PIC A(5).
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
Arti dari statement diatas adalah Data Division untuk informasi mengenai bentuk dan jenis data yang digunakan. Data divisi yang digunakan adalah Working-Storage dan Screen Section.
Kode 01 artinya nama record, nama record yang diberikan adalah Data-Masuk. Isi dari Data-Masuk tersebut adalah Nama [dengan tipe data alphabeth, panjang 20 karakter (A adalah tipe data alphabeth], NPM [dengan tipe data number, panjang 8 karakter], Kelas [dengan tipe data alphabet, panjang 5 karakter]. Kode 02 artinya untuk mengisi keterangan dari item data.
Screen Section adalah yaitu untuk mendefinisikan bentuk dari layar input / output. CLS dan Blank Screen adalah untuk menghapus layar.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY (5,9) 'MASUKKAN NAMA : '.
ACCEPT NAMA.
DISPLAY (6,9) 'MASUKKAN NPM : '.
ACCEPT NPM.
DISPLAY (7,9) 'MASUKKAN KELAS : '.
ACCEPT KELAS.
Arti dari statement diatas adalah Procedure Division adalah tempat dimana semua instruksi program dijalankan. Display CLS yang berarti COBOL memanggil program CLS untuk menghapus layar terlebih dahulu. Display (5,9) ‘Masukkan Nama :’ yang artinya pada baris ke 5 kolom ke 9, COBOL akan mencetak Masukkan Nama. Accept Nama artinya untuk tempat kita memasukkan inputan nama. Display (6,9) ‘Masukkan NPM :’ yang artinya pada baris ke 5 kolom ke 9, COBOL akan mencetak Masukkan NPM. Accept NPM artinya untuk tempat kita memasukkan inputan NPM. Display (7,9) ‘Masukkan Kelas :’ yang artinya pada baris ke 5 kolom ke 9, COBOL akan mencetak Masukkan Kelas. Accept Kelas artinya untuk tempat kita memasukkan inputan kelas.
SELESAI.
STOP RUN.
Arti dari statement diatas adalah untuk mengakhiri program. Lalu kita compile di DOSbos dengan cobol [namafile].cob, untuk run dengan runcob [namafile]. Seperti inilah outputnya.