Cobol Perulangan

Apa yang dimaksud Perulangan atau Looping pada COBOL ?

Perulangan/Looping adalah Beberapa instruksi diulang untuk suatu jumlah pengulangan yang tertentu. Jumlah pengulangan dapat diketahui sebelumnya atau ditentukan dalam perjalanan program.

Bentuk umum Looping pada COBOL :

GO TO Verb : GO TO . . . DEPENDING VERB, ALTER Verb, PERFORM Verb,  Exit Verb          

Contoh program Looping pada COBOL :

IDENTIFICATION DIVISION.

PROGRAM-ID. LOOPING.

AUTHOR. DIMAS.

ENVIRONMENT DIVISION.

DATA DIVISION.

WORKING-STORAGE SECTION.

01  INPUT-AREA.

02 I PIC 9.

02 J PIC 9.

02 NILAI PIC 9.

SCREEN SECTION.

01 CLS.

02 BLANK SCREEN.

PROCEDURE DIVISION.

            MULAI.

                        DISPLAY (, ) “MASUKKAN ANGKA DIBAWAH 10 :”.

                        ACCEPT NILAI.

                        PERFORM CETAK

                        VARYING I FROM 1 BY 1 UNTIL I > NILAI.

                        AFTER J FROM 1 BY 1 UNTIL J > I.

            SELESAI.

                        STOP RUN.

            CETAK.

                        DISPLAY (, ) J “ “.

                        IF I = J DISPLAY SPACE.