Membuat program kondisi pada cobol

Posted by arbi pramana On Senin, 18 Oktober 2010 1 komentar
Cobol
Membuat program kondisi pada cobol
Contoh listing program

identification division.
program-id.
environment divison.
data division.
working-storage section.
77 jawab pic a.
procedure division.
tanya.
display "masukan kode berupa huruf [d/e/j/k]?".
accept jawab.
seleksi-jawab.
if jawab = "d" go to kode-d.
if jawab = "e" go to kode-e.
if jawab = "j" go to kode-j.
if jawab = "k" go to kode-k.
kode-d.
display "kampus depok".
go to selesai.
kode-e.
display "kampus kelapa 2".
go to selesai.
kode-j.
display "kampus kalimalang".
go to selesai.
kode-k.
display "kampus kemang".
go to selesai.
Selesai.
stop run.

Contoh dalam program cobol

















Contoh hasil saat di running






















































Logika program

identification division digunakan untuk mendefinisikan siapa nama pembuat program.
program-id digunakan untuk nama program
environment divison digunakan untuk menjelaskan ruang lingkup progran tersebut
data division untuk pendeklarasian data
working-storage section untuk lembar kerja pada cobol
77 jawab pic a = data yang berdiri sendiri bertipe alphabet
procedure division divisi prosedur
tanya.
display "masukan kode berupa huruf [d/e/j/k]?".
accept jawab.
Prosedur tanya, menampilkan masukan kode berupa huruf [d/e/j/k]?, menginput huruf dan menyimpan di variabel jawab.
 seleksi-jawab.
if jawab = "d" go to kode-d.
if jawab = "e" go to kode-e.
if jawab = "j" go to kode-j.
if jawab = "k" go to kode-k.
Prosedur seleksi -jawab, jika jawab = d menuju procedur kode-d / jalankan procedur kode-d, jika jawab = e menuju procedur kode-e/ jalankan procedur kode-e, jika jawab = j menuju procedur kode-j / jalankan procedur kode-j, jika jawab = k menuju procedur kode-k / jalankan procedur kode-k.

 kode-d.
display "kampus depok".
go to selesai.
kode-e.
display "kampus kelapa 2".
go to selesai.
kode-j.
display "kampus kalimalang".
go to selesai.
kode-k.
display "kampus kemang".
go to selesai.

Procedure kode-d, kode-e, kode-j, kode-k, intinya sama. Namun tampilan saat variabel yang di tampung saat penginputan yang akan menyeleksi apa dia menjalankan procedure kode-d, kode-e, kode-j, kode-k.
 Selesai.
Stop run.
Procedure selesai, memberhentikan program.

1 komentar:

Arief Rivai mengatakan...

Thanks :) lain kali perulangan cobol dong :)
Oh ya, blogwalking ke blog saya juga yah -> http://ariefcz.tk

Posting Komentar