Picture Clause dan Editing Clause Pada Cobol

PICTURE CLAUSE

Yang berguna untuk menjelaskan bentuk-bentuk data yang akan dimasukan dan output yang akan dikeluarkan nantinya.

1.  picture clause 9
Menunjukan posisi suatu memory rata kanan yang  hanya mengandung nilai-nilai
Numeric.
Bentuk pic                      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 pic              panjang              contoh            diprosedure
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 pic              panjang               contoh           diprosedure
02 pic A(6)                   6                     anda                 andabb
02 pic A(4)                   4                     anda                 anda
02 pic A(2)                   2                      anda                 an

4.  Picture karakter X
Digunakan untuk menunjukan nilai alphanumeric pada field yang bersifat rata kiri.
Bentuk pic              panjang              contoh            diprosedure
02 Pic X(5)                   5                   E3467                  E3467
02 Pic X(5)                   5                   D67                      D67bb
02 Pic X(5)                   5                  A12345                A1234


PICTURE EDITING
Berguna untuk mengubah data yang telah tersimpan distorage . dengan adanya picture editing ini output yang ditampilkan akan lebih muda 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.
-          Pic Z(6)
Data sumber                        :  5678
Hasil sebelum diedit         :  005678
Hasil setelah diedit            :      5678

2.  Picture editing $
Menambahkan karakter $ pada ujung kiri pada saat pencetakan.
-          Pic $Z(6)
Data sumber                        :  5678
Hasil sebelum edit             :  005678
Hasil setelah edit               :  $ 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.
-          Pic ******
Data sumber                        :  789
Hasil sebelum diedit         :  000789
Hasil setelah diedit            :  ***789

8.  Picture editing 0 (nol)
Untuk menyisipkan angka 0 dimana angka nol itu berada.
-          Pic ZZZZ0
data sumber                       :  3456
hasil edit                              :  34560

9.  Picture editing “/” (slash)
Digunakan untuk menyisipkan karakter “/” pada posisi karakter “/” itu berada.
-          Pic  99/09/99
Data sumber                     : 20698
Hasil edit                           : 20/06/98

Picture Clause atau Pic Clause mempunyai arti yang sama anda dapat memilihnya sesuai dengan kehendak anda. Dalam clause ini dijelaskan tentang :

• Ukuran dari Field
• Item yang digunakan
• Bentuk nilai data (Numerik, Alphabetik atau AlphaNumerik (Gabungan huruf dan  angka ).
• Nilai desimal untuk data numerik.

Dalam penulisan Nilai Numerik terdapat aturan penulisan yang tidak memperbolehkan nilai yang melebihi 18 digit. Secara umum bentuk penulisannya adalah sebagai berikut

 

        PICTURE     IS  karakter

        PIC

 

Clause Picture ini terbagi bermacam-macam seperti dibawah ini :

 

2.2.1. PICTURE karakter 9

Angka numerik 9 ini menunjukan bahwa nilai Memori hanya dapat mengandung nilai numerik. Ukuran dari panjang data item ( Digit) tergantung dari banyaknya angka 9 pada PICTURE tersebut dengan ketentuan tidak melebihi 18 Digit.

 

Contoh :

       PICTURE 999999 Atau PICTURE 9(6)

 

Artinya : Sebuah Field hanya berisi 6 Nilai Numerik. Nilai PICTURE karakter 9 ini mempunyai nilai default Rata kanan (Right Justified). Jika nilai lebih sedikit daripada yang ditunjuk oleh PICTURE-nya, maka sisanya mulai dari kiri diisi dengan 0, sebaliknya jika lebih besar mana nilai numerik akan dipotong mulai dari kanan.

 

Posted in: