latih10

       IDENTIFICATION DIVISION.
       PROGRAM-ID. dimensi3.
       ENVIRONMENT DIVISION.
       DATA DIVISION.

       WORKING-STORAGE SECTION.
       01 ws-subscript.
           02 subscript-cabang PIC 9.
           02 subscript-bulan PIC 9.
           02 cabang OCCURS 3 TIMES.
              03 bulan OCCURS 3 TIMES.
                 04 jumlah-unit-terjual PIC 99.
       77 total-penjualan-cabang PIC 99 VALUE 0.

       PROCEDURE DIVISION.
       program-utama.
           PERFORM entry-tabel.
           PERFORM tampilkan-tabel.
           STOP RUN.

       isi-data-tabel.
           DISPLAY 'Cabang ', subscript-cabang,
                   ' Bulan ', subscript-bulan, ' : '.
           ACCEPT  ,  jumlah-unit-terjual
                  (subscript-cabang, subscript-bulan).
           DISPLAY SPACE.

       entry-tabel.
           DISPLAY 'Pemasukan data ke dalam tabel dimensi tiga: '.
           PERFORM isi-data-tabel
                  VARYING subscript-cabang FROM 1 BY 1
                  UNTIL subscript-cabang > 3
                        AFTER subscript-bulan FROM 1 BY 1
                        UNTIL subscript-bulan > 3.

       display-data-tabel.
           DISPLAY  ,  'Cabang ', subscript-cabang,
               ' Bulan ', subscript-bulan, ' : ',
               jumlah-unit-terjual (subscript-cabang, subscript-bulan).
           DISPLAY SPACE.
           ADD jumlah-unit-terjual (subscript-cabang, subscript-bulan)
               TO total-penjualan-cabang.
           IF (subscript-bulan = 3)
                DISPLAY '*** Total penjualan per cabang = ',
                total-penjualan-cabang.

       tampilkan-tabel.
           DISPLAY 'Menampilkan isi tabel berdimensi tiga : '.
           PERFORM display-data-tabel
                  VARYING subscript-cabang FROM 1 BY 1
                  UNTIL subscript-cabang > 3
                        AFTER subscript-bulan FROM 1 BY 1
                        UNTIL subscript-bulan > 3.