Pencarian

Selasa, 13 Oktober 2009

Bentuk Data

Pada bahasa pemrogranan COBOL, bentuk data dibagi menjadi dua, yaitu :

1. Data Variable
2. Konstanta


1. Data variabel
Data variabel adalah data yang nilainya dapat berubah didalam program. Nilai data ini akan selalu berubah bila dibaca nilai data yang lain dengan nama data yang sama.

2. Konstanta
Konstanta atau data konstanta adalah bentuk dari data yang dibutuhkan untuk pengolahan dimana nilai datanya tidak tergantung dari input yang dibaca. Ada 3 bentuk dari konstanta yang dapat dipakai dalam PROCEDURE DIVISION pada program COBOL, yaitu Numeric Literal, Non Numeric Literal, dan Figurative Constant.



2.1 Numeric Literal
Aturan penggunaan literal numerik :
1. Panjang maksimum 18 digit.
2. Boleh ada tanda plus atau minus yang letaknya pada posisi terkiri tanpa ada spasi dengan angka pertama.Bila tidak bertanda berarti bernilai positif.
3. Boleh ada titik desimal dimana saja kecuali pada posisi terkanan.


2.2 Non-Numeric Literal
Adalah konstanta yang digunakan bukan untuk operasi arithmatika. Aturan penggunaan literal bukan numerik :
1. Panjang maksimum 120 karakter
2. Boleh terdiri dari kumpulan karakter (Character set) kecuali karakter petik.
3. Dibatasi tanda petik pada awal dan akhir.


2.3 Figurative Constant
Figurative constant termasuk dalam COBOL reserved word yang mempunyai maksud tertentu yang namanya sudah dikenal oleh compiler. Contoh :
ZERO, ZEROS, ZEROES berarti nilai nol
SPACE,SPACES berarti nilai 1 blank atau spasi
QUOTE, QUOTES berarti tanda petik

User Defined Word pada COBOL

Programmer dapat membentuk kata-kata untuk membuat dan mendefinisikan tersendiri untuk pemberian nama pada:

1.Nama-program (program-name) adalah suatu nama yang diberikan untuk menunjukkan identitas dari program yang dibuat, dituliskan pada paragraph PROGRAM-ID dalam IDENTIFICATION DIVISION.

2.Nama-alat (mnemonic-name) adalah nama yang dibuat oleh programmer untuk menunjukkan suatu alat tertentu. Dibentuk pada paragraph SPECIAL-NAMES dalam ENVIRONMENTDIVISION.

3.Nama-file (file-name) adalah nama yang dibuat untuk menunjukkan suatu file tertentu yang dipergunakan dalam program. Dibentuk pada paragraph FD (File Description) dalam DATA DIVISION atau pada statement CLOSE< OPEN< READ dalam PROCEDURE DIVISION.

4.Nama-record, pada COBOL, record harus diberi nama-record (Record-name) pada DATA RECORD clause dan pada record description entry dalam DATA DIVISION.

5.Nama-data (data-name) adalah nama yang dibuat untuk menunjukkan suatu data item yang dipergunakan dalam program. Dibentuk pada FILE SECTION di record description entry dalam DATA DIVISION dan pada WORKING-STORAGE SECTION.

6.Nama-indek dan nama-data-indek, digunakan untuk data pada tabel yang di-indek. Dibentuk secara implisit dengan OCCURS dan INDEXED BY clause. Nama-data-indek didefinisikan dengan mengunakan USAGE IS INDEX dalam DATA DIVISION.

7.Nama-kondisi (condition-name) adalah nama data yang dihubungkan dengan suatu nilai tertentu. Didefinisikan dalam DATA DIVISION dengan level number 88 dan dioperasikan dalam PROCEDURE DIVISION pada statement IF.

8.Nama-prosedur (procedure-name) atau nama-paragraph (paragraph-name) adalah nama yang menunjukkan suatu paragraph dalam PROCEDURE DIVISION. Nama-paragraph diperlukan bila proses akan melompat ke paragraph tertentu dengan menggunakan statement GO TO dan PERFORM dalam PROCEDURE DIVISION.

9.Nama-seksi , pada PROCEDURE DIVISION, dapat dibuat menjadi beberapa seksi dan tiap seksi dapat dibentuk dengan dimulai judul seksinya yang disebut dengan Section-name.

10.Nama-kualifikasi bila nama-data atau nama-kondisi tidak unik (ada yang sama satu dengan yang lain), untuk menentukan yang mana yang akan digunakan, dapat digunakan qualifier.

Bahasa pemrograman COBOL

COBOL (Common Business Oriented Language) adalah suatu bahasa komputer awam ( High Level Language) yang berorientasi langsung pada permasalahan bisnis. COBOL hampir dapat digunakan pada semua komputer bila terdapat compiler COBOL-nya. Diciptakan pada tahun 1959 dan dikembangkan oleh suatu grup bernama CODASYL (Conference on Data System Language).

Diperkenalkan pertama kali secara formal pada bulan Januari 1960. COBOL mempunyai banyak versi, sehingga untuk mempermudah penggunanya COBOL terus dikembangkan dan distandarisasi pada tahun 1968 dan 1974, diberi nama ANSI COBOL (American National Standard Institute COBOL)


Struktur Program COBOL

Program COBOL dibagi kedalam 4 bagian yang disebut dengan Division. Masing-masing divisi dimulai dengan judul divisi dengan urutan sbb:

IDENTIFICATION DIVISION
ENVIRONMENT DIVISION
DATA DIVISION
PROCEDURE DIVISION


Masing-masing divisi dapat terdiri dari urutan-urutan susunan bagian. Tersusun secara hirarki, yang secara umum;

Division
Region
Section
Paragraph
Sentence/Entry
Statement/Clause
Phrase/Option



Istilah Region, sentence, statement dan phrase/option digunakan pada PROCEDURE DIVISION, sedangkan istilah Entry dan clause digunakan pada ke-3 divisi lainnya.



Division, merupakan bagian utama dari suatu program COBOL dan selalu di awali dengan judul divisi.

Region, merupakan suatu kumpulan bagian tertentu dalam PROCEDURE DIVISION.

Section, merupakan suatu kumpulan dari paragraph atau entry dan selalu diawali denga judul seksi.

Paragraph, merupakan suatu grup dari kalimat (sentences) didalam PROCEDURE DIVISION dan selalu diawali dengan nama/ judul Paragraph.

Entry, merupakan sesuatu yang harus dituliskan pada tempat-tempat tertentu didalam program COBOL. Suatu entry dapat juga dikatakan sebagai suatu set (kumpulan) dari clause (anak kalimat) yang diakhiri dengan titik.

Sentence, merupakan kumpulan dari satu atau lebih statement, dan harus diakhiri dengan tanda titik.

Clause, merupakan kumpulan dari kata yang membentuk suatu arti. Clause adalah bagian dari entry.

Statement, merupakan perintah pengerjaan untuk komputer. Statement dalam bentuk kata kerja yang merupakan COBOL Reserved Words.

Phrase, Suatu group kata yang merupakan bagian dari statement atau clause.


Option, kebanyakan Phrase adalah optional (boleh disertakan/tidak) maka, sering disebut dengan Option.



Syarat Pemberian nama :

1. Gabungan dari huruf A-Z atau a-z, angka 0-9, Hypen (-).
2. Panjang maksimum 30 karakter.
3. Paling sedikit harus mengandung 1 huruf.
4. tidak boleh mengandung karakter khusus kecuali hypen yang diletakkan ditengah-tengah, tidak boleh diawal atau diakhir.
5. Tidak boleh mengandung COBOL reserved word.
6. Tidak boleh ada blank atau spasi.


Hari yang aneh,,dan takkan terlupakan.

Suatu jum’at yang takkan pernah gue lupain seumur idup, karna pada hari itu ada kejadian yang bisa dibilang sedih, ngeselin tapi ada lucunya juga.Gue mau berbagi cerita nih ama kalian semua para pembaca.Langsung aje nih;


Kejadian ini terjadi pada hari jum’at pagi waktu gue kelas 2 SMA dulu, gak tau tadi malem mimpi apa gue koq bisa kejadian ini bisa terjadi.Jadi waktu pagi-pagi hari jum’at ntu gue berangkat kesekolah nah tiba-tiba pas nyampe gerbang sekolah perut gue mendadak sakit benget, langsung gue gue kekelas buat naro tas abis ntu lari ke toilet.Sebenernya pas gue naro tas dikelas ntu waktu imtaq udah dimulai tapi berhubung panggilan alam apa boleh buat daripada nahan mules dikelas ntar malah bikin perut gue tambah sakit trus kentut-kentut mulu, kan bahaya kalo kelas gue bom atom pake kentut ntar orang sekelas bisa teler kebauan, maklum tadi malem abis makan pete ama sambel.


Nah pas saya lagi didalem wc niy, diluar sana ada suara orang-orang berisik banget ane kaga tau ntu orang lagi pada ngapain udah gitu asep rokok menyebar keseluruh ruangan mungkin mereka pada cabut waktu imtaq,nah disini niy awal mula kejadian ntu.Seiring waktu berlalu tiba-tiba terdengar suara seorang laki-laki masuk ke ruangan toilet sambil berkata “kalian pada ngapain disini ini kan waktu nya imtaq ,sekarang masuk kekelas masing-masing” seketika suasana jadi sepi tinggallah gue dan tetangga sebelah yang lagi buang air juga, kemudian si bapak tadi ngetuk-ngetuk pintu wc dan gue bilang “ntar dulu keq perut saya mas masih mules niy” ,tapi kaga tau deh suara gue tadi didenger ama dia apa ngga ,terus sesaat kemudian eh dia malah lebih kenceng lagi ngetuk nya dan memanggil orang-orang yang lagi ada didalem wc, yaudah gue langsung bersih-bersih dan keluar.Alangkah terkejutnya pas gue keluar dari wc ternyata orang yang dari tadi ada diluar dan nyuruh orang berisik pada masuk itu Pak Kepsek (kepala sekolah,pen) “wah kayak nya bakalan ribet niy urusan”,pikir ane daleh hati.Segera gue menghampiri dia ,lalu dia bertanya pada gue;

Kepsek : sedang apa kamu didalam,kenapa waktu saya panggil tidak cepat keluar.

Irul :maaf pak tadi saya lagi BAB jadi saya ngga bisa nyamperin bapak(dengan nada santai)

Kepsek :(dengan nada yang lebih tinggi dia berkata)jangan bohong kamu, kamu merokok kan didalam dan lagi pula ini waktunya imtaq.

Irul :pak ,jujur yah saya didalam tadi sedang BAB, dan saya tidak merokok tadi saya sudah kekelas dan bilang sama teman kalo saya mau ke toilet, jawab ane serius.

Kepsek ; lalu kenapa diruangan ini asap rokok asap rokok sangat tercium, dan banyak puntung rokok dilantai ?

Irul : “wah niy pasti kerjaan orang-orang tadi , huuh kurang ajar gara-gara kalian ane jadi dituduh”, ucap gue dalem hati.Pak demi Allah saya berani sumpah kalo saya tidak merokok dan semua puntung itu bukan bekas saya,jawab saya sedikit tegas( yaiyalah, enak aja gue dituduh ngerokok boro-boro ngrokok dari mulai gue dilahirin kaga pernah gue ngerokok).Yang bikin gue tambah gergetan orang yang tadi buang air disebelah gue ntu dia diem aja padahal kan dia juga kena tuduhan ”iiih bego banget siy niy orang dah tau lagi dituduh yang bukan-bukan eh malah diem aje” , beladiri dong, enak aje loe gue daritadi turut ngebelain diri loe juga tapi loe bengong aje kaya ayam belom makan pagi”, gerutu gue dalam hati.

Kepsek : (agak emosi) sekarang kamu berdua ikut saya keruang kepsek !.

irul : tapi pak saya tidak merasa bersalah tolong bapak percaya saya berani sumpah, ujar gue membela diri.

Kepsek : diam kamu jangan banyak bicara nanti saya tampar kamu, jawab nya dengan emosi(maklum orang udah tua, bawaan nya marah mulu)


Akhirnya kami ikut keruang kepsek, tak sedikit pun ada rasa takut dalam diri gue walaupun tadi dia berkata mau nampar gue kalo banyak ngomong.Sebelum gue masuk keruang kepsek ane bertemu beberapa orang guru yang memang telah akrab ama gue, yaudah gue aduin aje semua kejadian tadi sama mereka.Mereka bilang “kenapa bisa jadi begini,irul kami kenal karakter kamu seperti apa dan tidak mungkin kamu melakukan kesalahan ini” dan gue jelaskan kepada mereka akar persoalannya “saya juga sudah bilang sama kepsek kalo saya ngga melakukan hal yang dia tuduhkan, tapi dia marah dan mau tampar saya Bu, bu saya minta ibu bantu saya” jelas saya pada mereka.Alhamdulillah mereka mau bantu ane kalo gue ngga bisa nyelesaiin masalah ini dan berkata “nak kami percaya kalo kamu tidak bersalah karena kami kenal kamu orangnya seperti apa”, jujur gue amat terharu mendengar apa yang dikatakan beliau.

Satu jam sudah berlalu kami terus diinterogasi ama kepsek diruangannya, dan akhirnya mungkin dia percaya dengan pembelaan gue, lalu dia bilang “kalo begitu tolong kamu sekarang baca Kitab AlQur’an, karena kamu tidak ikut imtaq tadi”. Segera saya mengambil AlQur’an dan membacanya, dengan nada yang lirih dan memelas gue baca AlQur’an di depan beliau, dengan harapan beliau benar-benar percaya kalo saya ngga salah.Akhirnya dia bilang “sudah cukup nak” dan kami pun saling bermaafan antara saya dan kepsek saling berjabat tangan “pak saya minta maaf yang sebesar-besarnya kalo ada salah sama bapak”, ucap gue pada pak kepsek, “sama-sama nak bapak juga minta maaf“.Akhir yang mengharukan kami saling memberi maaf (kaya suasana lebaran aja yah) walaupun demikian gue tetep aje disuruh buat pernyataan kalo kejadian itu gak kan terulang dan kaga berbuat yang macem-macem “huuh katanya udah maafan tapi kenapa pake acara bikin surat pernyataan segala, akh tapi gapapa lah yang penting semua masalah udah selesai”,gerutu ane dalem hati (iih, dari tadi koq kalo menggerutu dalem hati mulu siy ?, “yaiyalah kan kalo ampe kedengeran ama kepsek ntar urusan bisa jadi runyem lagi”). Dan kepsek pun mempersilahkan gue kembali kekelas, dengan rasa gembira ane balik kekelas agak sebel juga siy abis si bego(orang yang diem aje tadi) kaga mau ngomong apa-apa sama sekali minimal membela diri keq.Tapi ternyata nasib yang kurang baik masih nemplok ama sibego, apes nya dia masih harus nyelesein urusan lagi karna menurut guru piket, sibego ntu masih ada masalah tentang pelanggaran tata tertib gitu deh.Entah lah ane hanya bisa berdoa supaya orang-orang yang nyebabin gue dituduh ama kepsek, agar mereka pada sadar karna suatu saat nanti mereka akan dapet balesan karna perbuatan mereka yang bikin orang laen jadi rugi.Tapi tadi hampir aja gue su’uzhon ama kepsek gue menyangka beliau orang yang arogan ehhh kaga tau nya dia orang nya baik hati dan mau memaafkan dan meminta maaf. Maaf ya pak gara-gara manusia kurang ajar kita jadi pada salah paham deh, mudah-mudahan hal ini gak terjadi lagi ya.
Nah udah abis deh ceritanya.

Thanx yach dah mw dengerin curhat w,,heheheh

  © Blogger template 'Ultimatum' by Ourblogtemplates.com 2008

Back to TOP