Contoh PERFORM – VARYING 2 Pada Cobol

IDENTIFICATION DIVISION.
PROGRAM-ID. ulang4.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 bilangan PIC 99.
PROCEDURE DIVISION.
Program-utama.
PERFORM Cetak-bilangan
VARYING bilangan FROM 0 BY 2
UNTIL bilangan > 10.
STOP RUN.
Cetak-bilangan.
DISPLAY bilangan.

Hasil eksekusi :

00
02
04
06
08
10