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
)
