MEMBUAT BIODATA MAHASISWA PADA COBOL

Sejarah Singkat Cobol

COBOL adalah kepanjangan dari Common Bussiness Oriented Language. Bahasa COBOL  digolongkan sebagai High Level Language (bahasa pemrograman tingkat tinggi) yang berorientasi pada masalah bisnis. Diciptakan pada tahun 1959.

COBOL atau Common Bussiness Oriented Language adalah bahasa pemrograman komputer, yang dirancang untuk menyelesaikan persoalan bisnis.

COBOL pertama kali diperkenalkan secara formal bulan Januari 1960 dan disebut dengan COBOL-60. Dan diperbaharui tahun 1965. Pada tahun 1968 dan 1974, bahasa COBOL dikembangkan dan distandarisasikan dengan nama ANSI COBOL (American National Standarts Institute).

Bahasa pemrograman COBOL sangat terstruktur, karena mudah dibaca dan memiliki struktur yang jelas. COBOL dibuat untuk operasi pengolahan data,  yaitu membaca data, memproses data dan menghasilkan output berupa informasi

Pada kali ini kita akan membuat data dengan menggunakan program cobol yaitu membuat cover laporan pendahuluan dan membuat biodata.

Langkah awal untuk membuat cover laporan pendahuluan. 

-        

• Langkah pertama di program cobol ini kita menuliskannya dicolom 8 dan jangan upa diakhiri dengan titik

•  Pertama kita masukan (Identification Division) yang artinya seperti judul, seperti contoh skrg kita membuat BIODATA maka di bawahnya identification ada program-id.
•   Kita masukan (Author)
• Selanjutnya kita masukan (Environment Division) yang artinya  berguna untuk memberikan informasi peralatan yang digunakan dalam program
• Lalu (Data Division ) yang artinya divisi yang memberikan izin untuk jalannya suatu program
• Selanjutnya (Working-Storage Section) yang artinya digunakan untuk mendeklarasikan variable dan tipe data
•   Langkah selanjutnya kita masukan 01 data masuk
• Selanjutnya kita masukan 02 Nama Pic A(20). yang artinya memasukan variable bertipe alphanumeric dan panjang maksimalnya 20
•  Lalu masukan Npm Pic 9 (08) yang artinya bertipe variable dengan panjang maksimalnya
• Dan kita masukan statement Kelas,Tanggal,Baris,Ketua & Asisten
• Selanjutnya kita masukan Screen Division yang artinya untuk membuka layar baru
•  Lalu kita masukan CLS yang artinya menghapus layar sebelumnya   
• Lalu kita masukan procedure division untuk meletakkan sintaks atau statement yang kita ingin masukkan 
•  Selanjutnya kita masukan statement MULAI 
•  Langkah selanjutnya kita masukan Display Cls
•  Lalu masukan (Display (2,35) “laporan pendahuluan” yang artinya mencetak di baris 2 dan 35 menandakan kolomnya.
• Langkah selanjutnya kita masukan semua statementnya seperti digmbar atas
•  Lalu kita ketik selesai  
•  Selanjutnya kita ketik stop run yang artinya untuk mengakhiri program. 

j  ini adalah outputanya : 

 

			Selanjutnya kita buat untuk biodatanya

Kodingannya hampir sama seperti awal kita membuat cover untuk laporan pendahuluan, cuman bedanya di program ini kita masukkan accept nama,kelas & npm yang artinya untuk menginputt.

Ini adalah hasil outputnya

PROGRAM NILAI DI COBOL

-          Langkah pertama di program cobol ini kita menuliskannya dicolom 8 dan jangan upa diakhiri dengan titik

-          Pertama kita masukan (Identification Division) yang artinya seperti judul

-          Selanjutnya kita masukkan program id. Output

-          Kita masukkan author seperti contohnya diatas

-          Selanjutnya kita masukan (Environment Division) yang artinya  berguna untuk memberikan informasi peralatan yang digunakan dalam program

-          Lalu (Data Division ) yang artinya divisi yang memberikan izin untuk jalannya suatu program

-          Selanjutnya (Working-Storage Section) yang artinya digunakan untuk mendeklarasikan variable dan tipe data

-          Selanjutnya kita masukkan 77 nama pic a(20) yang artinya memasukan variable bertipe alphanumeric dan panjang maksimalnya 20

-          Kita masukan kodingannya seperti diatas

-          langkah selanjutnya kita masukkan SCREEN SECTION berfungsi untuk menentukan format layar tampilan baik input atau output

-          kita masukan cls yang berfungsi untuk yang artinya menghapus layar sebelumnya

-          kita masukkan blank screen yang berfungsi untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.

-          Langkah selanjutnya masukan inputan

-          Selanjutnya kita masukkan ( 02 line 4 column  8value) “masukkan nama : “ dan masukan kodingan yang lainnya seperti diatas

-          Selanjutnya kita masukkan procedure division yang berfungsi untuk meletakkan sintaks atau statement yang kita ingin masukkan

-          Selanjutnya kita masukkan mulai

-          Selanjutnya kita masukan display cls dan display inputan.

-          Masukkan compute hasil = (uts * 0.7) + (uas * 0.3) yang artinya nilai uts akan dikali dengan 0,7

-          Selanjutnya masukkan if hasil > 60 yang artinya jika nilai lebih dari 60 akan keluar output anda lulus

Begitupun sama jika nilai kurang dari 50 makan akan keluar output anda tidak lulus

-          Langkah terakhir kita masukan stop run yang artinya untuk mengakhiri program

Dan ini hasil outputnya 

FILE SEQUENTIAL

-          Langkah pertama di program cobol ini kita menuliskannya dicolom 8 dan jangan upa diakhiri dengan titik

-          Pertama kita masukan (Identification Division) yang artinya seperti judul

-          Selanjutnya kita masukkan program id

-          Langkah awal adalah kita masukkan “Environment Division” yang artinya  berguna untuk memberikan informasi peralatan yang digunakan dalam program

-          Masukkan input-output section untuk memanggil input & output

-          Masukan file-control

-          Masukan Select Barang Assign To Disk yang artinya barang yang akan dipilih akan masuk ke disk

-          Lalu Organization Is Line Sequential berfungsi untuk data disk dibaca secara urut

-          Selanjutnya Acces Mode Is Sequential adalah dibaca secara urut

-          Lalu (Data Division ) yang artinya divisi yang memberikan izin untuk jalannya suatu program

-          File section berfungsi untuk keterangan file

-          Masukan FD Barang

-          Lalu Label Record Is Standard berfungsi untuk disk file mempunyai label

-          Selanjutnya Value Of  File-Id Is ‘Barang.Dat’ berfungsi untuk membuat file baru nama filenya adalah barang.dat

-          Masukkan Data Record Is Recbarang berfungsi untuk nama file recordnya

-          Masukkan 01 RecBarang untuk membuat suatu record

-          Masukkan 02 Nama-Barang Pic A(25) yang artinya memasukan variable bertipe alphanumeric dan panjang maksimalnya 25

-         Lalu 02 Kode-Barang Pic 9(3) yang artinya bertipe variable dengan panjang maksimalnya 3

-          Selanjutnya (Working-Storage Section) yang artinya digunakan untuk mendeklarasikan variable dan tipe data

-          Masukkan 01 Tambah-Data Pic X berfungsi untuk output dan menambahkan data bertipe alphanumeric

-          Masukkan 88 Ya Value ‘Y’ , ‘y’ artinya kalau kita memilih ya maka kita bisa menambahkan data

-          Lalu 88 Tidak Value ‘T’ , ‘t’ artinya tidak akan bisa menambah data

-          langkah selanjutnya kita masukkan SCREEN SECTION berfungsi untuk menentukan format layar tampilan baik input atau output

-          masukkan 01 hapus layar artinya untuk menghapus layar

-          kita masukkan blank screen yang berfungsi untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.

-          Masukkan 01 Input-Data yang berfungsi untuk mengiput data

-          Masukkan 02 Line 5 Column 8 Value ‘Nama Barang : ‘. Berfungsi untuk memasukan data di baris ke 5 kolom 8 untuk nama barang

-          Lalu 02 Column Plus 2 Pic A(25) To Nama-Barang berfungsi untuk menginput data sebanyak 2 kali

-          Masukan statement seperti diatas’

-          Selanjutnya kita masukkan procedure division yang berfungsi untuk meletakkan sintaks atau statement yang kita ingin masukkan

-          Masukkan Buka-File yang artinya untuk membuka file

-          Masukkan Open Ouput barang berfungsi untuk membuka outputan

-          Masukkan mulai untuk memulai program

-          Masukkan Display Hapus Layar berfungsi untuk menghapus layar sebelumnya

-          Masukkan Display (2,16) pengiriman barang yang artinya pada saat kita run program akan muncul tulisan pengiriman barang di baris ke 2 kolom ke 16

-          Masukkan Display Input-Data berfungsi untuk menampilkan data

-          Masukkan Accept-Data berfungsi untuk menerima data

-          Masukkan Write Recbarang

-          Masukkan Display(14,8) ‘Tambah Lagi Data[Y/T]?  yang berfungsi menampilkan tambah lagi data di baris 14 kolom 8

-          Masukkan Accept Tambah-Data

-          Masukkan If Ya Go To Mulai

-          Masukkan selesai yang artinya untuk menyelesaikan program

-          Masukkan Close Barang yang berfungsi menutup program

-          Masukan Stop Run yang artinya untuk mengakhiri program

Ini hasil outputnya :