PROGRAM COBOL MENGGUNAKAN PERFORM

PROGRAM COBOL MENGGUNAKAN PERFORM. Langkah - langkah membuat program COBOL: 1. Untuk memulai program COBOL yang perlu dilakukan adalah menuliskan listing program di editor yang diinginkan,, karena COBOL tidak memiliki editor khusus seperti pascal, c, atau java, jadi kita bisa menuliskan programnya pada notepad, notepad++, atau sidekick. Lalu masukkan coding : IDENTIFICATION DIVISION. PROGRAM-ID. ASIA. ENVIRONMENT DIVISON. DATA DIVISION. WORKING-STORAGE SECTION. 77 JAWAB PIC A. PROCEDURE DIVISION. TANYA. DISPLAY (3, 15) "<>". DISPLAY (7, 10) " MASUKAN KODE MAKANAN BERUPA HURUF [A/B/J/I]?". ACCEPT JAWAB. SELEKSI-JAWAB. IF JAWAB = "A" GO TO KODE-A. IF JAWAB = "B" GO TO KODE-B. IF JAWAB = "J" GO TO KODE-J. IF JAWAB = "I" GO TO KODE-I. KODE-A. DISPLAY (8, 20) "ANDA MEMILIH AYAM BAKAR". DISPLAY (9, 25) "RP. 10.000/PORSI". GO TO MULAI. KODE-B. DISPLAY (8, 20) "ANDA MEMILIH BUBUR SUM-SUM". DISPLAY (9, 25) "RP. 5.000/PORSI". GO TO MULAI. KODE-J. DISPLAY (8, 25) "ANDA MEMILIH JUS". DISPLAY (9, 25) "RP. 5.000/GELAS". GO TO MULAI. KODE-I. DISPLAY (8, 20) "ANDA MEMILIH IKAN BAKAR". DISPLAY (9, 25) "RP. 30.000/PORSI". GO TO MULAI. MULAI. PERFORM PROCEDURE-A. DISPLAY (15, 16) " SILAHKAN MEMBAYAR DENGAN UANG CASH!!!". PERFORM PROCEDURE-B. PERFORM PROCEDURE-A. STOP " ". SELESAI. STOP RUN. PROCEDURE-A. DISPLAY (16, 15) "========================================". PROCEDURE-B. DISPLAY (17, 20) "TERIMAKASIH ATAS KUNJUNGAN ANDA ". 2. Setelah menuliskan listing program, simpan file program dengan format .cob atau .cbl di direktori tempat program COBOL berada.Kemudian buka command Prompt pada komputer, dan masuk ke direktori tempat file berada, lalu ketikkan cobol nama_file.cob atau cobol nama_file.cbl untuk mengkompile program. 3. kemudian tekan enter sampai muncul tampilan error - error yang terdapat pada program,jika terdapat error pada program,, betulkan dulu programnya, lalu ulangi proses kompile sampai muncul tampilan "no error and no warning". 4. Setelah tidak ditemukan error,, lalu kita dapat menjalankan program dengan cara mengetikkan runcob nama_file.cob atau runcob nama_file.cbl Maka hasilnya adalah seperti ini :

LOGIKA : 1. IDENTIFICATION DIVISION yaitu berisi informasi tentang identitas program yang bersangkutan (nama program, nama pembuat, tanggal program dibuat, dll) dan tidak mempunyai pengaruh terhadap proses program, hanya sebagai identifikasi. 2. ENVIRONMENT DIVISION yaitu berisi informasi tentang keadaan komputer dan alat – alat yang digunakan. 3. DATA DIVISION yaitu berisi informasi mengenai komputer yang digunakan dan menerangkan peralatan yang digunakan untuk memproses file, baik peralatan input maupun peralatan output. 4. PROCEDURE DIVISION yaitu inti dari pemrograman COBOL karena semua prosedur pekerjaan proses dari input data menjadi output. 5. DISPLAY (3, 15) "<>". Coding ini akan menampilkan <>. 6. PERFORM PROCEDURE-A. coding ini maksudnya adalah akan menggunakan perform untuk prosedur A. 7. PERFORM PROCEDURE-B. coding ini maksudnya adalah akan menggunakan perform untuk prosedur B. 8. STOP RUN. Maksudnya adalah memberhentikan program yang sedang berjalan.