COBOL

3. Pernyataan PERFORM.
3.1. Pernyataan PERFORM digunakan untuk :
1. Proses Pengulangan.
Yaitu jika terdapat suatu proses atau beberapa proses yang
dijalankan beberapa kali.
2. Pemrograman Terstruktur.
o Suatu cara mengorganisir program untuk memudahkan
pengembangan, pemahaman, dan pemodifikasian program.
o Pendekatan pembuatan program menggunakan konsep TOPDOWN
3.2. Perbedaan proses antar pernyataan PERFORM dan GO TO.
Setelah selesai mengerjakan seluruh isi paragraph yang diinginkan,
maka :
Pada PERFORM => akan kembali lagi ke statement setelah
statement PERFORM tersebut.
Pada GO TO => tidak akan kembali ke statement setelah GO
TO, tetapi proses dilanjutkan ke paragraph
berikutnya dari paragraph yang dituju.
3.3. Keuntungan Penggunaan PERFORM :
Suatu prosedur dapat dieksekusi pada berbagai tempat yang
berbeda di dalam program, sehingga menghemat kode program.
3.4. Bentuk dasar PERFORM :
PERFORM NAMA-PROSEDUR-1 { THROUGH THRU } NAMA PRO
2
Dapat di bagi menjadi 2, yaitu :
a. PERFORM NAMA-PROSEDUR-1.
Ilustrasi:
Contoh Program :
*---CONTOH PEMAKAIAN PERFORM---*
IDENTIFICATION DIVISION.
PROGRAM-ID. PERFORM.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MULAI.
PERFORM PROCEDURE-A.
DISPLAY ‘ SELAMAT BELAJAR ‘.
PERFORM PROCEDURE-B.
PERFORM PROCEDURE-A.
STOP RUN.
PROCEDURE-A.
DISPLAY ‘*********************’.
DISPLAY ‘^^^^^^^^^^^^^^^^^^^^^^’.
PROCEDURE-B.
DISPLAY ‘ DAN SEMOGA SUKSES’.
Hasilnya :
**********************************
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
SELAMAT BELAJAR
DAN SEMOGA SUKSES
*********************************
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
b. PERFORM NAMA PROCEDURE-1 THROUGH NAMAPROCEDURE-
2. atau
PERFORM PROSEDUR-A
( pernyataan selanjutnya)
.
.
PROSEDUR – A.
……
PROSEDUR – B.
……
PERFORM NAMA-PROCEDURE-1 THROUGH NAMAPROCEDURE-
2.
Contoh Program :
*----CONTOH PEMAKAIAN PERFORM THRU----*
IDENTIFICATION DIVISION.
PROGRAM-ID. PERFORM2.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
MULAI.
PERFORM GARIS.
PERFORM PROCEDURE-A THRU PROCCEDURE-B.
DISPLAY ‘ SEMOGA KITA JADI ORANG SUKSES ‘.
PERFORM GARIS.
STOP RUN.
PROCEDURE-A.
DISPLAY ‘ AYO BELAJAR ‘.
PROCEDURE-B.
DISPLAY ‘ JANGAN MALAS ‘.
GARIS.
DISPLAY’~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~’.
Hasilnya :
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
AYO BELAJAR
JANGAN MALAS
SEMOGA KITA JADI ORANG SUKSES
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~