COBOL : Level Number, Picture Editing, dan Picture Clause

Fungsi dan Penggunaan Level Number, Picture Editing, dan Picture Clause

Oleh: Fahrorozi

Level number suatu nilai integer yang menunjukan jenjang dari data

item dalam suatu record, Makin besar nilai integer, makin rendah

tingkatannya. Berikut ini level number pada bahasa pemrograman COBOL

:

a. Level number 01 digunakan sebagai awal dari record (nama

record).

b. Level number 02 sampai dengan 49 digunakan untuk mengisi

keterangan dari record, anda memilih bebas memilih salah satu

angka antara 02 sampai 49, tetapi sebaiknya memilihnya secara

berurut agar program lebih mudah dibaca.

c. Level number 66 digunakan untuk untuk RENAMES

d. Level number 77 digunakan untuk menyatakan variable

independent (berdiri sendiri), hanya ada WORKING-STORAGE

SECTION.

e. Level number 88 digunakan untuk variable pilihan atau kondisi.

3. Picture Clause Dan Editing.

3.1 Picture Clause

BU: variable PIC / PICTURE karater

Berguna untuk menentukan jenis tipe data untuk variable saja, tetapi

dapat juga digunakan untuk menampilkan bentuk data output. Berikut ini

Picture Clause yang digunakan dalam bahasa COBOL :

_ Picture karakter 9

Digunakan untuk menyimpan data dalam bentuk numeric,

sedangkan untuk menentukan jumlah data yang disimpan

ditentukan oleh banyaknya 9 yang anda ketik setelah perintah PIC ,

perhatikan contoh !

HARGA PIC 9999. _ berarti variable harga memiliki 4 digit (posisi)

angka numeric, tetapi anda dapat juga menyingkatnya dengan

menggunakan tanda kurung “( )”, sehingga menjadi :

HARGA PIC 9(4).

_ Picture karakter A.

Digunakan untuk menyimpan data dalam bentuk alphabetic dan

bersifat rata kiri.. Ketentuan jumlah karakter untuk Picture karakter

A sama dengan ketentuan jumlah karakter Picture karakter 9.

_ Picture karakter X.

Digunakan untuk menyimpan data dalam bentuk alphanumeric atau

campuran huruf, angka dan special karakter. Bersifat rata kiri.

_ Picture karakter V.

Digunakan untuk jumlah digit dibelakang koma untuk bilangan

decimal, jadi picture karakter jenis ini hanya bisa digunakan

bersama picture karakter 9.

Contoh :

02 HARGA PIC 999V99 _ 234.50 _5 digit dan 2 digit belakang

koma.

02 HARGA PIC 9(4)V9(3) _4654.125 _ 7 digit dan 3 digit

belakang koma.

_ Picture Karakter P.

Digunakan bersama dengan picture karakter V, digunakan untuk

menimbulkan angka 0, picture karakter ini jarang digunakan.

Contoh :

02 HARGA PIC 9PPV _ 500.

_ Picture Karakter S.

Digunakan untuk memberi tanda minus (-), karena bila digunakan

picture karakter 9 nilai default yang ditampilkan hanya nilai positif

walaupun hasil dari perhitungan adalah negatif. Jadi dengan picture

karakter ini anda dapat menampilkan nilai negatif. Perlu diingat

bahwa penggunaan pic karakter s tidak menambah jumlah digit.

Contoh :

02 SALDO PIC S99 _-25 _ tetap 2 digit.

3.2. Picture Editing.

Sebelum membahas picture editing, ada baiknya kita tahu

perbedaan picture clause dan picture editing. Pebedaan picture clause

dan picture editing adalah :

Pada picture clause digunakan untuk memberikan informasi pada compiler

COBOL mengatur memori untuk data yang disimpan dan akan digunakan

kemudian, sedangkan picture editing digunakan untuk melakukan

perubahan bentuk data yang akan dicetak untuk output, agar lebih mudah

dibaca.

Catatan :

Picture editing tidak dapat digunakan langsung sebagai variable penerima,

seperti halnya picture clause.

Berikut ini picture editing pada bahasa pemrograman COBOL.

_ Picture editing karakter Z.

Digunakan untuk menghilangkan nilai 0 didepan bilangan,

digunakan bersama picture clause 9.

Contoh :

12345 _ PIC ZZZZZ _ 12345.

0123 _ PIC ZZZZZ _ 123.

00123 _ PIC Z9999 _ 0123.

_ Picture editing karakter $.

Untuk memberikan tanda $ pada output, letaknya diujung kiri.

Contoh :

12345 _ PIC $ 99999 _ $12345.

_ Picture editing karakter (.) dan (,).

Karakter (.) digunakan untuk menunjukan letak posisi koma pada

bilangan desimal. Karakter (,) digunakan untuk memberi bentuk

koma, biasanya digunakan untuk menyatakan nilai uang.

Contoh :

123.45 _ PIC 999.99 _ 123.45

_Picture editing karakter “-“

Jika anda menggunakan picture editing jenis ini maka bilangan

akan dicetak minus, bila bernilai negatif , tetapi bila bernilai positif

akan diganti dengan blank.

Contoh :

12345 _ PIC –9(5) _ 12345

_Picture editing karakter “+”

Digunakan untuk memberikan tanda plus pada permulaan atau

pada bagian akhir dari suatu bilangan. Jika nilai yang diberikan

bernilai negatif (-) maka akan ditampilkan minus, tetapi jika nilai

yang diterima adalah positif maka akan ditampilkan tanda positif

(+).

_ Picture editing karakter DB dan CR.

Untuk memberikan akhiran DB atau CR pada suatu bilangan,

biasanya digunakan untuk aplikasi akuntansi.

Contoh :

12345 _ PIC 9(5)CR _ 12345CR

_ Picture editing karakter B.

Digunakan untuk menyisipkan blank pada posisi karakter B itu ada,

untuk mengedit nilai data bukan numeric.

Contoh:

123456 _ PIC 99B9B999 _ 12 3 456

_Picture editing karakter “*”

Digunakan untuk mengganti nilai 0 pada suatu bilangan dengan tanda *

Contoh :

123_ PIC **999 _**123

_ Picture editing karakter 0.

Digunakan untuk menyisipkan karakter 0 dimana karakter 0 itu berada.

Contoh :

12345 _ PIC 9(5)0 _ 123450

_ Picture editing karakter “/”.

Digunakan untuk menyisipkan tanda “/” ada posisi karakter “/”berada.

Contoh :180260 _ PIC 99/99/99 _ 18/02/60