Memubuat Program Menggunakan Kondisi PERFORM Sebanyak 5 Kali Berturut” Dengan Satu PERFORM Menggunakan Cobol

Pertama kita buat program Biodata, buka cmd di start menu kemudian pada kotak isian search ketik cmd lalu ok maka akan muncul command promt seperti gambar dibawah :

Masuk ke program cobol dengan cara masuk ke folder cobol melalui command promt lalu bila sudah masuk ke folder cobol ketik edit coba1.cob untuk mencreate cobol lat1

Jika sudah muncul seperti kotak di atas maka ketikan kode program seperti di bawah ini, dengan menspasi 8 x terlebih dahulu

Keterangan :

IDENTIFICATION DIVISION. Berfungsi untuk memberikan informasi mengenai program yang dibuat.

PROGRAM-ID. INPUT. Berfungsi untuk memberi nama sebuah program yang akan dibuat.

AUTHOR. HANZ. Berfungsi untuk memberi nama pembuat program/programmer.

YANG WAJIB DI TULIS DI IDENTIFICATION DIVISION ADALAH  IDENTIFICATION DIVISION dan PROGRAM-ID.

ENVIRONMENT DIVISION. Berfungsi untuk memberikan informasi peralatan yang di gunakan dalam program.

DATA DIVISION. Berfungsi untuk memberikan penjelasan tentang input data dan output yang di pergunakan. Isi dari divisi ini adalah semua keterangan tentang file, record, nama-data, serta bentuk format yang akan digunakan di Procedure  Division.

WORKING – STORAGE SECTION. Berfungsi untuk  Sifatnya optional, ada bilamana diperlukan pemesanan tempat di internal memori yang diperlukan oleh pekerjaan proses program.

01 NILAI-MASUKAN. Berfungsi untuk mengawali keterangan dari record.

02 NAMA PIC X(20). Berfungsi untuk mengawali keterangan dari data item.

Keterangan : X(20). Punya arti tipe data yang digunakan untuk  inputan nanti berupa angka dan memiliki panjang 20 karakter.

PROCEDURE DIVISION. Berfungsi untuk tempat menaruh instruksi-instruksi dimana dilakukan prosedur pekerjaan proses dari input data menjadi output data.

MULAI. Berfungsi untuk perintah memulai instruksi – instruksi oleh programmer.

PERFORM  PROCEDURE-A 5 TIMES. Berfungsi untuk meloncat pembacaan ke PROCEDURE-A sebanyak 5 kali pemanggilan, PERFORM berbeda dengan GO TO, kalau perform setelah meloncat ke nama paragraph tertentu dia akan melanjutkan statement setelah PERFORM sedangkan GO TO tidak melanjutkan statement setelah GO TO.

DISPLAY ‘SELAMAT BELAJAR’. Berfungsi untuk menampilkan variable SELAMAT BELAJAR.

PERFORM  PROCEDURE-B. Berfungsi untuk meloncat pembacaan ke PROCEDURE-B.

PERFORM  PROCEDURE-A. Berfungsi untuk meloncat pembacaan ke PROCEDURE-A.

STOP RUN. Berfungsi untuk menghentikan program secara permanen.

PROCEDURE-A 5 TIMES. Berfunsi untuk inputan atau seperti penyimpanan untuk nantinya di panggil ke PERFORM  PROCEDURE-A sebanyak 5 kali.

DISPLAY ‘********************’. Bila PROCEDURE-A di panggil maka akan muncul ******************** dan

DISPLAY ‘^^^^^^^^^^^^^^^^^^^^^’. Akan muncul tanda ^^^^^^^^^^^^^^^^^^^^juga.

PROCEDURE-B. Berfunsi untuk inputan atau seperti penyimpanan untuk nantinya di panggil ke PERFORM  PROCEDURE-B.

DISPLAY ‘DAN SEMOGA SUKSES’ Bila PROCEDURE-B di panggil maka akan muncul DAN SEMOGA SUKSES.

Jika sudah mengetik kode program seperti diatas, jalankan kode program tersebut dengan langkah dibawah ini

Save file terlebih dahulu dengan cara klik file lalu save jika sudah ikuti langkah berikutnya

 Klik file lalu exit pada table diatas maka muncul tabell seperti dibawah :

Lalu kita compiler dahulu file yang tadi kita buat dengan cara ketik cobol coba1.cob dan tekan enter sebanyak 3x. seperti gambar di bawah :

Kemudian ketik runcobol coba1.cob untuk menjalankan program seperti gambar di bawah jika masih errors periksa kembali kode program yang di buat tadi dengan ccara edit coba1.cob kemudian Ketik kembali runcobol coba1.cob jika jalan akan muncul seperti table dibawah ini :