COBOL : BENTUK DATA

BENTUK DATA

 Oleh : Fahrorozi

---------------------------------------------------------------------------------------------------------------

Bentuk data di bedakan menjadi 2 , yaitu  :

1. Data Variabel

2. Data konstanta

¨      Data Variabel adalah data yang nilainya dapat berubah didalam program.

      Contoh : ACCEPT NAMA_MHS.

¨      Konstanta adalah suatu data yang  nilainya tidak tergantung dari input yang dibaca (bernilai tetap).

      Contoh : MULTIPLY JAM-KERJA BY 500 GIVING GAJI-OUT.

Konstanta pada Procedure Division terbagi menjadi 3 :

Ø   Literal Numerik

Aturannya :

1.            Maksimum panjangnya 18 digit

2.            Boleh ada tanda plus pada posisi terkiri tanpa ada spasi dengan angka pertama. Bila tanpa tanda maka dianggap bernilai positif.

3.            Boleh ada titik desimal dimana saja kecuali pada posisi terkanan.

Contoh : -15.50, 20.5, +0.72, 9876 dst…

Ø   Literal Bukan Numerik

Konstanta yang digunakan bukan untuk operasi aritmatika.

Aturannya :

1.            Panjang maksimum 120 karakter

2.            Boleh terdiri dari kumpulan karakter kecuali karakter petik.

Contoh : ‘KA12’

Ø   Figurative Constant

Termasuk dalam Cobol Reserved Word (kata yang telah dikenal oleh kompiler).

Contoh : ZERO. Digunakan pada Procedure Division. Move Zero TO Jumlah. Artinya memberikan nilai 0 pada Jumlah.

¨           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 >	NOT GREATER THAN	Lebih kecil atau sama dengan
NOT <	NOT LESS THAN	Lebih besar atau sama dengan
NOT =	NOT EQUAL TO	Tidak sama dengan

¨           UNGKAPAN ARITHMATIKA

         Adalah kombinasi dari literal numerik, nama-data, operator arithmatika, kurung buka            dan kurung tutup.

         Penulisannya harus dipisahkan paling sedikit dengan sebuah blank antara literal         numerik, nama-data dan operator arithmatika.

         Contoh :

Maksud	Penulisan
A + B	A + B
A + B C + D	( A + B ) / ( C + D )
A2 (B + C ) 3	A * * 2 / ( B + C ) * * 3

Ungkapan arithmatika banyak digunakan pada verb COMPUTE ( lihat bab 12 )

 IDENTIFICATION DIVISION adalah merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana.

Pada divisi ini berisi keterangan mengenai program yang dibuat.

Contoh :

            IDENTIFICATION DIVISION.

            PROGRAM-ID. CONTOH1.

            AUTHOR. RANI.

            INSTALLATION. GUNADARMA.

            DATE-WRITTEN.17-09-2006.                                       

            DATE-COMPILED. 17-09-2006.

            SECURITY. RAHASIA.      

ENVIRONMENT DIVISION dalam program cobol sebagai divisi ke-2. Berisi dokumentasi informasi mengenai peralatan yang dipergunakan. Divisi ini dibagi menjadi 2 section, yaitu CONFIGURATION SECTION, INPUT-OUTPUT SECTION.

Ditulis pada area A, kecuali yang terdapat pada paragraph SPECIAL-NAMES dan FILE-CONTROL (pada area B).

Penjelasan :

¨      CONFIGURATION SECTION, pada seksi ini ditrangkan mengenai jenis – jenis computer yang di gunakan.

¨      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.

¨      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.

 

¨    INPUT-OUTPUT SECTION dipergunakan jika dalam pembuatan program mempergunakan file dengan media penyimpanan sekunder baik berbentuk disk maupun printer.

¨    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 bdsr s/ no. rec. 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.

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 yng unik.

à Record mempunyai nilai kunci tertemtu yang unik.

à Hanya pada Disk.

Input-Output Section Untuk Relative File

Organisasi secara relative adalah organisai file yang tiap –tiap recordnya dibedakan dengan suatu nomor record relative dan memungkinkan pencarian data cepat bila sudah diketahui nomor record posisi datanya.

 à Hanya pada Disk.