Program Looping pada Cobol

       identification division.
       program-id. loop.              
       environment division.
       data division.
       working-storage section.
       01 dataa.
           02 nilai pic 9(2) value 10.
           02 nilai1 pic 9(2) value 10.
           02 i pic 99.
           02 j pic 99.
       screen section.
       01  cls.
           02 blank screen.
       procedure division.
       mulai.
           perform cetak
           varying i from 1 by 1 until i > nilai1
           after j from 1 by 1 until j > i.
           stop run.
       cetak.
           display ( , ) j.
           if i = j display space.