Belajar Bahasa Pemrograman COBOL Part 3

Assalamu'alaikum Wr. Wb.

Selamat malam kawan.
Sekarang gue mau ngebahas soal Picture Clause ama Picture Editing pada Bahasa pemrograman cobol.
Mungkin dari temen temen pada bingung apa maksudnya Pic x(3) atau Pic 9(5) atau Pic z(8) waktu belajar cobol, nah ini ada beberapa penjelasan mengenai maksud dari picture clause dan picture editing tersebut.

PICTURE CLAUSE

Picture clause ini berguna untuk menjelaskan bentuk-bentuk data yang akan dimasukan dan output yang akan dikeluarkan nantinya ketika pemrograman cobol tercompile.

1. picture clause 9

Menunjukan posisi suatu memory rata kanan yang hanya mengandung nilai-nilai Numerik saja.

Bentuk	panjang	contoh	diprosedur
02 Hutang pic 9(4)	4	5678	5678
02 Gaji pic 9(5)	5	5678	05678

2. Picture clause V

Menunjukan letak anggapan suatu titik decimal dan hanya boleh ada satu disetiap picture. Karena suatu nilai numeric tidak bisa mengandung lebih dari satu titik decimal.

Bentuk	panjang	contoh	diprosedur
02 pic 99V99	4	89.70	89^70
02 pic 9(3)V9(2)	5	89.70	089^70

3. Picture clause A

Digunakan untuk menyimpan nilai data huruf (alphabetic) dengan rata kiri.

Bentuk	panjang	contoh	diprosedur
02 pic A(6)	6	anda	andabb
02 pic A(5)	4	anda	anda

4. Picture karakter X

Bentuk	panjang	contoh	diprosedur
02 pic X(5)	5	E3467	E3467
02 pic X(5)	5	D67	D67bb

Digunakan untuk menunjukan nilai alphanumeric pada field yang bersifat rata kiri.

PICTURE EDITING

Berguna untuk mengubah data yang telah tersimpan distorage . dengan adanya picture editing ini output yang ditampilkan akan lebih mudah dimengerti dan akan mempunyai susunan yang lebih baik disbanding data yang sebelumnya yang terdapat distorage.

1. Picture editing Z

Menghilangkan angka 0 dimuka agar tidak tampak pada pencetakan.

Bentuk	panjang	contoh	diprosedur
02 pic Z(6)	6	005678	5678

2. Picture editing $

Menambahkan karakter $ pada ujung kiri pada saat pencetakan.

Bentuk	panjang	contoh	diprosedur
02 pic $Z(6)	6	005678	$5678

3. Picture editing “.”(titik) dan “,”(koma)

Untuk menunjukan titik decimal pada pencetakan. Bila kita ingin menghasilkan tanda “,”(koma) maka harus didefinisikan terlebih dahulu di data division.

DATA DIVISION.

WORKING STORAGE SECTION.

SPECIAL-NAMES. DECIMAL POINT IS COMA.

4. Picture editing “-“(minus)

Menambah tanda minus pada posisi kiri saat pencetakan. Jika data yang diberikan negative, jika positif akan digantikan dengan blank.

5. Picture editing “+”(plus)

Jika data asli diberikan positif maka tampak positif diposisi paling kiri. Dan jika yang diberikan minus maka akan menghasilkan minus.

6. Picture editing DB atau CR

Menambahkan karakter DB atau CR pada posisi paling kanan bila data yang diberikan bernilai negative. Dan jika positif tidak akan tampak.

7. Picture editing “*”(asterik)

Untuk menggantikan angka 0 yang terdapat disebelah kiri.

Bentuk	panjang	contoh	diprosedur
02 pic ******	?	000578	***578

8. Picture editing 0 (nol)

Untuk menyisipkan angka 0 dimana angka nol itu berada.

Bentuk	panjang	contoh	diprosedur
02 pic ZZZZ0	?	3456	34560

9. Picture editing “/” (slash)

Digunakan untuk menyisipkan karakter “/” pada posisi karakter “/” itu berada.

Bentuk	panjang	contoh	diprosedur
02 pic 99/09/99	?	20698	20/06/98

Sekian tentang picture clause yang bisa gue share, mudah mudahan bisa menjadi ilmu untuk kita semua. Amin. :)

Sumber:
http://zikriimam.wordpress.com/2009/12/19/picture-clause-dan-editing-pada-cobol/ (Dengan editan seperlunya)