program function pada aplikasi cobol beserta logikanya

1.       Cara membuat program menu function pada aplikasi cobol di windows 64bit.

-          Bukalah notepad lalu isikan koddingan seperti gambar di bawah ini :

Logika dari indentification division sampai procedure division :

Identitas program dinamai dengan nama menu, lalu author sebagai koddingan pembuat. Sedangkan di data divisi terdapat bagian pekerjaan dengan empat seksi yaitu awal, ke dua, ke tiga dan tanya. Dimana darike empat seksi tersebut jika outputnya numerik maka koddingannya di deklarasikan angka 9 dan jika outputnya karakter di deklarasikan huruf x, tetapi untuk huruf zzz mempunyai arti sebagai hasil dari perhtungan.

                                                                                                                                                                    

                                                                                                                                                          

                                                                                                               

Logika dari procedure divisi sampai selesai :

Di dalam divisi prosedur ini terdapat koddingan mulai yang akan di tampilkan langsung di outpunya sebagai menu pilihan, dan terdapat 3 pilihan jika di ketik angka 1 maka akan menuju menu 1 dan seterusnya. Untuk pilihan 1 mempunyai logika jika kita ketik nama sampai kelas maka akan tampil di baris 9,10,11 dan kolom 10. Untuk pilihan ke 2 akan menghapus layar sebelumnya dan akan menampilkan rumus persegi panjang dengan rumus persegi panjang “compute luas = panjang * lebar * tinggi.” Untuk pilihan ke 3 akan menghapus layar sebelumnya dan menghitung rumus hasil dengan koddingan

Dan jika sudah terhitung di dapat hasilnya maka akan kembali ke menu awal jika ketik “Y”.

-          Siapkan dos box untuk virtual cmd kan masuk ke drive c:, lalu ke folder cobol32 dan ketik cobol paxe.cob untuk meng compile program cobol menu function, perhatikan gambar:

Untuk merunning program ketikan “runcob nama file”: