ARRAY PADA COBOL

Definisi Array pada Cobol

Salah satu struktur data yang teramat penting adalah array atau larik. Array merupaka bagian dasar, yang disebut blok, berguna keperluan pembentukan suatu struktur data lain yanglebih kompleks. Hampir setiap jenis struktur data kompleks dapat disajikan secara logikoleh array. Kita dapat mendefinisikan array sebagai suatu himpunan hingga elemen, terurut dan homogen. Terurut, kita artikan bahwa elemen tersebut dapat diidentifikasi sebagai elemen pertama, elemen kedua, dan seterusnya sampai elemen ke-n. Sedangkan pengertian elemen yang homogen adalah bahwa setiap elemen dari sebuah array tertentu haruslah mempunyai tipe data yang sama.

macam-macam array pada cobol

• array 1 dimensi
• array 2 dimensi
• array multidimensi

Array 1 dimensi

array 1 dimensi Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses hanya melalui 1 indeks atau subskrip.

Bentuk umum array 1 dimensi

nama_array[jumlah_eleman];

Array 2 dimensi

array 2 dimensi Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses melalui 2 indeks atau subskrip yaitu indeks baris dan indeks kolom.

Bentuk umum array 2 dimensi

nama_array[jumlah_eleman_baris][jumah_eleme_kolom];

Array multidimensi

array multidimensi Merupakan sebuah variabel yang menyimpan sekumpulan data yang memiliki tipe sama dan elemen yang akan diakses melalui banyak indeks atau subskrip. Array seperti ini biasa digunakan untuk matik, array 2 dimensi juga termasuk kedalam array multidimensi.

Mendeklarasikan array :

Nama array

Range dari indeksnya

Tipe elemen-elemen datanya

Contoh Array Pada Cobol :

       IDENTIFICATION DIVISION.

       PROGRAM-ID. ARRAY-2-DIM.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

       01 VARIABEL.

           02 I PIC 9(2).

           02 J PIC 9(2).

           02 JMLBRS PIC 9(2).

           02 JMLKOL PIC 9(2).

           02 NILAI-X OCCURS 10 TIMES.

               03 NILAI PIC 9

               OCCURS 1 TO 10 TIMES DEPENDING ON JMLKOL.

       SCREEN SECTION.

       01 CLS.

           02 BLANK SCREEN.

       PROCEDURE DIVISION.

       AWAL.

           DISPLAY CLS.

           DISPLAY (1, 1) 'MASUKKAN BANYAKNYA BARIS [MAKS:10] :'

           ACCEPT ( , ) JMLBRS.

           DISPLAY (2, 1) 'MASUKKAN BANYAKNYA KOLOM [MAKS:10] :'

           ACCEPT ( , ) JMLKOL.

           MOVE 4 TO LIN.

           PERFORM ISI-DATA VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

           AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

           MOVE 4 TO LIN.

           PERFORM TAMPILKAN-DATA VARYING I FROM 1 BY 1 UNTIL I > JMLBRS

           AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

       AKHIR.

           STOP RUN.

       ISI-DATA.

           DISPLAY (LIN, 1) 'NILAI KE-[',I,',',J,'] = ',NILAI(I, J).

           ADD 1 TO LIN.

           ACCEPT ( , ) NILAI (I, J).

       TAMPILKAN-DATA.

           DISPLAY (LIN, 25) 'NILAI[',I,',',J,'] = ',NILAI(I, J).

           COMPUTE LIN = LIN + 1.

terima kasih

Sumber :

http://coretan-yoseph.blogspot.co.id/2012/11/contoh-array-2-dimensi-pada-cobol.html

https://nickhomilannisti.wordpress.com/2015/04/13/denifisi-dan-macam-macam-array-pada-cobol/