logika
kodingannya di bawah ini :
1. Statement
IDENTIFICATION DIVISION : pada program cobol diatas statement ini merupakan
sebuah divisi yang pertama yang paling sederhana pada COBOL, dan berfungsi
untuk memberikan keterangan atas program yang akan kita buat selanjutnya,
2. Statement PROGRAM-ID. PERFORM1. : Yaitu Merupakan judul
data pada program yang akan kita buat pada program,
3. Statement ENVIRONTMENT DIVISION. :Yaitu digunakan untuk
memberikan sebuah dokumentasi informasi mengenai peralatan yang akan kita
gunakan.
4. Statement DATA DIVISION. : Yaitu digunakan untuk
memberikan semua keterangan untuk record dan memberikan bentuk format yang akan
kita gunakan pada procedure division.
5. Statement WORKING-STORAGE SECTION. : Yaitu berfungsi untuk
mendeklarasikan variable dan tipe data yang ingin kita gunakan.
6. Statement 77 JABATAN PIC 9. :Yaitu menunjukkan sebuah
judul awal, yang merupakan level number 77 yang berfungsi jika pemograman
membutuhkan catatan lalu jabatan sebagai nama pada prosedur yang digunakan pada
kolom 9.
7. Statement PROCEDURE DIVISION. : Yaitu merupakan inti dari
COBOL, yang berisikan semua instruksi-instruksi
yang kita tulis
8. Statement TANYA JABATAN. : Yaitu berfungsi untuk memulai
suatu divisi yang akan kita tampilkan pada output,
9. Statement DISPLAY ‘JABATAN ANDA [1, 2, DAN 3]?’. : Yaitu berfungsi sebagai
menu option atau pilihan untuk memilih prosedur yang telah disediakan,
10. Statement ACCEPT
JAWABAN. :Yaitu berfungsi untuk
menampilkan atau menyetujui sebuah prosedur yang kita pilih,
11. DISPLAY SPACE. :Yaitu berfungsi untuk memberikan jarak
pada sebuah running program yang akan kita cetak,
Statement ACCEPT JABATAN. :Yaitu menyetujui kodingan DISPLAY
‘JABATAN ANDA [1, 2, DAN 3]?’.
12. Jika pada menu pilihan diatas yang kita pilih tidak
sesuai dengan data yang disediakan maka kita
isi kembali prosedurnya dengan GO TO TUNJ1, TUNJ2, TUNJ3 DEPENDING ON JABATAN.
Selain prosedur tunj1, tunj2 dan tunj3 maka akan pergi dan mencetak DISPLAY
‘TIDAK ADA JABATAN TERSEBUT, ULANG ! ’. akan menampilkan prosedur tidak ada
jabatan,ulang ! jika yg kita pilih tidak ada pada menu plihan diatas,
13. Statement GO TO
TANYA-JABATAN. : Yaitu berfungsi untuk akan menanyakan kembali pada menu
pilihan jabatan yang kita pilih.
14. Pada TUNJ1. :Yaitu digunakan untuk mencetak sebuah isi
prosedurnya dengan DISPLAY “TUNJANGAN ANDA SEBESAR RP.100.000,- ”. Untuk
mencetak kata tunjangan anda sebesar RP.100.000,
15. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali
menghentikan program sehingga sudah tidak running kembali,
16. Pada TUNJ2. :Yaitu
digunakan untuk mencetak sebuah isi prosedurnya dengan DISPLAY
“TUNJANGAN ANDA SEBESAR RP.200.000,- ”. Untuk mencetak kata tunjangan anda
sebesar RP.200.000,
17. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali
menghentikan program sehingga sudah tidak running kembali,
18. Pada TUNJ3. :Yaitu
digunakan untuk mencetak sebuah isi prosedurnya dengan DISPLAY
“TUNJANGAN ANDA SEBESAR RP.300.000,- ”. Untuk mencetak kata tunjangan anda
sebesar RP.300.000,
19. Pada GO TO SELESAI. :YAitu berfungsi untuk kembali
menghentikan program sehingga sudah tidak running kembali
20. Pada Statement SELESAI. : Yaitu berfungsi untuk
menghentikan program,
21. STOP RUN. : Yaitu untuk benar-benar menghentikan semua prosedur
program yang kita gunakan.
0 komentar:
Posting Komentar