BIODATA COBOL

LAPORAN AKHIR

Nama                           : Halimah

Npm                            : 14114710

Kelas                           : 2KA26

Baris                            : 2

Hari/Tanggal               : Jumat, 23 Oktober 2015

Materi                          : Cobol

Ketua Asisten             : Aries

Asisten Baris               : Dista Iriani

Paraf Asisten

(……………...............)

LABORATORIUM SISTEM INFORMASI

UNIVERSITAS GUNADARMA

PTA 2015/2016

Program cobol BIODATA dengan KONDISI. Langkah pertama yang kita lakukan untuk menjalankan Cobol adalah buka command prompt dengan cara tekan logo windows+R lalu kita masih berada didalam local disk C, pindahkan ke local disk D dengan cara d: kemudian setelah berada didalam direktori D masuk lagi kedalam direktori COBOL dengan cara cd COBOL. Disini cd (nama folder) adalah perintah untuk masuk kedalam folder yang kita inginkan atau berpindah kedirektori cobol. Disini tujuan kita adalah untuk masuk kedalam folder cobol maka saya menuliskan di cmd “cd COBOL.

Setelah berada didalam direktori cobol ketikkan Edit namafile.cob seperti gambar dibawah ini: 

Lalu akan tampil layar magentascreen cobol kemudian tulis atau codingkan seperti gambar dibawah ini. Tampilan layar untuk mengkoding ini  hampir sama dengan tampilan coding di Pascal maupun QBasic. Sebelum menjelaskan logikanya ada persyaratan dalam cobol yaitu persyaratan untuk mengcoding di cobol adalah akhir dari instruksi atau perintah harus diakhiri oleh tanda titik (.) jika tidak diakhiri dengan tanda titik maka program  tidak akan dimengerti oleh cobol (Error). Selanjutnya jika ingin menuliskan divisi-divisi pada cobol harus di coloumn 8 , jika tidak dituliskan di coloumn 8 maka program akan error. dan untuk menampilkan program menggunakan perintah “DISPLAY” , perintah DISPLAY harus dituliskan dicoloumn 12 , jika tidak dituliskan dicoloumn 12 maka program akan error. Program COBOL merupakan salah satu bahasa pemrograman yang sangat sensitive. Lihat gambar dihalaman berikut.

Pada line 1 coloumn 8 ketikan codingan IDENTIFICATION DIVISION. yang berarti merupakan divisi yang pertama dalam cobol yang sederhana dan berisi informasi tentang program yang bersangkutan, nama pembuat program, tanggal pembuatan, menggunakan bahasa apa dan yang harus ada didalam program, tetapi isinya tidak mempengaruhi jalannya/ proses dari program. disini contoh dari identification division adalah PROGRAM-ID DAN AUTHOR setelah diakhir perintah jangan lupa diakhiri. (titik)

Pada line 2 coloumn 8 ketikan kodingan PROGRAM-ID. LY. Yang merupakan isi dari IDENTIFICATION DIVISION yang berarti nama program dengan nama “LY” Yang merupakan isi dari IDENTIFICATION DIVISION yang berarti nama program dengan nama “LY”. Panjang karakter yang dapat dibaca pada PROGRAM-ID hanyalah 6 karakter saja. Jika karakter yang dituliskan pada PROGRAM-ID lebih dari 6 karakter tidak menjadi masalah tetapi program hanya dapat membaca 6 karakter saja. Jangan lupa diakhiri (titik) disetiap akhir statement. selanjutnya pada line 3 coloumn 8 ketikan kodingan AUTOR. HALIMAH. Yang berati program ini dibuat oleh Halimah yang diakhiri titik setelah author dan titik lagi setelah nama programmer, diusahakan menulis dengan huruf capital.

Pada line 4 coloumn 8 ketikan kodingan ENVIRONMENT DIVISION. yang berarti untuk menyediakan informasi mengenai peralatan yang dipergunakan dalam program cobol sebagai divisi ke-2. Jangan lupa titik setelah divisi.

Pada line 5 coloumn 8 ketikan kodingan DATA DIVISION. divisi ini menjelaskan tentang input & output data yang digunakan serta semua keterangan tentang file, record, nama data serta bentuk format yg akan digunakan dalam PROCEDURE DIVISION.

Pada line 6 coloumn 8 ketikan kodingan WORKING-STORAGE SECTION. digunakan untuk Digunakan untuk mendeklarasikan variabel dan tipe data yang digunakan dalam program COBOL atau Untuk pemesanan program di internal memory (STORAGE) yang diperlukan oleh pekerjaan (working) proses program.

Pada line 7 coloumn 8 ketikan kodingan 77 NAMA PIC A(20). Level number 77 digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE
SECTION atau berarti var NAMA tidak akan diproses dalam cobol karena nama terdapat diline 77 yang itemnya berdiri sendiri dan paragraf nama menyediakan karakter nama sebanyak 20 baris  dan PIC A digunakan untuk menyimpan data dalam bentuk alphabetic dan bersifat rata kiri.

Pada line 8 coloumn 8 ketikan kodingan 77 NPM PIC X(8). Sama seperti diatas, Level number 77 digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE SECTION atau berarti var NPM tidak akan diproses dalam cobol karena npm terdapat diline 77 yang itemnya berdiri sendiri dan paragraf npm menyediakan karakter npm sebanyak 8 baris  dan PIC X digunakan untuk menyimpan data dalam bentuk alphanumeric atau
campuran huruf, angka dan special karakter. Bersifat rata kiri.

Pada line 9 coloumn 8 ketikan kodingan 77 KELAS PIC X(5). Sama seperti diatas, Level number 77 digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE SECTION atau berarti var KELAS tidak akan diproses dalam cobol karena kelas terdapat diline 77 yang itemnya berdiri sendiri dan paragraf kelas menyediakan karakter kelas sebanyak 5 baris  dan PIC X digunakan untuk menyimpan data dalam bentuk alphanumeric atau campuran huruf, angka dan special karakter. Bersifat rata kiri.

Pada line 10 coloumn 8 ketikan kodingan 77 UMUR PIC X(5). Sama seperti diatas, Level number 77 digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE SECTION atau berarti var UMUR tidak akan diproses dalam cobol karena umur terdapat diline 77 yang itemnya berdiri sendiri dan paragraf umur menyediakan karakter umur sebanyak 5 baris  dan PIC X digunakan untuk menyimpan data dalam bentuk alphanumeric atau campuran huruf, angka dan special karakter. Bersifat rata kiri.

Pada line 11 coloumn 8 ketikan kodingan 01 PIL PIC A.  Level number 01 digunakan sebagai pilihan dari PIC A, pic A disini digunakan untuk menyimpan data dalam bentuk alphabetic dan bersifat rata kiri.

Pada line 12-13 terdapat 2 variabel yaitu YA dan TIDAK dengan 2 kondisi Y/T

Pada line 12 coloumn 12 ketikan kodingan 88 YA VALUE ‘Y’ , ‘y’. Level number 88 ini digunakan untuk mengawali suatu nama kondisi. Dalam hal ini, jika statement YA adalah Y besar atau y kecil tidak berpengaruh.

Pada line 13 coloumn 12 ketikan kodingan 88 TIDAK VALUE ‘T’ , ‘t’. sama seperti diatas Level number 88 ini digunakan untuk mengawali suatu nama kondisi. Dalam hal ini, jika statement TIDAK adalah T besar atau t kecil tidak berpengaruh.

Pada line 14 coloumn 8 ketikan kodingan SCREEN SECTION. digunakan untuk menunjukkan bentuk format layar terminaluntuk menampilkan atau memasukkan data.

Pada line 15 coloumn 8 ketikan kodingan 01 CLS. Level number 01 digunakan untuk membersihkan layar.

Pada line 16 coloumn 12 ketikan kodingan 02 BLANK SCREEN pada level number 2 digunakan untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas (baris1, kolom1).

Pada line 17 coloumn 8 ketikan kodingan PROCEDURE DIVISION. Merupakan inti dari pemrograman COBOL dan untuk memuat procedure pemrosesan data disini berisi paragraph - paragraph yang terdiri dari instruksi untuk pelaksanaan program. setelah statement divisi diakhiri dengan (titik).

Setelah PROCEDURE DIVISION, pada line 18 coloumn 8 ketikan kodingan MULAI. Lalu (titik) disini, nama fungsi ini bisa sesuka hati kita. Bisa dalam bahasa inggris misalnya start, begin dan sebagainya diakhiri dengan titik. Fungsi mulai disini untuk menampilkan output.

Pada line 19 coloumn 12 ketikan kodingan DISPLAY CLS. Display selalu berada di coloumn 12. DISPLAY CLS disini digunakan untuk menghapus atau membersihkan layar setelah layar menampilkan statement

Pada line 20 coloumn 12 ketik kodingan DISPLAY (, ) ‘NAMA     : ‘ , ACCEPT NAMA. Karena dia karakternya string maka gunakan petik satu atau dua. Untuk Display selalu berada di coloumn 12. Koma atau picture editing (,) disini digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 dan DISPLAY digunakan untuk perintah menampilkan tulisan NAMA : . Fungsi ACCEPT digunakan untuk memasukan data lewat layar sewaktu program tersebut dijalankan (runtime). Jadi jika kita memakai display dan accept akan menampilkan apapun yang kita input. Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Pada line 21 coloumn 12 ketik kodingan DISPLAY (, ) ‘NPM        : ‘ , ACCEPT NPM. Gunakan petik satu atau dua. Untuk Display selalu berada di coloumn 12. Koma atau picture editing (,) disini digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 dan DISPLAY digunakan untuk perintah menampilkan tulisan NPM : . Fungsi ACCEPT digunakan untuk memasukan data lewat layar sewaktu program tersebut dijalankan (runtime). Jadi jika kita memakai display dan accept akan menampilkan apapun yang kita input. Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Pada line 22 coloumn 12 ketik kodingan DISPLAY (, ) ‘KELAS   : ‘ , ACCEPT KELAS. Gunakan petik satu atau dua. Untuk Display selalu berada di coloumn 12. Koma atau picture editing (,) disini digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 dan DISPLAY digunakan untuk perintah menampilkan tulisan KELAS : . Fungsi ACCEPT digunakan untuk memasukan data lewat layar sewaktu program tersebut dijalankan (runtime). Jadi jika kita memakai display dan accept akan menampilkan apapun yang kita input. Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Lihat gambar diatas, dilanjutkan lagi pada line 23 coloumn 12 ketik kodingan DISPLAY (, ) ‘UMUR : ‘ , ACCEPT KELAS. Gunakan petik satu atau dua. Untuk Display selalu berada di coloumn 12. Koma atau picture editing (,) disini digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 dan DISPLAY digunakan untuk perintah menampilkan tulisan UMUR : . Fungsi ACCEPT digunakan untuk memasukan data lewat layar sewaktu program tersebut dijalankan (runtime). Jadi jika kita memakai display dan accept akan menampilkan apapun yang kita input. Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Pada line 24 coloumn 12 ketik kodingan DISPLAY SPACE Untuk memberikan jarak atau spasi antara line ke-24 dengan lainnya.

Pada line 25 coloumn 12 ketik kodingan DISPLAY ‘______________________’. . Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan garis _____________ sebagai pembatas atau bingkai. Jangan lupa setiap statement diakhiri tanda titik.

Pada line 26 coloumn 12 ketik kodingan DISPLAY(, ) ‘APA ANDA YAKIN INGIN MENCETAK? (Y/T)’ Gunakan petik satu atau dua. Untuk Display selalu berada di coloumn 12. Koma atau picture editing (,) disini digunakan untuk memberikan tanda koma pada tempat-tempat tertentu, dan boleh digunakan lebih dari 1 dan DISPLAY digunakan untuk perintah menampilkan tulisan APA ANDA YAKIN INGIN MENCETAK? (Y/T). Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Pada line 27 coloumn 12 ketik kodingan ACCEPT PIL. Fungsi ACCEPT digunakan untuk memasukan data lewat layar sewaktu program tersebut dijalankan (runtime) diambil dari display apa anda yakin ingin mencetak. Jadi jika kita memakai display dan accept akan menampilkan apapun yang kita input. Dan jangan lupa setiap perintah di cobol harus di akhiri dengan tanda titik (.)

Pada line 28 coloumn 12 ketik kodingan IF TIDAK GO TO MULAI. Disini menggunakan kondisi IF, jika kita memeilih TIDAK atau T besar atau T kecil maka akan kembali ke mulai statement awal dituliskan. 

Pada line 29 coloumn 12 ketik kodingan HASIL. Hasil merupakan nama fungsi yang sesuka hati kita buat, disini gunanya adalah untuk memberitahu output dari hasil kodingan yang kita pilih jika yakin untuk mencetak, sama saja seperti logika diatas.

Pada line 30 coloumn 12 ketik kodingan DISPLAY SPACE Untuk memberikan jarak atau spasi antara line ke-30 dengan lainnya.

Pada line 31 coloumn 12 ketik kodingan kodingan DISPLAY ‘______________________’. . Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan garis _____________ sebagai pembatas atau bingkai. Jangan lupa setiap statement diakhiri tanda titik.

Pada line 32 coloumn 12 ketik kodingan DISPLAY ‘NAMA SAYA ‘ NAMA. Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan tulisan NAMA SAYA dengan memanggil variable NAMA. Jangan lupa setiap statement diakhiri tanda titik. Misal nama saya HALIMAH

Pada line 33 coloumn 12 ketik kodingan DISPLAY ‘NPM SAYA ‘ NPM. Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan tulisan NPM SAYA dengan memanggil variable NPM. Jangan lupa setiap statement diakhiri tanda titik. Misal NPM saya 14114710.

Pada line 34 coloumn 12 ketik kodingan DISPLAY ‘SAYA BERADA DIKELAS ‘ KELAS. Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan tulisan SAYA BERADA DIKELAS dengan memanggil variable kelas. Jangan lupa setiap statement diakhiri tanda titik. Misal SAYA BERADA DIKELAS 2KA26

Pada line 35 coloumn 12 ketik kodingan DISPLAY ‘UMUR SAYA ‘ NAMA. Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan tulisan UMUR SAYA dengan memanggil variable umur. Jangan lupa setiap statement diakhiri tanda titik. Misal UMUR SAYA 18

Pada line 36 coloumn 12 ketik kodingan DISPLAY ‘______________________’. . Untuk Display selalu berada di coloumn 12. DISPLAY digunakan untuk perintah menampilkan garis _____________ sebagai pembatas atau bingkai. Jangan lupa setiap statement diakhiri tanda titik.

Pada line 37 coloumn 8 ketik kodingan HENTI. Sama seperti kodingan MULAI. Nama fungsi ini juga sesuka hati kita. Bisa dalam bahasa inggris misalnya end, fungsi selesai disini untuk menghentikan jalannya program. diakhiri selalu titik.

Pada line 38 coloumn 12 ketikan kodingan STOP RUN. Berarti program berakhir atau telah berhenti dan siap dijalankan. Diakhiri dengan titik.

Setelah selesai pada cmd cobol simpan program tersebut dengan cara File – Save – namafile.cob disini saya memberi nama kondisi.cob setelah disimpan, masuk kedalam cmd kedua atau beda dengan cmd yang kita tuliskan program cobol. Disini cmd ke-2 berfungsi untuk mengcompile atau menjalankan program cobol tersebut dengan cara ketik COBOL namafile.cob;

Misal disini namafile saya adalah kondisi berarti cara mengcompilenya adalah COBOL kondisi.cob; disini digunakan titik koma berfungsi agar tidak melakukan enter 2 kali, dengan kata lain secaraa otomatis akan keluar keterangan apakah ada kesalahan atau tidak. Seperti gambar halaman berikut ini

 

Jika tidak ada kesalahan atau no error makadilanjutkan dengan ngerun dengan cara RUNCOBOL namafile.cob Misal disini namafile saya adalah haha berarti cara ngerun adalah RUNCOBOL kondisi.cob kemudian akan muncul output seperti tampilan dibawah ini, sebelum itu karena ada perintah ACCEPT maka kita memasukan input terlebih dahulu dank arena ada kondisi YAKIN UNTUK MENCETAK jika Y maka akan tercetak seperti tampilan dibawah ini.