*Program Kondisi.Pada Cobol

 1.IDENTIFICATION DIVISION dalam Bahasa Indonesia mempunyai arti mengidentifikasi divisi didalam identification division terdiri dari division header dan paragraph header didalam identification division bisa memuat seperti PROGRAM-ID,AUTHOR,DATA-WRITTEN,DATA-COMPILED,SECURITY,INSTALASION dan perintah ini dikolom ke 8.

2.PROGRAM-ID.  Dalam Bahasa Indonesia mempunyai arti id program ,id program tersebut merupakan judul program yang akan kita buat seperti yang diatas saya membuat id-programnya yaitu coba dan perintah ini dikolom ke 8.

3.AUTHOR. FAHRUL dalam Bahasa Indonesia author  mempunyai arti pengguna,pembuat program seperti yang diatas nama authornya adalah fahrul sebenarnya bisa juga author tidak usah dipakai agar lebih menarik akhirnya dipakai biar tau program dibuat oleh siapa dan perintah ini dikolom ke 8.

4.ENVIRONTMENT DIVISION  didalam environtment division terdapat karakteristik dari peralatan input-output program dan perintah ini dikolom ke 8.

5.DATA DIVISION dalam Bahasa Indonesia mempunyai arti divisi data dan didalam data divisi terdapat file section,working storage-section,screen section dan report section tapi kita hanya menggunakan screen section saja di program kampus dan perintah ini dikolom ke 8.

6.WORKING-STORAGE SECTION dalam Bahasa Indonesia berarti tempat penyimpanan lembar kerja dalam cobol fungsinya yaitu kita menyiapkan memori untuk menyimpan program yang kita buat, perintah ini  dikolom ke8.

 7.77 JAWAB PIC A maksudnya 77 tersebut merupakan number level dan dia untuk mendampingi item yang berdiri sendiri yaitu JAWAB PIC A merupakan picture clause yang tipe datanya karakter dan digunakan untuk “JAWAB”, perintah berada dikolom ke8.

8.77 AS PIC A maksudnya 77 tersebut merupakan number level dan dia untuk mendampingi item yang berdiri sendiri yaitu AS PIC A merupakan picture clause yang tipe datanya karakter dan digunakan untuk “AS”, perintah berada dikolom ke8.

9. SCREEN SECTION berfungsi mendesklarasikan variable data yang digunakan untuk tampilan dilayar monitor. dan perintah ini dikolom ke 8.

10.02 BLANK SCREEN untuk menghapus layar pada cobol dan perintah ini dikolom ke 12.

11.PROCEDURE DIVISION untuk memandakan bahwa akan memulai program procedure division dan perintah ini dikolom ke 8.

12.TANYA untuk memulai kita ngoding dengan program bertanya apa yang kita inginkan dan perintah ini dikolom ke 8.

13.DISPLAY CLS jadinya tampilannya dihapus makanya pas dirunning terhapus dan perintah ini dikolom ke 12.

14. DISPLAY 'MASUKKAN KODE BERUPA HURUF [D/E/J/K]?'. akan tampil dilayar monitor kita “masukkan kode berupa huruf mulai dari d,e,j,k, dan berada dikolom ke 12.

15. ACCEPT JAWAB tadi iatas sudah disuruh menanya sekarang kita suruh jawab dan nerima jawaban dan berada dikolom 12.

16. SELEKSI-JAWAB kita harus memilih dan menyeleksi jawaban dan berada dikolom 12.

17. IF JAWAB = 'D' OR 'd' GO TO KODE-D jika kita memilih d besar maupun d kecil maka menuju ke kode d dan berada dikolom 12.

 18.  IF JAWAB = 'E' OR 'e' GO TO KODE-E jika kita memilih e besar maupun e kecil maka menuju ke kode e dan berada dikolom 12.

 19.  IF JAWAB = 'J' OR 'j' GO TO KODE-J jika kita memilih j besar maupun j kecil maka menuju ke kode j dan berada dikolom 12.

 20. IF JAWAB = 'K' OR 'k' GO TO KODE-K jika kita memilih k besar maupun k kecil maka menuju ke kode k dan berada dikolom 12.

 21. GO TO SALAH = kalau kode jawaban tidak sesuai dengan yang ada diatas maka akan tertulis salah dan berada dikolom ke 12.

 22. GO TO SELESAI= kalau kode jawaban benar yang sudah kita input maka kondisi tersebut akan selesai

 23. DISPLAY 'MAAF INPUT YANG ANDA MASUKKAN SALAH'

       ACCEPT (, ) AS.

       GO TO TANYA.

       SELESAI. Jika kita memasukkan kodenya salah makan akan muncul di screen kita ‘maaf input yang anda masukkan salah’, jika salah maka akan menerima  dan akan kembali lagi di pertanyaan jika semua kondisi telah selesai maka program akan berhenti.

 *Catetan

Disini saya menggunakan cobol yang 32 bit dan saya memakai dosbox ,saya mengkoding di dalam notepad dan disimpan simpannya menggunakan perintah save as dan pilih all type dan masuk ke folder c cobol dan simpan untuk cara masuk ke cobolnya menggunakan dosbox yaitu:

1.mount c c:\idecobol

2.c:

3.cobol dicoba.cob untuk mecompile program cobol dan dicoba adalah nama program yang disimpan terus enter enter dan sampai muncul no error or warning berarti program tersebut tdiak ada yang eror dan rusak berarti siap untuk di jalankan

4.runcob dicoba.cob untuk merun program cobol dan dicoba adalah nama program yang ingin dijalankan enter 1x dan akan muncul hasil runnya.

*Program Nilai

1.IDENTIFICATION DIVISION dalam Bahasa Indonesia mempunyai arti mengidentifikasi divisi didalam identification division terdiri dari division header dan paragraph header didalam identification division bisa memuat seperti PROGRAM-ID,AUTHOR,DATA-WRITTEN,DATA-COMPILED,SECURITY,INSTALASION dan perintah ini dikolom ke 8.

2.PROGRAM-ID.  Dalam Bahasa Indonesia mempunyai arti id program ,id program tersebut merupakan judul program yang akan kita buat seperti yang diatas saya membuat id-programnya yaitu coba dan perintah ini dikolom ke 8.

3.AUTHOR. FAHRUL dalam Bahasa Indonesia author  mempunyai arti pengguna,pembuat program seperti yang diatas nama authornya adalah fahrul sebenarnya bisa juga author tidak usah dipakai agar lebih menarik akhirnya dipakai biar tau program dibuat oleh siapa dan perintah ini dikolom ke 8.

4.ENVIRONTMENT DIVISION  didalam environtment division terdapat karakteristik dari peralatan input-output program dan perintah ini dikolom ke 8.

5.DATA DIVISION dalam Bahasa Indonesia mempunyai arti divisi data dan didalam data divisi terdapat file section,working storage-section,screen section dan report section tapi kita hanya menggunakan screen section saja di program nilai dan perintah ini dikolom ke 8.

6.WORKING-STORAGE SECTION dalam Bahasa Indonesia berarti tempat penyimpanan lembar kerja dalam cobol fungsinya yaitu kita menyiapkan memori untuk menyimpan program yang kita buat, perintah ini  dikolom ke8.

7.77 PIL PIC 9 maksudnya  77 adalah number level ddan pil adalah pilihan karena kita bikin program pilihan pic adalah pictureclause numeric dan 9 adalah batas inputnya dan berada dikolom9.

8. 01 NL variable yang berdiri sendiri untuk membantu kondisi yang dibawahnya,statement pendukung  dan berada dikolom ke8.

9. 02 UTS PIC 99 merupakan input yang mau kita jumlahkan, variable uts dan pictureclauisenya memakai yang 99. dan merupakan program kita dan berada dikolom 12.

10.02 UAS PIC 99 merupakan input yang mau kita jumlahkan,variable uas dan pictureclauisenya memakai yang 99. dan merupakan program kita dan berada dikolom 12.

11.  02 RATA PIC 99 merupakan input yang mau kita jumlahka,variable rata dan pictureclauisenya memakai yang 99. dan merupakan program kita dan berada dikolom 12.

12.  01 GG ini merupakan statement pendukung yang ke 2 dan berada dikolom ke8.

13.  02 X PIC 999 merupakan input yang mau kita jumlahkan,variable xdan pictureclauisenya memakai yang 999. dan merupakan program kita dan berada dikolom 12.

14. 02 BIL PIC 9 merupakan input yang mau kita jumlahkan,variable bil dan pictureclauisenya memakai yang 99. dan merupakan program kita dan berada dikolom 12.

15. 02 HASIL PIC 9(4) merupakan input yang mau kita jumlahkan,variable hasil dan hasilnya tidak boleh dari 4 digit, dan pictureclauisenya memakai yang 99. dan merupakan program kita dan berada dikolom 12.

 16. SCREEN SECTION berfungsi mendesklarasikan variable data yang digunakan untuk tampilan dilayar monitor. dan perintah ini dikolom ke 8.

17. 01 CLS hapus layar monitor dan perintah ini berada dikolom ke8.

18. 02 BLANK  SCREEN untuk menghapus layar pada cobol dan perintah ini dikolom ke 12.

13. PROCEDURE DIVISION untuk memandakan bahwa akan memulai program procedure division dan perintah ini dikolom ke 8.

 14. MULAI untuk memulai statement/kondisi deprogram dan berada dikolom ke 8.

 15. DISPLAY CLS tampilan dihapus sebenarnya ada tampilannya tapi kecil sekali dan berada dikolom ke 12.

 16. DISPLAY '************ MENU ************'.

       DISPLAY '| 1. NILAI                  |'.

       DISPLAY '| 2. GANJIL GENAP           |'.

       DISPLAY '| 3. EXIT                   |'.

       DISPLAY '##############################'.

       DISPLAY (, ) ' PILIH MENU [1-3] : '.

       ACCEPT PIL.

       GO TO NILAI, GANJIL, SLS DEPENDING ON PIL.

       DISPLAY ' MENU TIDAK ADA..'.

       ACCEPT L. akan menampilkan menu,nilai,ganjil,genap,exit,########,dan pilihan menu 1-3

Terima pilihan dari 1-3 tadi menuju ke statement nilai,ganjil,genap dan didalmanya terdapat pembagian didalam pilihan dari 1-3 tadi dan jika kondisi udah terpenuhi semua akan kembali lagi ke mulai dan berada dikolom ke 12.

17.  DISPLAY CLS.

        DISPLAY (, ) ' UTS   : '. ACCEPT UTS.

        DISPLAY (, ) ' UAS   : '. ACCEPT UAS.

        COMPUTE RATA = (UTS * 0.7) * (UAS * 0.3).

        DISPLAY 'NILAI : ' RATA.

         STOP RUN. Akan menampilkan uts,uas,nilai rata,nilai dan jika kita menuli statement menggunakan tanda “ maka diakhiri dengan accept karena jika tidak ada accept maka program akan tidak bisa di compile dan compute artinya menghitung nilai uas dan uts dan dikasih nilai uas sebesar 30% dan uts dikasih nilai sebesar 70% dan berada dikolom ke 12.

 18. DISPLAY CLS.

       DISPLAY 'MASUKKAN ANGKA      : ', ACCEPT X.

       DIVIDE 2 INTO X GIVING HASIL REMAINDER BIL.

       IF BIL = 0

       DISPLAY 'GENAP'

       ELSE

       DISPLAY 'GANJIL'.

       STOP RUN. Akan menampilkan masukkan angka dan jika kita menulis statement menggunakan tanda “ maka diakhiri dengan statement accept dan jika tidak maka program tidak bisa dikompile.

Semua bilangan akan dibagi 2 dan hasilnya pun juga diambilnya daari bilangan yang kita inputkan jika hasil dari nilai yang kita inputkan nilainya 0 maka genap dan jika tidak maka ganjil dan stop run untuk mengakhiri runcompiler.