Perform 4 with COBOL

Perform 4 dengan menggunakan VARYING statement.

Coding :    

       IDENTIFICATION DIVISION.
       PROGRAM-ID. PERFORM4.
       AUTHOR. AMJAD.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       77 I PIC 99 VALUE 0.
       PROCEDURE DIVISION.
       AWAL.
           PERFORM TAMPILKAN VARYING I FROM 1 BY 1 UNTIL I>10.
           DISPLAY 'GUNADARMA'.
           STOP RUN.
       TAMPILKAN.
           DISPLAY I.

Kemudian compile programnya:

Dan hasil outputnya seperti gambar dibawah ini :