Diberdayakan oleh Blogger.
RSS

Program Cobol (level Number dan Picture Editing)

LEVEL NUMBER

Level number atau nomor jenjang adalah suatu nomor yang menunjukkan jenjang dari data item dalam suatu record.


Level number yang digunakan:
a. 01 Untuk mengawali keterangan dari record (record description).

b. 02 – 49 Digunakan untuk mengawali keterangan dari data item.

c. 66 Digunakan untuk RENAMES

d. 77 Digunakan untuk mengawali data item yang berdiri sendiri. Hanya boleh
terdapat pada WORKING-STORAGE SECTION.

e. 88 Digunakan untuk mengawali suatu nama kondisi.


PICTURE CLAUSE
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.

Macam-macam picture clause:
1. Picture karakter 9 : Menunjukkan bahwa posisi sebuah memori hanya dapat mengandung nilai-nilai numerik saja. Ukuran panjang data-item ditentukan oleh banyaknya karakter 9 yang digunakan. Bersifat right justified.
2. Picture karakter V : Menunjukkan lengkap anggapan dari titik desimal. Anggapan disini maksudnya adalah titik desimal tersebut tidak ditulis di memori, sehingga tidak termasuk sebagai panjang field.
3. Picture karakter P : Digunakan dengan gabungan Picture karakter V, yang digunakan untuk menimbulkan angka 0.
4. Picture karakter S : Digunakan untuk menyimpan tanda dari nilai data, dan tidak dihitung sebagai panjang field.
5. Picture karakter A : Digunakan untuk menyimpan nilai data huruf(alphabetic).Bersifat left justified.
6. Picture karakter X : Digunakan untuk menyimpan nilai data alphanumerik, dapat berupa gabungan angka, huruf, ataupun karakter khusus.

PICTURE EDITING

Berguna 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.
Macam-macam picture editing :
1. Picture editing Z : digunakan untuk menggantika angka 0 diawal agar tidak tampak pada waktu pencetakan.

2. Picture editing $ : pada saat pencetakan karakter $ akan tampak pada ujung paling kiri.

3. Picture editing “.” : digunakan untuk menunjukkan letak posisi dari titik desimal pada pencetakan, hanya boleh dipergunaka 1 saja.

4. Picture editing “,” : digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1.

5. Picture editing “-“ : 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.

6. Picture editing “+” : jika tanda plus digunakan diawal atau diakhir data maka akan tampak pada pencetakan bila data bernilai positif, jika data negatif akan muncul tanda minus, jika tidak bertanda dianggap positif.

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

8. Picture editing “*” : digunakan untuk menggantikan nilai nol pada nilai data disebelah kanan dengan tanda *.

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

10. Picture editing “/” : digunakan untuk menyisipkan karakter “/” diposisi dimana karakter tersebut ditempatkan.

11. Picture editing DB dan CR : Sering digunakan pada aplikasi akuntansi. Ditulis mulai ujung sebelah kanan dari picture, dan hasilnya hanya tampak pada hasil edit bila nilai datanya negatif.
LANGKAH-LANGKAH MEMBUAT PROGRAM SEDERHANA BERUPA OUTPUT DIBAWAH INI
1.Tulis coding













setelah selesai menulis coding seperti diatas.

2.compile program dengan cara klik menu bar compiler diataslalu pilih compilar.lalu akan muncul perintah.
f:/cobol COBA.cob (enter)

3.klik pada menu bar compiler diatas lalu pilih run.
maka akan muncul output seperti dibawah dengan memasukkan nama,kelas,NPM .
setelah di enter akan muncul hasil dari data yang dimasukkan tadi.





  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar