Perintah FROM, TO, USING clause digunakan untuk menampilkan atau menampilkan data yang bentuk data-itemnya berhubungan dengan data (nilai dari PIC clause ) pada WORKING-STORAGE SECTION. Perintah FORM digunakan untuk menampilkan / menerima data dari suatu variable.
Perintah TO digunakan untuk memasukan nilai / menyimpan nilai kedalam variable.
Perintah USING adalah pengganti perintah FORM dan TO artinya perintah ini dapat melakukan kedua hal diatas.
Contoh Program 1.
M2.COB Mon Aug 21 20:24:20 2006
Page 1 line number source line Microsoft COBOL Version 2.20
1 IDENTIFICATION DIVISION.
2 PROGRAM-ID. HARGA.
3 AUTHOR. SAYA.
4 ENVIRONMENT DIVISION.
5 DATA DIVISION.
6 WORKING-STORAGE SECTION.
7 01 DATA-MASUK.
8 02 NAMABRG PIC A(20) .
9 02 HARGA PIC 9(6) VALUE 0.
10 02 JUMLAH PIC 9(3) VALUE 0.
11 02 TOTAL PIC 9(6) VALUE 0.
12 SCREEN SECTION.
13 01 HAPUS-LAYAR.
| 14 | 02 BLANK SCREEN. | |
| 15 | 01 | LAYAR-MASUK. |
16 02 LINE 5 COLUMN 3 VALUE 'NAMA BARANG : '.
17 02 COLUMN PLUS 1 PIC A(20) TO NAMABRG.
18 02 LINE 7 COLUMN 3 VALUE 'HARGA : '.
19 02 COLUMN PLUS 1 PIC 9(6) TO HARGA.
20 02 LINE 9 COLUMN 3 VALUE 'JUMLAH : '.
21 02 COLUMN PLUS 1 PIC 9(3) TO JUMLAH.
22 01 LAYAR-TAMPIL.
23 02 LINE 13 COLUMN 3 VALUE 'TOTAL : '.
24 02 COLUMN PLUS 1 PIC 9(6) FROM TOTAL.
25 PROCEDURE DIVISION.
26 MULAI.
27 DISPLAY HAPUS-LAYAR.
28 DISPLAY LAYAR-MASUK.
29 ACCEPT LAYAR-MASUK.
30 COMPUTE TOTAL = JUMLAH * HARGA.
31 DISPLAY LAYAR-TAMPIL.
32 SELESAI.
33 STOP RUN.
34
2. Fungsi dan Penggunaan Level Number.
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 PlC , perhatikan contoh !
HARGA PlC 9999. - berarti variable harga memiliki 4 digit (posisi) angka numeric, tetapi anda dapat juga menyingkatnya dengan menggunakan tanda kurung “( )”, sehingga menjadi :
HARGA PlC 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 PlC 999V99 - 234.50 -5 digit dan 2 digit belakang koma.
02 HARGA PlC 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 PlC 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 PlC 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 - PlC ZZZZZ - 12345.
0123 - PlC ZZZZZ - 123.
00123 - PlC Z9999 - 0123.
+ Picture editing karakter $.
Untuk memberikan tanda $ pada output, letaknya diujung kiri. Contoh :
12345 - PlC $ 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 - PlC 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 - PlC –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 - PlC 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 - PlC 99B9B999 - 12 3 456
+Picture editing karakter “*”
Digunakan untuk mengganti nilai 0 pada suatu bilangan dengan tanda *
Contoh :
123- PlC **999 -**123
+ Picture editing karakter 0.
Digunakan untuk menyisipkan karakter 0 dimana karakter 0 itu berada.
Contoh :
12345 - PlC 9(5)0 - 123450
+ Picture editing karakter “/”.
Digunakan untuk menyisipkan tanda “/” ada posisi karakter “/”
berada.
Contoh :180260 - PlC 99/99/99 - 18/02/60
0 komentar:
Posting Komentar