Snippet

Program COBOL | Penjumlahan

       identification division.
       program-id. hitungan.
       author. dan prihono.
       data division.
       working-storage section.
       77 angka pic 9(5).        
       77 angka2 pic 9(5).
       77 hasil pic 9(5).
       screen section.
       01 hapus.
           02 blank screen.
       01 masukan.
           02 line 1 column 1 value 'angka:'.
           02 column plus 2 pic z(5) to angka.
           02 line 2 column 1 value 'angka:'.
           02 column plus 2 pic z(5) to angka2.
       01 keluaran.
           02 line 5 column 1 value 'hasil:'.
           02 column plus 2 pic z(5) from hasil.
       procedure division.
       mulai.
           display hapus.
           display masukan.
           accept masukan.
       compute hasil = angka + angka2.
           display keluaran.
           stop run.