Fahrul Seftian

November 12, 2015

*Logika Program Input Pada Cobol

*PROGRAM INPUT.

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 biodata dan perintah ini dikolom ke 8.

6.77 NAMA PIC X(20). Angka 77 itu merupakan ketetapan untuk picture clause spasi namanya di x harus ada 20 jika tidak maka akan eror itu bisa diinput oleh kita dan perintah ini dikolom ke 8.

7.77 NPM PIC X(8). Angka 77 itu merupakan ketetapan untuk picture clause spasi namanya di x harus ada 20 jika tidak maka akan eror itu bisa diinput oleh kita dan perintah ini dikolom ke 8.

8.77 KELAS PIC X(5). Angka 77 itu merupakan ketetapan untuk picture clause spasi namanya di x harus ada 5 jika tidak maka akan eror itu bisa diinput oleh kita dan perintah ini dikolom ke 8.

9.01 PIL PIC A. maksudnya kita akan menginput pictue clause yang ada di A dan perintah ini dikolom ke 12.

10.88 YA VALUE ‘Y’ , ‘Y’. 88 tersebut adalah ketetapan dan value itu jika kondisinya ya untuk statement ‘y’ dan ‘Y’ di display dan perintah ini dikolom ke 12.

11.88 TDK VALUE ‘T’,’t’. 88 TERSEBUT adalah ketetapan dan value itu jika kondisinya tidak untuk statement ‘t’ dan ‘T’ di display dan perintah tersebut dikolom 12.

12.01 CLS. fungsinya sama dengan di quick basic yaitu menghapus layar dan perintah ini dikolom ke 8.

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

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

15.MULAI. untuk memulai kita ngoding apa yang kita inginkan didalam suatu program tersebut dan perintah ini dikolom ke 8.

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

17.DISPLAY (, ) ‘NAMA : ‘,ACCEPT NAMA. Maksudnya akan ditampilkan di monitor NAMA dan akan di input datanya dan dia jika kita input nama kita akan keluar. Dan tanda (, ) agar rapih dan tidak berantakan dan perintah ini dikolomke12.

18. DISPLAY (, ) ‘NPM : ‘,ACCEPT NPM. Maksudnya akan ditampilkan di monitor NPM dan akan di input datanya dan dia jika kita input nama kita akan keluar. Dan tanda (, ) agar rapih dan tidak berantakan dan perintah ini dikolomke12.

19. DISPLAY (, ) ‘KELAS : ‘,ACCEPT KELAS. Maksudnya akan ditampilkan di monitor KELAS dan akan di input datanya dan dia jika kita input nama kita akan keluar. Dan tanda (, ) agar rapih dan tidak berantakan dan perintah ini dikolomke12.

20.DISPLAY SPACE. Untuk tampilan yang dikasih spasijarak kebawah dan perintah ini dikolom ke8.

21.DISPLAY(, ) ‘APA ANDA YAKIN INGIN MENCETAK ?(Y/T) akan menampilkan dilayar monitor apa anda yakin ingin mencetak? Ya/tidak dan perintah ini dikolomke12.

22.accept pil nah tadi kana da perintah pil terus pil tersebut dipanggil untuk memenuhi statement dan perintah ini dikolomke12.

23.IF TDK GO TO MULAI. Jika tidak maka program inputnya kembali ke nama lagi dan perintah ini dikolomke12.

24.HASIL. untuk menampilkan hasil dan perintah ini dikolomke8.

25.DISPLAY SPACE. Untuk tampilan yang dikasih spasijarak kebawah dan perintah ini dikolom ke12.

26.DISPLAY ‘__________OUTPUT_________” untuk menampilkan kata yang disebelah.

27.DISPLAY ‘NAMA SAYA ‘ NAMA. Untuk menampilkan nama saya adalah… dan diambil atau dicopy di pil a dan perintah ini dikolom 12.

28.DISPLAY ‘NPM SAYA’ NPM. Untuk menampilkan npm saya adalah…dan diambil atau dicopy di pil a dan perintah ini dikolom 12.

29.DISPLAY ‘SAYA BERADA DIKELAS ‘KELAS. Untuk menampilkan saya berada dikelas…. dan diambil atau dicopy di pil a dan perintah ini dikolom 12.

29.SELESAIuntuk mengakhiri intruksi input program kita dan perintah ini dikolom ke 8.

30.STOP RUN untuk menyelesaikan program run cob dan perintah ini dikolom 12.

*PROGRAM LUAS

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

6.02 P PIC 9(2). Berarti picture clause yang kita input harus 2 nomer tergantung programmer mau ngasih berapa picture clausenya dan perintah ini dikolom 12.

7. 02 L PIC 9(2). Berarti picture clause yang kita input harus 2 nomer tergantung programmer mau ngasih berapa picture clausenya dan perintah ini dikolom12.

8.02 HASIL PIC 99 berarti hasil yang kita input diatas jika dikaliin tidak boleh lebih dari 99 hasilnya. Dan perintah ini dikolom 12.

9. 01 CLS. fungsinya sama dengan di quick basic yaitu menghapus layar 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 sesuai dengan procedure division dan perintah ini dikolom ke 8.

12. MULAI. untuk memulai kita ngoding apa yang kita inginkan didalam suatu program tersebut dan perintah ini dikolom ke 8.

13. DISPLAY “PROGRAM LUAS PERSEGI PANJANG”, akan menampilkan di layar program luas persegi panjang mulai dan perintah ini dikolom ke 12.

14 DISPLAY “==============================” , akan menampilkan dilayar ================= MULAI. untuk memulai kita ngoding apa yang kita inginkan didalam suatu program tersebut dan perintah ini dikolom ke 8.

15.DISPLAY (, ) “MASUKKAN PANJANG :”, nanti ditampilan monitor ada tulisan masukkan panjang dan perintah ini dikolom ke 12.

16.ACCEPT P. akan menerima panjang yang kita input dan perintah ini dikolom ke 12.

17. DISPLAY (, ) “MASUKKAN LEBAR :”, nanti ditampilan monitor ada tulisan masukkan lebar dan perintah ini dikolom ke 12.

18. ACCEPT L. akan menerima lebar yang kita input dan perintah ini dikolom ke 12.

19.COMPUTE HASIL = P * L , maksudnya kita akan menghitung hasil perkalian dari panjang * lebar dan perintah ini dikolom ke 12.

20.DISPLAY SPACE Untuk tampilan yang dikasih spasijarak kebawah dan perintah ini dikolom ke12.

21.DISPLAY “LUAS PERSEGI = “, HASIL. Maksudnya akan ditampilkan dimonitor luas persegi panjang = hasilnya berapa? dikolom ke12.

22. SELESAIuntuk mengakhiri intruksi input program kita dan perintah ini dikolom ke 8.

23.STOP RUN untuk menyelesaikan program run cob dan perintah ini dikolom 12.

*CATATAN (“) tanda ini untuk memasukkan tampilan diawali dan diakhiri dengan tanda seperti ini.

Jika kita ingin memasukkan program yang ada picture clausenya kita menggunakan accept.

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 sahrul.cob untuk mecompile program cobol dan tyu 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 sahrul.cob untuk merun program cobol dan tyu adalah nama program yang ingin dijalankan enter 1x dan akan muncul hasil runnya.

Cari Blog Ini

Fahrul Seftian

Komentar

Posting Komentar

Postingan Populer