IDENTIFICATION DIVISION, ENVIRONMENT DIVISION, DATA DIVISION Komang Anom Budi Utama, SKom
[email protected]
OPERATOR ARITHMATIKA Adalah symbol yang digunakan untuk membentuk suatu ungkapan arithmatika, yaitu : Operator Arithmatika
Maksud
Jenjang
**
Pangkat
1
*
Kali
2
/
Bagi
2
+
Tambah
3
-
Kurang
3
OPERATOR RELATIONAL Operational Relational
Maksud
<
LESS THAN
Lebih kecil dari
>
GREATER THAN
Lebih besar dari
=
EQUAL TO
Sama dengan
NOT GREATER THAN
Lebih kecil atau sama
NOT >
dengan NOT <
NOT LESS THAN
Lebih besar atau sama dengan
NOT =
NOT EQUAL TO
Tidak sama dengan
Ungkapan Arithmatika Adalah kombinasi dari literal numerik, namadata, operator arithmatika, kurung buka dan
kurung
tutup. Penulisannya harus dipisahkan paling sedikit dengan sebuah blank antara literal
data dan operator arithmatika.
numerik, nama-
Identification Division Merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana. Pada divisi ini berisi keterangan mengenai program yang dibuat.
Bentuk Umum : IDENTIFICATION DIVISION PROGRAM-ID.
. [AUTHOR. .] [INSTALLATION. .]
[DATE-WRITTEN. .] [DATE-COMPILED. .] [SECURITY. <sifat_program>.]
Environment Division Berisi
dokumentasi
informasi
mengenai
peralatan
yang
dipergunakan. Divisi ini dibagi menjadi 2 section, yaitu CONFIGURATION SECTION, INPUT-OUTPUT SECTION.
Bentuk Umum : ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. [WITH DEBUGGING MODEL.] OBJECT-COMPUTER. . SPECIAL-NAMES. [ PRINTER IS ] [ DECIMAL-POINT IS COMMA ]. INPUT-OUTPUT SECTION. FILE-CONTROL. {file-control entry}.
CONFIGURATION SECTION, pada seksi ini mengenai jenis – jenis computer yang di gunakan.
ditrangkan
SOURCE-COMPUTER,
digunakan
untuk
menunjukkan
nama
komputer yang digunakan. Paragraph ini ditulis mulai dari area A yaitu kolom ke 8. Contoh : SOURCE-COMPUTER. IBM-PC. OBJECT-COMPUTER sama halnya seperti SOURCE-COMPUTER. Contoh : OBJECT-COMPUTER. IBM-PC. SPECIAL NAMES, paragraph ini bersifat optional. Digunakan untuk membuat
nama
khusus
yang
menghubungi
nama
mnemonic
implementor dengan nama mnemonic yang dibuat programmer.
SPECIAL-NAMES. [ PRINTER IS ] [ DECIMAL-POINT IS COMMA ].
PRINTER IS clause digunakan untuk menghubungkan nama mnemonik yang dibuat oleh programmer dengan alat pencetak printer yang nantinya akan berhubungan dengan statement
DISPLAY yang menggunakan
UPON pada PROCEDURE DIVISION.
CURRENCY SIGN IS clause menunjukkan tanda mata uang yang digunakan dengan default “$”. Dapat diubah menjadi karakter lain kecuali karakter 0-9, A, B, C, D, L, P, R, S, V, X, Z, blank, *, +, -, koma, titik, (,) , “, /, dan = (termasuk Cobol
Reserved Word). Berhubungan dengan PICTURE pada WORKING-STORAGE SECTION yang terdapat pada DATA DIVISION . Contoh : SPECIAL-NAMES. CURRENCY-SIGN IS F. DECIMAL POINT IS COMMA adalah suatu clause yang memerintahkan kepada compiler untuk merubah default decimal point yang bernilai “.” (titik) menjadi “,” (koma). Perubahan ini berhubungan juga pada WORKING-STORAGE SECTION dan PROCEDURE DIVISION.
Contoh : IDENTIFICATION DIVISION. PROGRAM-ID. UBAH-TITIK. ENVIRONMENT DIVISION. SPECIAL-NAMES. DECIMAL POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 HARGA. 02 HARGA-BAJU PIC 9999,99. PROCEDURE DIVISION. MULAI. DISPLAY ‘ MASUKKAN HARGA BAJU ? ‘. ACCEPT HARGA-BAJU. DISPLAY ‘ANDA MEMBAYAR ‘, HARGA-BAJU. SELESAI. STOP RUN.
INPUT-OUTPUT SECTION Dipergunakan
jika
dalam
pembuatan
program
mempergunakan file dengan media penyimpanan sekunder baik berbentuk disk maupun printer.
Bentuk Umum :
INPUT-OUTPUT SECTION. FILE-CONTROL. {file-control entry}.
File-Control Entry terdiri dari 3 bentuk (tergantung dari organisasi filenya), yaitu :
• Sequential File (berurut) • Indexed File (memiliki nilai kunci yang unik) • Relative File (tiap record dibedakan
berdasarkan suatu nomor record relative)
Input-Output Section Untuk Sequential File
Organisasi secara sequential adalah oganisasi file yang sifatnya urut. Jika ada data baru yang dimasukkan, maka merupakan record urutan terakhir. Bentuk Umum : INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ASSIGN TO
DISK PRINTER
ORGANIZATION IS {LINE} SEQUENTIAL ACCESS MODE IS SEQUENTIAL FILE STATUS IS .
Input-Output Section Untuk Indexed File Organisasi secara indexed adalah organisasi file yang datanya dapat diambil langsung di posisi record yang mempunyai nilai kunci tertentu yang unik. Record mempunyai nilai kunci tertemtu yang unik.
Hanya pada Disk. Bentuk Umum : INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT ASSIGN TO DISK ORGANIZATION IS INDEXED SEQUENTIAL ACCESS MODE IS RANDOM DYNAMIC RECORD KEY IS FILE STATUS IS
Input-Output Section Untuk Relative File Organisasi secara relative adalah organisai file yang tiap –tiap recordnya dibedakan suatu nomor record relative dan memungkinkan pencarian data cepat bila sudah diketahui
nomor record posisi datanya. Hanya pada Disk.
Bentuk Umumnya :
Level Number Adalah suatu nomer yang menunjukkan jenjang dari data item dalam suatu record. Makin besar nomer levelnya,
makin rendah jenjang tingkatannya.
Level Number 01 untuk mengawali keterangan dari record. Level number 02 – 49 digunakan untuk mengawali keterangan dari data item.
Contoh :
Data Division.
Working-Storage Section. 01
Data-Masukkan. 02
Nama Pic A(10).
02
Gaji. 03 Gaji-Pokok Pic 9(6). 03 Tunjangan Pic 9(6).
02 Total-Gaji Pic 9(7).
Level Number 66 untuk RENAMES Contoh :
01 Data-Masukkan. 02 Nama
Pic A(10).
02 Alamat
Pic X(15).
02 Kelas
Pic X(5).
66 Data-Pegawai Renames Nama thru Alamat.
Level number 77 untuk mengawali data item yang berdiri sendiri
Level number 88 untuk mengawali suatu nama kondisi
Contoh :
Data Division. Working-Storage Section. 01 Data-Masukkan. 02 Tanya Pic A. 88 Lagi value is ‘Y’, ‘y’. 88 Tidak value is ‘T’, ‘t’. 77 Nama Pic A(20).
Picture Clause Digunakan
untuk
menjelaskan
bentuk
data
yang
akan
dimasukkan, dan juga untuk menampilkan bentuk data output. Bentuk dari Clause ini : Picture [ is ] karakter PIC
karakter
Picture Karakter 9karakter 9 • Digunakan Menunjukkan posisi sebuah mmory hanya dapa
mengandung nilai – nilai numerik saja. •
Bersifat rata kanan (right justified)
Picture Karakter V •
Menunjukkan letak anggapan dari titik desimal.
•
Karakter ini hanya boleh ada satu dalam setiap picture.
Picture Karakter P karakter 9 •
Digunakan dengan gabungan PICTURE karakter V, yang
digunakan untuk menimbulkan angka 0.
Picture Karakter S •
Untuk memberi tanda negatif
•
Bersifat rata kiri ( Left Justified )
Picture Karakter A karakter 9 • Digunakan untuk menyimpan nilai data huruf. • Bersifat rata kiri ( left justified )
Picture Karakter X •
Menunjukkan posisi alphanumerik yang disimpan pada field.
•
Bersifat rata kiri ( Left Justified )
