Contoh PERFORM – VARYING 1 Pada Cobol

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

Hasil eksekusi :

01
02
03
04
05
06