LAPORAN AKHIR ARRAY PADA COBOL

OUTPUT : 

Logika :

Cobol itu tersendiri adalah bahasa pemrograman tingkat tinggi. Cobol tersendiri dibagi struktur bahasa pertiap divisinya yaitu :

Identification division, environment division, data division dan procedure division. Kalau tidak ada semua struktur divisi ini bias dibilang program cobol ini tidak dapat berjalan, jadi tidak sembarangan orang membuat codingan yang harus teliti pertiap baris dan kolom, cobol tersendiri memiliki beberapa syarat variable yaitu max 30 karakter, minimum ada satu alphabet, tidak boleh ada special karakter, tidak ada blank spack, dan cobol reserver word, harus alphanumeric, dan no hypen.

Penulisan dalam cobol tersendiri dibagi berbeda beda, seperti kolom 1-6 yaitu nomor urut (optional) (999,999), kolom 7 yaitu hypen, /, D, *, kolom 8 – 11 yaitu area A berdivisi dan level number, kolom 12-72 yaitu area B kodingan , kolom 73 – 80 yaitu dokumentansi.

Jadi dalam cobol itu adalah program terstruktur dimana itu dibagi persetiap bagian. Struktur Sub dibagi seperti dari atas yaitu, division, region, section, paragraph, sentence, statement, phrase.

Cobol tersendiri dijalankan melalui run, dan cmd, dimana program cobol ini sungguh rumit.

Pengakhiran dalam kodingan cobol selalu diakhiri dengan tanda “ . “

Cobol juga berpengaruh pada kolom dan baris, jika salah penempatan akan berpengaruh.

Pengejeaan sangatlah penting dimana huruf capital dan kecil berpengaruh pada codingan, dan jangan lupa untuk tidak TYPO.

Program Cobol ARRAY

IDENTIFICATION DIVISION atau nama lain adalah identitas program cobol ini. Ini bagian struktur pertama dalam cobol, seperti memulai programnya diawali dengan identification/ identifikasi atau Informasi mengenai identitas program (nama program, sipembuat, tanggaldibuat, tanggal dikompilasi, danlainnya.). Program-ID. Program id menjelaskan bahwa merupakan reserve word dan nama program yang diberi nama programnya ARRAY(program-name) adalah suatu nama yang diberikan untuk menunjukkan identitas dari program yang dibuat, dituliskan pada paragraph PROGRAM-ID dalam struktur IDENTIFICATION DIVISION.

AUTHOR atau disebut sebagai yang punya atau owner, dan ANDREAS sebagai saya sendiri adalah nama owner, didalam struktur IDENTIFICATION DIVISION.

ENVIROMENT DIVISION. Divisi ini menyediakan informasi mengenai peralatan yang digunakan atau disebut INPUT / OUTPUTnya program ini.

DATA DIVISION. Informasi mengenai bentuk, jenis dari data apa saja yang dipergunakan dalam program bersangkutan.

WORKING-STORAGE SECTION

Mempunyai maksud pemesanan tempat di internal memori (STORAGE) yang diperlukan

oleh pekerjaan (WORKING) proses program

01 VARIABEL. Berarti 01 digunakan untuk mengawali keterangan dari record (record description). untuk menu dalam penginputan di memorinya dalam sub pertama diberi nama VARIABEL.

02 I PIC 9(2). digunakan untuk mengawali keterangan dari data item. Picture karakter 9

Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 sebanyak 2 yang digunakan. Dengan variable I

02 J PIC 9(2). digunakan untuk mengawali keterangan dari data item. Picture karakter 9

Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 sebanyak 2 yang digunakan. Dengan variable J

02 JMLBRS PIC 9(2). digunakan untuk mengawali keterangan dari data item. Picture karakter 9

Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 sebanyak 2 yang digunakan. Dengan variable JMLKOL / JUMLAH BARIS .

02 JMLKOL PIC 9(2). digunakan untuk mengawali keterangan dari data item. Picture karakter 9

Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 sebanyak 2 yang digunakan. Dengan variable JMLKOL / JUMLAH KOLOM.

02 NILAI-X OCCURS 20 TIMES. digunakan untuk mengawali keterangan dari data item dengan nilai-x occurs sendiri adalah file indeks/ data indeks dalam secara berurutan sebanyak 20 kali.

03 NILAI PIC 9 digunakan untuk mengawali keterangan dari data item. Picture karakter 9

Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 sebanyak yang digunakan. Dengan variable NILAI.

OCCURS 1 TO 10 TIMES DEPENDING ON JMLKOL. Pada pemanggilan data indeks dari 1 sampai 10 hingga terbagi sampai jumlah kolom tidak tersisa.

SCREEN SECTION. berguna untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data atau memasukkan data.

01 CLS. Fungsi yang memerintahkan untuk membersihkan layar pada data.

02 BLANK SCREEN. Hampir sama dengan cls, tapi ini jelas adalah fungsi untuk yang menjalankan membersihkan layar untuk data.

PROCEDURE DIVISION. Merupakan inti dari pemrograman COBOL.

MULAI. Awal menjalankan program / start.

DISPLAY CLS. Memunculkan perintah cls, dan yg berfungsi pertama kali untuk

DISPLAY (1, 1) 'MASUKKAN BANYAKNYA BARIS : ' mencetak output pada baris 1 dan kolom 1 display cobol, yaitu dengan mencetak “masukkan banyaknya baris yang di input.

ACCEPT (, ) JMLBRS. Menerima perintah dari jmlbrs data yang di input tersebut.

DISPLAY (2, 1) 'MASUKKAN BANYAKNYA KOLOM : ' mencetak output pada baris 2 dan kolom 1 display cobol, yaitu dengan mencetak “masukkan banyaknya kolom yang di input

ACCEPT (, ) JMLKOL. Menerima perintah dari jmlkol data yang di inpute tersebut

MOVE 1 TO COL. Lalu berpindah 1 kolom

MOVE 4 TO LIN. Berpindah 4 baris

PERFORM ISI-DATA Mencetak atau menampilkan atau bisa disebut membawa proses pada data statement ISI DATA.

VARYING I FROM 1 BY 1 UNTIL I > JMLBRS ada varying i dari 1 dan sebagainya JMLBRS biasa, i itu nilai pertama, atau kelipatan satu. i lebih besar dari JMLBRS dan terus berjalan, sampai berjalan.

AFTER J FROM 1 BY 1 UNTIL J > JMLKOL. setelah j dari kelipatan 1 sampai dengan 1 dengan J lebih dari JMLKOLnya.

DISPLAY CLS. Lalu membersihkan layarnya.

DISPLAY (1, 1) 'OUTPUT MATRIKS A'. mencetak pada baris 1 dan kolom 1 “OUTPUT MATRIKS A.

MOVE 2 TO LIN. Berpindah 2 baris .

PERFORM TAMPILKAN-DATA. Mencetak atau menampilkan atau bisa disebut membawa proses pada data variable NILAI dari data I dan J.

VARYING I FROM 1 BY 1 UNTIL I > JMLBRS ada varying i dari 1 dan sebagainya JMLBRS biasa, i itu nilai pertama, atau kelipatan satu. i lebih besar dari JMLBRS dan terus berjalan, sampai berjalan.

AFTER J FROM 1 BY 1 UNTIL J > JMLKOL. setelah j dari kelipatan 1 sampai dengan 1 dengan J lebih dari JMLKOLnya.

AKHIR. Statement selesai.

STOP RUN. Program statement sebelumnya pada cobol telah berhenti.

ISI-DATA. Statement yang digunakan untuk menampilkan dari statement perform pada perform isi data,

DISPLAY (LIN, 1) 'NILAI KE-[', I, ',', J, '] = '. Menampilkan pada baris 1 nilai data I dan J

ADD 1 TO LIN. Add itu menambah 1 pada baris.

ACCEPT (, ) NILAI (I, J). lalu menerima perintah pada data nilai variable I dan J

TAMPILKAN-DATA. Statement menampilkan TAMPILAKAN DATA pada saat fungsi perform sebelumnya.

DISPLAY (LIN, COL) NILAI (I, J), ' '. menampilkan / mencetak baris dan kolom output dari data I dan J.

ADD 2 TO COL. Add itu menambah 2 pada baris.

IF J = JMLKOL. Jika J sama dengan data indeks/ inputan data JMLKOL.

ADD 1 TO LIN. Add itu menambah 1 pada baris

MOVE 1 TO COL. Lalu berpindah 1 kolom.

MOHON UNTUK TIDAK MENJIPLAK 

LOGIKA SESEORANG 

TERIMA KASIH