Paragraf dan PERFORM

Dalam COBOL, modularitas dan penataan logis kode di dalam PROCEDURE DIVISION tidak terjadi melalui fungsi atau metode, melainkan melalui Paragraf dan pernyataan PERFORM.

Mendefinisikan Paragraf

Paragraf adalah bagian kode berlabel yang dimulai dengan nama di kolom 8 (Area A) diakhiri dengan titik ., diikuti dengan rangkaian instruksi di kolom 12 (Area B).

COBOL

DISPLAY-MESSAGE.
    DISPLAY "This is a paragraph!".

Paragraf memungkinkan pemisahan program yang berpotensi sangat panjang menjadi blok-blok yang dapat digunakan kembali dan didokumentasikan sendiri.

Mengeksekusi Paragraf dengan PERFORM

Pernyataan PERFORM memanggil dan mengeksekusi sebuah paragraf, kemudian mengembalikan kontrol ke instruksi segera setelah pernyataan PERFORM.

COBOL

PROCEDURE DIVISION.
MAIN-PROCEDURE.
    DISPLAY "Starting program...".
    PERFORM PROCESS-DATA.
    DISPLAY "Ending program.".
    STOP RUN.

PROCESS-DATA.
    DISPLAY "Processing data in memory...".

Dalam daftar di atas:

DISPLAY di dalam MAIN-PROCEDURE dijalankan.
PERFORM PROCESS-DATA cabang eksekusi ke paragraf PROCESS-DATA.
Setelah paragraf PROCESS-DATA berakhir, eksekusi kembali ke MAIN-PROCEDURE untuk mencetak "Program Berakhir". dan berhenti menggunakan STOP RUN..

Cobalah sendiri

Latihan#cobol.m3.l1.e1

Upaya: 0Memuat…

Tentukan paragraf bernama DISPLAY-TOTAL yang mencetak 'TOTAL IS DONE' menggunakan DISPLAY, dan memanggilnya di dalam PROSEDUR UTAMA menggunakan PERFORM sebelum menghentikan program.

Memuat editor…

Tunjukkan petunjuk

Tulis PERFORM DISPLAY-TOTAL. pada kolom 12, dan di bawah blok MAIN-PROCEDURE nyatakan DISPLAY-TOTAL. paragraf di kolom 8.

Solusi tersedia setelah 3 upaya

Latihan#cobol.m3.l1.e2

Upaya: 0Memuat…

Panggil dua paragraf secara berurutan, pertama INITIALIZE-DATA dan kemudian PROCESS-DATA, dalam blok MAIN-PROCEDURE.

Memuat editor…

Tunjukkan petunjuk

Sisipkan kedua pernyataan PERFORM secara berurutan pada kolom 12.

Solusi tersedia setelah 3 upaya