Program COBOL - Array Dimensi Tiga

-

Kodingannya :

       
1.              IDENTIFICATION DIVISION.
2.              PROGRAM-ID. dimensi3.
3.              ENVIRONMENT DIVISION.
4.              DATA DIVISION.
5.        
6.              WORKING-STORAGE SECTION.
7.              01 ws-subscript.
8.                  02 subscript-cabang PIC 9.
9.                  02 subscript-bulan PIC 9.
10.                02 cabang OCCURS 3 TIMES.
11.                   03 bulan OCCURS 3 TIMES.
12.                      04 jumlah-unit-terjual PIC 99.
13.            77 total-penjualan-cabang PIC 99 VALUE 0.
14.      
15.            PROCEDURE DIVISION.
16.            program-utama.
17.                PERFORM entry-tabel.
18.                PERFORM tampilkan-tabel.
19.                STOP RUN.
20.                
21.            isi-data-tabel.
22.                DISPLAY 'Cabang ', subscript-cabang,
23.                        ' Bulan ', subscript-bulan, ' : '.
24.                ACCEPT  ,  jumlah-unit-terjual
25.                       (subscript-cabang, subscript-bulan).
26.                DISPLAY SPACE.
27.                
28.            entry-tabel.
29.                DISPLAY 'Pemasukan data ke dalam tabel dimensi tiga: '.
30.                PERFORM isi-data-tabel
31.                       VARYING subscript-cabang FROM 1 BY 1
32.                       UNTIL subscript-cabang > 3
33.                             AFTER subscript-bulan FROM 1 BY 1
34.                             UNTIL subscript-bulan > 3.
35.      
36.            display-data-tabel.
37.                DISPLAY  ,  'Cabang ', subscript-cabang,
38.                    ' Bulan ', subscript-bulan, ' : ',
39.                    jumlah-unit-terjual (subscript-cabang, subscript-bulan).
40.                DISPLAY SPACE.
41.                ADD jumlah-unit-terjual (subscript-cabang, subscript-bulan)
42.                    TO total-penjualan-cabang.
43.                IF (subscript-bulan = 3)
44.                     DISPLAY '*** Total penjualan per cabang = ',
45.                     total-penjualan-cabang.      
46.            
47.            tampilkan-tabel.
48.                DISPLAY 'Menampilkan isi tabel berdimensi tiga : '.
49.                PERFORM display-data-tabel
50.                       VARYING subscript-cabang FROM 1 BY 1
51.                       UNTIL subscript-cabang > 3
52.                             AFTER subscript-bulan FROM 1 BY 1
53.                             UNTIL subscript-bulan > 3.


Algoritmanya :

1. Deklarasikan variabel subscript-cabang dan subscript-bulan dengan PIC 9,
variabel cabang dan bulan dengan OCCURS 3 TIMES (batas perulangan sampai 3x),
variabel jumlah-unit-terjual dengan PIC 99 dan total-penjualan-cabang dengan PIC 99 VALUE 0.

2. Pada procedure isi-data-tabel digunakan untuk menampilkan cabang ke berapa dan bulan ke berapa dengan perintah DISPLAY, kemudian ACCEPT digunakan untuk memanggil kembali nilai-nilai yang diinput sehingga muncul sesuai dengan DISPLAY yang dibuat.

3. Pada procedure entry-tabel hanya perlu memanggil procedure isi-data tabel yang sudah dibuat dengan perintah PERFORM.

VARYING subscript-cabang FROM 1 BY 1
UNTIL subscript-cabang > 3
     AFTER subscript-bulan FROM 1 BY 1
     UNTIL subscript-bulan > 3.

Maksud dari kodingan diatas adalah perintah program untuk melakukan looping sebanyak subscript-cabang satu demi satu sampai dengan subscript-cabang. Saat sudah mencapai lebih dari 3, maka program akan me-looping subscript-bulan sampai 3x juga.

4. Pada procedure display-data-tabel akan memproses dari procedure entry-label yang ketika subscript-bulan melebihi dari 3 maka akan lanjut ke procedure display-data-tabel ini. Cabang dan bulan akan ditampilkan beserta hasil yang telah diinput pada variabel jumlah-unit-terjual.

 ADD jumlah-unit-terjual (subscript-cabang, subscript-bulan)
     TO total-penjualan-cabang.
 IF (subscript-bulan = 3)
      DISPLAY '*** Total penjualan per cabang = ',
      total-penjualan-cabang.

Maksudnya adalah menambahkan jumlah-unit-terjual dengan parameter subscript-cabang dan subscript-bulan yang telah diinput sampai total-penjualan-cabang. Jika di setiap subscript-bulan sama dengan 3, maka akan ditampilkan hasil totalnya setiap 3 inputan dan totalnya akan terus bertambah sampai cabang dan bulan terakhir.

5. Pada procedure tampilkan-tabel hampir sama seperti procedure entry-tabel, yaitu lakukan PERFORM display-data-tabel disertai looping seperti sebelumnya.

6. Procedure terakhir yang digunakan adalah procedure program-utama. Di dalam procedure ini kita hanya perlu memanggil prosedure-prosedure sebelumnya menggunakan perintah PERFORM dan jangan lupa untuk mengetikkan perintah STOP RUN untuk mengakhiri program.



Comments

Post a Comment

Popular posts from this blog

Enhanced Entity Relationship Diagram (EERD)

-
Image
Apa yang anda ketahui tentang EERD dan kapan kita menggunakan Model EERD ini? EER adalah model data tingkat tinggi yang menggabungkan ekstensi ke model ER asli. Ini adalah teknik diagram untuk menampilkan konsep-konsep berikut : §  Sub Class dan Super Class §  Specialization dan Generalization §  Category §  Aggregation Konsep-konsep ini digunakan ketika datang dalam skema EER dan diagram skema yang dihasilkan disebut sebagai EER Diagram. Fitur Model EER §  EER menciptakan desain yang lebih akurat untuk skema basis data. §  Ini mencerminkan properti data dan kendala lebih tepatnya. §  Ini mencakup semua konsep pemodelan model ER. §  Teknik diagram membantu untuk menampilkan skema EER. §  Ini mencakup konsep spesialisasi dan generalisasi. §  Ini digunakan untuk mewakili kumpulan objek yang merupakan penyatuan objek yang berbeda dari jenis entitas yang berbeda. A. Sub Class dan Super Class §  Hubungan sub class dan super class memimpi...
Read more

Review Film Asimetris

-
REVIEW FILM “ASIMETRIS”             Pada awal mula film ini berlangsung, penonton telah disuguhkan dengan bencana kebakaran dan kabut asap yang terjadi di hutan Kalimantan Tengah. Semua itu tidak terjadi   bukan tanpa adanya sebab, proyek pemerintah 20 tahun silam hendak menciptakan berhektar-hektar sawah pada lahan gambut yang salah satunya sudah dibangun bendungan untuk irigasi. Namun dengan gagalnya proyek tersebut, memiliki dampak kepada masyarakat karena tidak mendapatkan ganti rugi atas perbuatan yang dilakukan oleh pemerintah. Bendungan yang dibangun tidak pernah berfungsi semestinya, masyarakat pun tidak bisa menerima begitu saja merelakan semua pohon karet dan rotan yang mengalami kerusakan tanpa adanya kompensasi. Proyek itu menyisakan saluran irigasi diatas hutan yang gundul dan gambut yang terlantar.             Dampak lain yang dirasakan oleh masyara...
Read more

Perancangan Konseptual

-
Image
Jelaskan mengapa pada tahap Perancangan Konseptual dan tahap Perancangan secara Logika, tidak tergantung pada DBMS yang akan digunakan? Karena tujuan tahap perancangan konseptual ini adalah menghasilkan skema konseptual untuk database yang tidak tergantung pada sistem manajemen database yang spesifik. Penggunaan model data tingkat tinggi seperti ER/EER sering digunakan didalam tahap ini. Di dalam skema konseptual dilakukan perincian aplikasi–aplikasi database dan transaksi-transaksi yang diketahui. Dan tahap perancangan secara logika memiliki 2 proses, yaitu : §  Transformasi yang tidak tergantung pada sistem, pada tahap ini transformasi tidak    mempertimbangkan karakteristik yang spesifik atau hal-hal khusus yang akan    diaplikasikan pada sistem manajemen database. §  Penyesuaian skema ke sistem manajemen database yang spesifik, dilakukan suatu    penyesuaian skema yang dihasilkan dari tahap 1 untuk dikonfirmasikan pada bentuk ...
Read more