Program ARRAY pada Cobol

PROGRAM ARRAY SEDERHANA PADA COBOL

LISTING :

       IDENTIFICATION DIVISION.

       PROGRAM-ID. ARRAY2.

       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 , ' = '.

           DISPLAY (LIN , 18) NILAI(I, J).

           ACCEPT ( , ) NILAI(I, J).

           ADD 1 TO LIN.

       TAMPILKAN-DATA.

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

           DISPLAY (LIN , 42) NILAI(I, J).

           COMPUTE LIN = LIN + 1.

                          

IDENTIFICATION DIVISION digunakan sebagai mengidentifikasi program cobol seperti PROGRAM-ID (Nama Program) dan AUTHOR (Pembuat Program

ENVIRONMENT DIVISION, digunakan untuk memberi penjelasan kondisi komputer yang sedang dipakai, bisa berhubungan dengan alat input/output seperti printer yang terhubung, divisi ini juga bisa dipaki untuk mengatur tampilan.

DATA DIVISION digunakan untuk mengawali awalan dari record

01-  CLS

02-  BLANK LAYAR perintah menghapus layar

WORKING-STORAGE SECTION.

Merupakan salah satu section dari DATA DIVISION, untuk mendeklarasikan semua variabel picture clause dan picture editing.

01 VARIABLE. Membuat lvl number awal

     02 I PIC 9(2).

     Memberikan Variable I dengan tipe data 9(Numeric) dengan batas 2 digit

PROCEDURE DIVISION. digunakan tempat membuat instruksi statement pada cobol

MULAI.

Sub Division dari PROCEDURE DIVISION untuk memulai program.

DISPLAY CLS.

Menghapus Layar sisa program sebelumnya.

DISPLAY 'MASUKAN KODE BERUPA HURUF [D,E,J,K] ?'.

Menampilkan 'MASUKAN KODE BERUPA HURUF [D,E,J,K] ?'. jika kita jawab akan masuk ke variable JAWAB.

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

           ACCEPT ( , ) JMLBRS.

Menginput Variable JMLBRS dan menampilkan ‘Masukkan banyaknya baris Maks:10”

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

           AFTER J FROM 1 BY 1 UNTIL J > JMLKOL.

Perulangan I=1 hingga I > JMLBRS setelah itu J=I hingga J>JMLKOL.

ISI-DATA.

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

           DISPLAY (LIN , 18) NILAI(I, J).

           ACCEPT ( , ) NILAI(I, J).

           ADD 1 TO LIN.

Masuk ke PERFORM ISI-DATA dengan menginput Data setiap Kolom dan Baris

TAMPILKAN-DATA.

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

           DISPLAY (LIN , 42) NILAI(I, J).

           COMPUTE LIN = LIN + 1.

Masuk ke PERFORM TAMPILKAN-DATA dengan menampilkan data yang telah diinput.

STOP RUN.

Menghentikan program KONDISI.

Catatan :

AREA A diawali dari kolom 8-11

AREA B diawali dari kolom 12-72

Gunakan DIVISI COBOL jika diperlukan

Untuk memeriksa program cobol tidak ada kesalahan maka harus di check dengan mengetik “COBOL NAMA-FILE.COB”. Jika muncul tulisan “No errors or warnings” makan program cobol OK OK aja

Untuk menjalankan/run program ketik di cmd “RUNCOB NAMA-FILE.COB”.

OUTPUT PROGRAM COBOL