COBOL Part 3 (Level Number, Picture Clause dan Picture Editing)

Common Business Oriented Language

Level Number : 

Level Number atau nomor jenjang adalah suatu nilai yang menunjukkan jenjang dari data item dalam suatu record. Semakin besar nilainya, maka semakin rendah tingkatan jenjangnya. Level Number yang digunakan pada bahasa pemrograman COBOL :

• Level Number 01 digunakan untuk mengawali keterangan dari record (record description).
• Level Number 02 - 49 digunakan untuk mengisi keterangan dari record atau mengawali keterangan dari data item.
• Level Number 66 digunakan untuk untuk RENAMES
• Level Number 77 digunakan untuk mengawali data item yang berdiri sendiri. Hanya boleh terdapat pada WORKING-STORAGE SECTION.
• Level Number 88 digunakan untuk mengawali suatu nama kondisi.

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

Picture Clause & Picture Editing :

Bentuk Umum : nama_variabel PIC/ PICTURE karater

Picture Clause digunakan untuk menerangkan masing-masing data-item yang digunakan, mengenai ukuran dari field dan memberikan informasi dari nilai data tersebut, juga mengatur bentuk data dimemori. Picture Clause yang digunakan pada bahasa pemrograman COBOL :

• Picture karakter 9

Picture karakter 9 digunakan untuk menyimpan data dalam bentuk numeric dan bersifat right justified (rata kanan). Untuk menentukan jumlah data yang disimpan ditentukan oleh banyaknya 9 yang diketik setelah perintah PIC. 

Cotoh : 

NPM PIC 99999999. Berarti variable NPM dapat menampung 8 digit dalam bentuk angka numeric, tetapi dapat juga menyingkatnya dengan menggunakan tanda kurung "( )", sehingga menjadi : NPM PIC 9(8).

• Picture karakter A

Picture karakter A digunakan untuk menyimpan data dalam bentuk alphabetic dan bersifat left justified (rata kiri). Ketentuan jumlah karakter untuk Picture karakter A sama dengan ketentuan jumlah karakter Picture karakter 9.

Contoh : 

NAMA PIC A(20). Berarti variabel NAMA dapat menampung 20 karakter alphabetic.

• Picture karakter X

Picture karakter X digunakan untuk menyimpan data dalam bentuk alphanumeric atau campuran huruf, angka dan special karakter. Bersifat rata kiri.

Contoh : 

KELAS PIC X(5). Berarti variabel KELAS dapat menampung 5 karakter alphanumeric, misalnya 1KA28 atau 2KA23.

• Picture karakter V

Picture karakter V digunakan untuk menentukan jumlah digit dibelakang koma untuk bilangan decimal. Titik desimal tersebut tidak ditulis di memori, sehingga tidak termasuk sebagai panjang field. Picture karakter jenis ini hanya bisa digunakan bersama picture karakter 9.

Contoh : 

02 HARGA PIC 99V999. Bearti variabel HARGA dapat menampung 5 digit dan 3 digit belakang koma, misalnya 23.500. 

02 HARGA PIC 9(3)V9(3). Bearti variabel HARGA dapat menampung 7 digit dan 3 digit belakang koma, misalnya 655.725.

• Picture Karakter P

Picture Karakter P digunakan bersama dengan picture karakter V, digunakan untuk menimbulkan angka 0, picture karakter ini jarang sekali digunakan.

Contoh : 

02 HARGA PIC 99VPPP. Bearti variabel HARGA dapat menampung 5 digit dan 3 digit belakang koma, misalnya 28.000.

• Picture Karakter S

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 dapat menampilkan nilai negatif. Pada picture karakter S tidak ditulis di memori, sehingga tidak termasuk sebagai panjang field atau tidak menambah jumlah digit.

Contoh : 

02 SALDO PIC S99. Bearti variabel SALDO dapat menampung 2 digit dengan tanda negatif (-), misalnya -28

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

Picture Editing digunakan untuk perubahan bentuk data dari data yang telah tersimpan distorage (memori). Dengan adanya editing (perubahan), data yang dicetak pada output akan tampak lebih mudah dibaca, mudah dimengerti dan mempunyai susunan yang lebih baik dibandingkan dengan bentuk data asli yang tersimpan di storage. Picture Editing yang digunakan pada bahasa pemrograman COBOL :

• Picture editing Z

Picture editing Z digunakan untuk menghilangkan nilai 0 didepan bilangan, digunakan bersama picture clause 9. 

Contoh : 

16115 -> PIC ZZZZZ. -> 16115.

00856 -> PIC ZZZZZ. -> 856.

00253 -> PIC Z9999. -> 0253.

• Picture editing $

Picture editing $ digunakan untuk memberikan tanda $ pada output, letaknya diujung kiri.

Contoh :

45525 -> PIC $ 99999. -> $45525.

• Picture editing "." dan ","

Picture editing "." digunakan untuk menunjukkan letak posisi dari titik desimal pada saat output dicetak, hanya boleh digunakan 1 kali saja. Sedangkan untuk Picture editing "," digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 kali, biasanya digunakan untuk menyatakan nilai uang.

Contoh :

25045 -> PIC 999.99. -> 250.45.

• Picture editing "-"

Picture editing "-" digunakan untuk kondisi data jika data asli bernilai minus maka penggunaan tanda minus di awal atau diakhir akan menyebabkan tanda minus muncul pada saat pencetakan, sedangkan bila data positif akan digantikan dengan blank.

Contoh :

57283 -> PIC –9(5). -> -57283.

• Picture editing "+"

Picture editing "+" 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.

Contoh : 

750 -> PIC +9(3). -> +750.

• Picture editing B

Picture editing B digunakan untuk mengedit nilai data bukan numerik. Blank akan disisipkan pada posisi dimana karakter B ditempatkan.

Contoh :

syarifsegaf -> PIC A(6)BA(5). -> syarif segaf.

• Picture editing "*"

Picture editing "*" digunakan untuk menggantikan nilai nol pada nilai data disebelah kanan dengan tanda *.

Contoh :

500 -> PIC 9**. -> 5**.

• Picture editing 0 (nol)

Picture editing 0 (nol) digunakan untuk menyisipkan angka 0 pada posisi dimana karakter 0 ditempatkan.

Contoh :

35 -> PIC 99000. -> 35000.

• Picture editing "/"

Picture editing "/" digunakan untuk menyisipkan karakter “/” diposisi dimana karakter tersebut ditempatkan, biasanya digunakan untuk memisahkan tanggal/bulan/tahun.

Contoh :

020898 -> PIC 99/99/99 -> 02/08/98.

• Picture editing DB dan CR

Picture editing DB dan CR digunakan untuk memberikan akhiran DB (Debit) atau CR (Credit) pada suatu bilangan, biasanya digunakan untuk aplikasi akuntansi.

Contoh :

50000 -> PIC 9(5)CR. -> 50000CR.

75250 -> PIC 9(5)DB. -> 75250DB.

Source and Refrence :

• https://id.wikipedia.org/wiki/COBOL
• Teknik Pemrograman Terstruktur 1, Universitas Gunadarma 2016 oleh Irawati

Copyright © 2016 SyarifSegaf