Picture Clause dan Picture Editing pada cobol

Picture Clause
Berguna untuk menentukan jenis data dan menampilkan bentuk data output.

Macam-macam picture clause.

1. Picture Clause Karakter A.
Berfungsi untuk penyimpanan data dalam bentuk alphabet

2. Picture Clause Karakter 9.
Berfungsi untuk menyimpan data dalam bentuk numeric.

3. Picture Clause Karakter X.
Berfungsi untuk menyimpan data dalam bentuk alphanumeric yang merupakan campuran huruf, angka dan spesial karakter.

4. Picture Clause Karakter V.
Berfungsi untuk menentukan jumlah digit dibelakang koma pada bilangan decimal.
Dan digunakan bersama picture karakter 9.
Contoh :
Jumlah PIC 9(5)V9(2) = 29810.76

5. Picture Clause Karakter P.
Berfungsi untuk menampilkan angka 0. Digunakan bersama picture karakter v.
Contoh :
Jumlah PIC 9PPV9(3) = 700.729

6. Picture Clause Karakter S.
Berfungsi untuk memberi tanda minus (-).
Contoh :
Jumlah PIC S9 = -5




Picture Editing
Berfungsi untuk merubah bentuk data yang akan dicetak sebagai output.

Macam-macam picture editing.

1. Picture Editing Karakter Z.
Berfungsi untuk menghilangkan angka 0 didepan bilangan digunakan bersama picture clause 9.
Contoh :
0747 = PIC Z999 = 747

2. Picture Editing Karakter $.
Berfungsi untuk memberikan symbol atau lambang $ pada output.
Contoh :
84758 = PIC $ 99999 = $ 84758

3. Picture Editing Karakter (.) dan (,)
(.) berfungsi untuk menunjukkan letak posisi koma pada bilangan decimal.
(,) berfungsi untuk memberi tanda koma, biasanya digunakan untuk mata uang.

4. Picture Editing Karakter (-).
Berfungsi untuk menampilkan tanda minus pada data yang bernilai negative, tetapi bila bernilai positif akan berubah menjadi blank.
Contoh :
47594 = PIC -9(5) = 47594

5. Picture Editing Karakter (+).
Untuk memberikan tanda (+) pada data yang telah diinput. Jika bilangan yang akan diinput bernilai negative maka akan tampil tanda (-), tetapi jika bilangan yang akan diinput bernilai positif maka akan menampilkan tanda (+).

6. Picture Editing Krakter DB dan CR.
Biasanya picture editing kedua ini digunakan pada aplikasi akutansi.

7. Picture Editing Karakter B.
Untuk menampilkan blank pada huruf B tersebut.
Contoh :
7465B8578B8374 = 7465 8578 8374

8. Picture Editing Krakter (*).
Untuk mengganti nilai 0 pada suatu bilangan.
Contoh :
00874 = **874

9. Picture Editing Karakter 0.
Untuk menyisipkan angka 0 dimana data itu berada.
Contoh :
PIC 9(3)0 = 2850

10. Picture Editing Karakter (/)
Untuk menyisipkan tanda (/).
Contoh :
PIC 99/99/9999 = 15/04/1995