PROGRAM LOOPING SEDERHANA PADA COBOL

Gambar di atas merupakan contoh codingan perulangan pada cobol :

IDENTIFICATION DIVISION berfungsi untuk pengidentifikasian pembuat program seperti PROGRAM ID dan AUTHOR

ENVIRONMENT DIVISION berfungsi untuk member informasi peralatan yang digunakan dalam program

DATA DIVISION berfungsi untuk mendeskripsikan variabel – variabel dan jenis tipe data yang digunakan pada program COBOL

WORKING-STORAGE SECTION berfungsi untuk mendeklarasikan variabel dan tipe data yang digunakan dalam program cobol

77 merupakan level number yang hanya boleh terdapat pada WORKING-STORAGE SECTION, dimana data item bersifat berdiri sendiri

X PIC 999 merupakan variabel X yang menyimpan nilai data numeric

SCREEN SECTION yang berfungsi untuk menentukan format layar tampilan baik input maupun output.

PROCEDURE DIVISION merupakan inti dari pemograman pada COBOL

MULAI untuk memulai suatu pemograman pada cobol

DISPLAY ‘PROGRAM CETAK TEKS’ yang berarti nanti pada layar output akan muncul teks PROGRAM CETAK TEKS

PERFORM HITUNG VARYING Y FROM 1 BY 1 UNTIL Y > X yang berarti perintah program untuk melakukan looping sebanyak Y satu demi satu sampai dengan Y , setelah looping sampai dengan X maka program akan berhenti sendiri dan akan mencetak sebanyak Y dari statement HITUNG

HITUNG

             DISPLAY ‘HAPPY BIRTHDAY’.

Statement di atas berarti bahwa statement HITUNG akan menampilkan HAPPY BIRTHDAY

Setelah itu kita buka tab baru cmd , lalu kita ketikkan cobol(spasi)namafile.cob untuk mengecek apakah codingan kita terdapat error atau tidak.

Berikut adalah hasil output dari codingan yang sudah kita buat