Program Sederhana COBOL : Looping

Coding :
IDENTIFICATION DIVISION.
       PROGRAM-ID. LOOPING.
       AUTHOR. JESSY.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 ANGKA PIC 99.
       01 JUMLAH PIC 99.
       PROCEDURE DIVISION.
       MULAI.
           DISPLAY ( , ) 'Masukkan Angka = ',
           ACCEPT JUMLAH.
           DISPLAY ' '.
           PERFORM TAMPILKAN
           VARYING ANGKA FROM 1 BY 1 UNTIL ANGKA = JUMLAH.
       TAMPILKAN.
           DISPLAY ANGKA.
       SELESAI.
           STOP RUN.

Output :