Program COBOL (Common Bussiness Oriented Language) merupakan program terstruktur. Struktur utama dari suatu program COBOL terdiri dari 4 DIVISI, yaitu :
IDENTIFICATION DIVISION.
(Merupakan divisi pertama
dari COBOL yang paling sederhana. Penulisan statement ini berada pada Line
1, Colom 8.)
PROGRAM-ID. HELLO.
(Merupakan identifikasi
nama program. Penulisan statement ini berada pada Line 2, Colom 8.)
ENVIRONMENT DIVISION.
(Merupakan divisi untuk
menunjukkan suatu alat tertentu yang digunakan programmer. Penulisan statement ini berada pada Line 3, Colom 8.)
DATA DIVISION
(Menggambarkan bentuk dan
jenis dari data input serta data outputnya. Penulisan statement
ini berada pada Line 4, Colom 8.)
WORKING-STORAGE SECTION
(Merupakan section yang
digunakan untuk mendeklarasikan variabel dan tipe data yang
digunakan dalam program COBOL. Penulisan statement ini berada pada Line 5, Colom 8.)
SCREEN SECTION.
(Berguna untuk membuat
format layer baik untuk input maupun output serta juga berhubungan dengan perintah DISPLAY dan ACCEPT pada PROCEDURE DIVISION. Penulisan statement ini berada pada Line 6, Colom 8.)
01 CLS.
02 BLANK SCREEN.
(Perintah agar saat program
diajalankan maka layar akan menjadi kosong/blank. Penulisan statement
ini berada pada Line 7, Colom 8 untuk 01
CLS. dan berada pada line 8, colom 12 untuk 02 BLANK SCREEN.)
PROCEDURE DIVISION.
(Menggambarkan prosedur yang digunakan untuk
menyelesaikkan permasalahan dalam bentuk dan jenis data yang ada pada DATA DIVISION. Penulisan statement ini berada pada Line 9, Colom 8.)
MULAI.
(Perintah untuk memulai program. Penulisan statement ini berada pada Line 10, Colom 8)
DISPLAY CLS.
(Perintah untuk menampilkan perintah CLS
(kosongkan layar). Penulisan statement ini berada pada Line 11, Colom
12.)
DISPLAY '\(^o^) HELLO WORLD (^o^)/'.
(Perintah untuk menampilakan '\(^o^) HELLO WORLD (^o^)/' pada saat program di jalankan. Penulisan statement ini berada pada Line 12, Colom 12.)
STOP RUN.
(Perintah untuk menghentikan program. Penulisan statement ini berada pada Line 13, Colom 12.)
PROGRAM II : "BIODATA"
IDENTIFICATION
DIVISION.
(Merupakan divisi pertama
dari COBOL yang paling sederhana. Penulisan statement ini berada pada Line
1, Colom 8.)
PROGRAM-ID. BIODATA.
Merupakan identifikasi nama program. Penulisan statement ini berada pada Line 2, Colom 8.)
ENVIRONMENT DIVISION.
(Merupakan divisi untuk
menunjukkan suatu alat tertentu yang digunakan programmer. Penulisan statement ini berada pada Line 3, Colom 8.)
DATA DIVISION.
(Menggambarkan bentuk dan
jenis dari data input serta data outputnya. Penulisan statement
ini berada pada Line 4, Colom 8.)
WORKING-STORAGE SECTION.
(Merupakan section yang
digunakan untuk mendeklarasikan variabel dan tipe data yang
digunakan dalam program COBOL. Penulisan statement ini berada pada Line 5, Colom 8.)
01 MHS.
02 NAMA PIC A(20).
02 NPM PIC 9(8).
02 KELAS PIC X(6).
(Digunakan untuk menjelaskan bentuk data yang di masukkan, dan juga untuk
menampilkan bentuk data output. Dalam statement diatas ada NAMA
yang memiliki variabel A
dengan panjang 20 karakter, NPM yang memiliki nilai numeric (9)
dengan panjang 8 angka, dan KELAS yang memiliki variabel X dengan
panjang 5 karakter. Penulisan statement ini berada pada Line 6,
Colom 8 untuk 01 MHS. Line 7, colom 12 untuk 02 NAMA
PIC A(20). Line 8, colom 12 untuk 02
NPM PIC 9(8). Line 9, colom 12 untuk 02
KELAS PIC X(6).)
SCREEN SECTION.
(Berguna untuk membuat
format layer baik untuk input maupun output serta juga berhubungan dengan
perintah DISPLAY dan ACCEPT pada PROCEDURE
DIVISION. Penulisan statement ini berada pada Line 10, Colom
8.)
01 CLS.
02 BLANK SCREEN.
(Perintah agar saat program
diajalankan maka layar akan menjadi kosong/blank. Penulisan statement
ini berada pada Line 11, Colom 8 untuk 01
CLS. dan berada pada line 12, colom 12 untuk 02 BLANK SCREEN.)
PROCEDURE DIVISION.
(Menggambarkan prosedur
yang digunakan untuk menyelesaikkan permasalahan dalam bentuk dan jenis data
yang ada pada DATA DIVISION. Penulisan statement ini berada pada Line 13, Colom 8.)
MULAI.
(Perintah untuk memulai
program. Penulisan statement ini berada pada Line 14, Colom 8.)
DISPLAY CLS.
(Perintah untuk menampilkan
perintah CLS (kosongkan layar). Penulisan statement ini berada pada
Line 15, Colom 12.)
DISPLAY (10, 10) 'NAMA : '.
ACCEPT NAMA.
(Perintah untuk menampilkan
'NAMA : ' pada baris ke-10 dan kolom 10 dengan membaca bentuk data NAMA yang ada pada WORKING-STORAGE SECTION. Penulisan statement
ini berada pada Line 16, Colom 12.)
DISPLAY (11, 10) 'NPM : '. ACCEPT NPM.
(Perintah untuk menampilkan
'NPM : ' pada baris ke-11 dan kolom 10 dengan membaca bentuk data NPM yang ada pada WORKING-STORAGE SECTION. Penulisan statement
ini berada pada Line 17, Colom 12.)
DISPLAY (12, 10) 'KELAS : '. ACCEPT
KELAS.
(Perintah untuk menampilkan
'KELAS : ' pada baris ke-12 dan kolom
10 dengan membaca bentuk data KELAS
yang ada pada WORKING-STORAGE SECTION. Penulisan statement ini berada pada Line 18, Colom 12.)
DISPLAY (14, 10) 'Nama Anda : ', NAMA.
(Perintah untuk menampilkan
'Nama Anda : ' pada baris ke-14 dan kolom 10 dengan membaca bentuk data NAMA yang telah di isikan pada statement baris ke-10. Penulisan statement ini berada pada
Line 19, Colom 12.)
DISPLAY (15, 10) 'NPM Anda : ', NPM.
(Perintah untuk menampilkan
'NPM Anda : ' pada baris ke-15 dan kolom 10 dengan membaca bentuk data NPM yang telah di isikan pada statement baris ke-11. Penulisan statement ini berada pada Line 20, Colom 12.)
DISPLAY (16, 10) 'Kelas Anda : ',
KELAS.
(Perintah untuk menampilkan
'Kelas Anda : ' pada baris ke-16 dan kolom 10 dengan membaca
bentuk data NPM yang telah di isikan pada statement baris ke-12. Penulisan statement ini berada pada
Line 21, Colom 12.)
SELESAI.
(Perintah untuk
menyelesaikan program yang dijalankan. Penulisan statement
ini berada pada Line 22, Colom 8.)
STOP RUN.
(Perintah untuk
menghentikan program yang di jalankan. Penulisan statement ini
berada pada Line 23, Colom 12.)
EDIT COBOL :
OUTPUT :
No comments:
Post a Comment