contoh program COBOL

       identification division.

       program-id. latih.

       environment division.

       data division.

       working-storage section.

Pada blok ini merupakan inti dari sturuktur program bahasa cobol yang paling penting,kemudian dibagi menjadi 4 bagian yang disebut DIVISION. Pada bagian IDENTIFICATION DIVISION berfungsi untuk memberikan informasi pada program yang dibuat. Pada bagian PROGRAM-ID. latih. menunjukan identitas sebuah nama program bernama (gunadarma). Pada bagian ENVIRONMENT DIVISION berfungsi memberikan informasi mengenai peralatan yang digunakan dalam program. Pada bagian DATA DIVISION berfungsi memberikan penjelasan pada input/output pada program.

           01 mhs.

           02 nama pic A(30).

           02 npm pic X(6).

           02 kelas pic X(5).

           02 umur pic X(2).

      screen section.

           01 hapus-layar.

           02 blank screen.

           01 layar-input.

           02 line 9 column 9 value ' NAMA     : '.

           02 column plus 2 pic x(10) to nama.

           02 line 10 column 9 value ' NPM     : '.

           02 column plus 2 pic x(8) to npm.

           02 line 11 column 9 value ' KELAS     : '.

           02 column plus 2 pic x(5) to kelas.

           02 line 12 column 9 value ' UMUR     : '.

           02 column plus 2 pic x(2) to umur.

Pada blok ini kita membuat pendeklarasian record dengan nama mhs, selanjutnya kita mendeklarasikan variable yang terdiri dari (nama, npm, kelas, umur). Pada variable nama, terdapat sintaks pic a yang berarti pengisian karakter berupa string yang panjang karakternya 30, kemudian pada bagian npm, kelas, umur terdapat sintaks pic x yang berarti pengisian karakter berupa alphanumeric dengan panjang karakter nama 6, kelas 5, dan umur 2. Pada screen section berfungsi sebagai penempatan posisi pada layar sesuai baris dan kolom yang kita tentukan seperti pada sintaks di atas ini.

procedure division.

       mulai.

           display hapus-layar.

           display layar-input.

           accept layar-input.

           display (14, 9) 'nama anda    : ', nama.

           display (15, 9) 'npm anda     : ', npm.

           display (16, 9) 'kelas anda   : ', kelas.

           display (17, 9) 'umur anda    : ', umur.

       selesai.

           stop run.

Pada blok ini merupakan penjabaran tentang blok prosedur. Pada sintaks di atas akan menampilkan output yang berisikan nama anda, npm anda, kelas anda, umur anda. Setelah menjalankan program, pada command line diatas akan terhapus dan kemudian muncul jendela input. Data yang kita input akan di tampung pada masing-masing variable yang telah kita buat sebelumnya dan akan memanggil variable nama, npm, kelas, dan umur yang kemudian akan ditampilkan secara keseluruhan yang sebelumnya telah kita input. Selanjutnya akan program akan berhenti dengan perintah stop run.

Output Program 1 :