Contoh Program Sederhana COBOL

Berikut adalah contoh pemrograman COBOL beserta logikanya :    

       

IDENTIFICATION DIVISION.
PROGRAM-ID. ProgFile.
AUTHOR. DEDE ANGGRIAWAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8).
03 TUNJANGAN PIC 9(8).
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.
SCREEN SECTION.
01 HAPUS-LAYAR.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR.
DISPLAY (1,1)'NAMA ANDA :'.
ACCEPT NAMA.
DISPLAY (2,1) 'GAJI POKOK :Rp.'.
ACCEPT GAJI-POKOK.
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'.
ACCEPT TUNJANGAN.
HITUNG-GAJI.
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN.
CETAK-HASIL. 
DISPLAY HAPUS-LAYAR.
DISPLAY '********** GAJI ANDA UNTUK BULAN INI **********'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA.
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK.
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN.
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'.
ACCEPT TANYA.
IF LAGI GO TO MASUKKAN-DATA.
SELESAI.
STOP RUN.

Logika :

IDENTIFICATION DIVISION adalah merupakan divisi yang pertama dalam program COBOL dan yang paling sederhana. Pada divisi ini berisi keterangan mengenai AUTHOR (nama programmer),AUTHOR pada program ini adalah DEDE ANGGRIAWAN.

PROGRAM-ID. PROGFILE adalah merupakan divisi yang menjelaskan Program apa yang sedang dijalankan, disini Program yang digunakan adalah progfile.

ENVIRONMENT DIVISION dalam program cobol sebagai divisi ke-2. Berisi dokumentasi informasi mengenai peralatan yang dipergunakan. 

DATA DIVISON, 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.

WORKING-STORAGE SECTION. Merupakan section yang berisi tentang record-description-entri yaitu penjelasan tentang record program yang digunakan ,

01 DATA-MASUKAN.
02 NAMA PIC A(20).
02 GAJI.
03 GAJI-POKOK PIC 9(8). 
03 TUNJANGAN PIC 9(8). record-description-entri
03 TOTAL-GAJI PIC Z(8).
01 TANYA PIC A.
88 LAGI VALUE IS 'Y', 'y'.
88 TIDAK VALUE IS 'T', 't'.


SCREEN SECTION. Merupakan salah satu Section dalam Data division, yang berfungsi sebagai penghapus, ataupun pembersih layar
01 HAPUS-LAYAR.
02 BLANK SCREEN. Screen-description-entri 

PROCEDURE DIVISION merupakan gambaran logika yg digunakan untuk menyelesaikan masalah, sehingga divisi ini merupakan inti dari program COBOL. Di dalam PROCEDURE DIVISION ini terdapat keterangan :
MASUKKAN-DATA.
DISPLAY HAPUS-LAYAR. Untuk menghapus layar/membersihkan layar 
DISPLAY (1,1)'NAMA ANDA :'. Menambahkan statement “NAMA ANDA”
ACCEPT NAMA. Untuk menginput nama
DISPLAY (2,1) 'GAJI POKOK :Rp.'. Menambahkan statement “GAJI POKOK”
ACCEPT GAJI-POKOK. menginput GAJI-POKOK
DISPLAY (3,1) 'BESARNYA TUNJANGAN :Rp.'. statement “BESARNYA TUNJANGAN”
ACCEPT TUNJANGAN. menginput tunjangan
HITUNG-GAJI. statement yang digunakan untuk mendeklarasian perhitungan 
COMPUTE TOTAL-GAJI = GAJI-POKOK + TUNJANGAN. menhitung data yang telah diinput
CETAK-HASIL. 
DISPLAY HAPUS-LAYAR.
DISPLAY ********** GAJI ANDA UNTUK BULAN INI **********'.
DISPLAY ''.
DISPLAY 'NAMA :', NAMA. Paragraf ini adalah untuk 
DISPLAY 'GAJI POKOK :Rp.', GAJI-POKOK. membuat output yang akan 
DISPLAY 'BESARNYA TUNJANGAN :Rp.', TUNJANGAN. muncul di layar
DISPLAY 'TOTAL GAJI :Rp.', TOTAL-GAJI.
TANYAKAN.
DISPLAY SPACE.
DISPLAY 'INGIN MENGHITUNG GAJI YANG LAIN (Y/T) ?'. paragraf ini adalah 
ACCEPT TANYA. pertanyaan yang mengunakan 
IF LAGI GO TO MASUKKAN-DATA. fungsi logika
SELESAI.
STOP RUN. Untuk Menghentikan program.

Mahasiswa Menyukai yang Instan

MAHASISWA sosok pejuang masa depan yang dapat memberi pengaruh terhadap perkembangan bangsa. Dengan bekal kemampuan yang diterima dari proses pendidikan yang telah dilaluinya, mereka dapat mengaplikasikan ilmunya dalam kehidupan nyata.

Misal seorang pedagang, walaupun pekerjaan yang sederhana namun memberi pengaruh besar terhadap perekonomian bangsa.
Mahasiswa sekarang ini amat cemas dengan masa depannya. Oleh karena itu, mahasiswa sekarang cenderung hanya berburu ijazah dengan melakukan usaha apapun untuk memberikan efek positif untuk ijazahnya. Contohnya saja, sekarang banyak terjadi transaksi jual beli skripsi.

Tak sedikit yang melakukan hal itu, karena mereka ingin mendapatkan nilai yang baik dalam kelulusan dengan cara instan. Seharusnya mahasiswa tak perlu melakukan hal itu. Pada seleksi masuk kerja tak hanya mengutamakan nilai ijazah yang baik, tapi juga kemampuan yang menjanjikan. Percuma saja jika nilai ijazah bagus tapi tidak diseimbangi dengan kemampuan yang memadai. Apakah kita tetap ingin menjadi mahasiswa yang hanya terpaku pada nilai kelulusan atau berbekal kemampuan yang menjanjikan?

Keputusan ada di tangan kita!!!

SISTEM PELAYANAN BAAK

Banyak sekali manfaat dari pelajaran Teknologi Informasi dan Komunikasi. Peningkatan kualitas hidup semakin menuntut manusia untuk melakukan berbagai aktifitas yang dibutuhkan dengan mengoptimalkan sumber daya yang dimilikinya. Teknologi Informasi dan Komunikasi yang perkembangannya begitu cepat secara tidak langsung mengharuskan manusia untuk menggunakannya dalam segala aktivitasnya. Beberapa penerapan dari Teknologi Informasi dan Komunikasi antara lain dalam perusahaan, dunia bisnis, sektor perbankan, pendidikan, dan kesehatan. 

Internet merupakan alat komunikasi yang murah dimana memungkinkan terjadinya interaksi antara dua orang atau lebih. Kemampuan dan karakteristik internet memungkinkan terjadinya proses belajar mengajar jarak jauh (E-Learning) menjadi lebih efektif dan efisien sehingga dapat diperoleh hasil yang lebih baik.

Dengan internet penddikan saat ini lebih berkembang dan para pelajar bisa menjadikan internet sebagai media informasi dan media mencari sebuah solusi yang saat ini tengah ia geluti.bahkan dengan internet banyak pendidikan yang menggunakannya sebagai media mengenalkan Sekolahnya dan mengenalkan sistem pembalajarannya.

Seperti halnya di web BAAK Gunadarma salah satu Universitas swasta terbaik Di Indonesia,menerapkan web.BAAK.gunadarma.ac.id sebagai media yang menangani yang berkaitan penyelenggaraan belajar mengajar dan Administrasi akademik bagi seluruh mahasiswa Gunadarma.melalui BAAK inilah mahasiswa tidak perlu datang langsung ke Kampus untuk mengetahui informasi tentang kampus. BAAK online memang sangat - sangatlah bermanfaat guna mengetahui tentang prosedur Pembayaran maupun hal-hala yang lainnya yang berkaitan dengan Kampus,seperti halnya pencarian Dosen,pencarian ruang kelas,Dll.

Dibalik semua fasilitas fasilitas BAAK Online yang begitu baik dan terkendali dengan teratur, menurut saya masih ada sedikit kekurangannya, yaitu dimana Di BAAK tersebut ada sebuah Kontak via email apabila terdapat data yang tidak akuran atau ada kesalahan data, pernah saya mengirimkan keluhan karena tidak bisa masuk web studentsite kekontak BAAK tetapi telat dalam membalas keluhan saya.Hal inilah inilah yang menurut saya pribadi kurang adanya perhatian atau  penangani khusus  apabila seseorang mengalami keluhan atau aksesnya kurang dipahami.

saya rasa keluhan saya tadi bisa menjadikan fasilitas layanan di BAAk Online menjadi lebih baik dan perfect, bahkan bukan hanya layanan BAAK Online saja yang baik tetapi layanan-layanan Online lainnya yang ada di Universitas Gunadarma menjadi yang terbaik dan sempurna.

MAHASISWA HANYA MENGEJAR GELAR

Melihat realitas yang terjadi, khususnya di kalangan perguruan tinggi, mayoritas mahasiswa masih belum mampu memahami identitas sosialnya. Yakni, sebagai generasi dengan sikap progresif dan militansi cukup signifikan untuk mendorong perubahan masyarakat.

Kebanyakan mahasiswa hanya sibuk dengan tugas yang diberikan oleh dosen. Mereka jarang terlibat kegiatan-kegiatan di masyarakat, sehingga tidak mengerti perkembangan di masyarakat itu sendiri.

Mahasiswa harus mampu menyeimbangkan diri terhadap kondisi sosial masyarakat, sehingga kegiatan di kampus tidak semata-mata kuliah  dan kemudian pulang mengerjakan tugas-tugas yang diberikan dosen. Di balik itu semua, mahasiswa mempunyai tugas dan peran yang penting dalam masyarakat, terutama untuk kemajuan negara Indonesia.

Fakta yang terjadi di kalangan mahasiswa sekarang sangat berlawanan dengan pandangan masyarakat pada umumnya, tidak memiliki harkat dan martabat tinggi. Karena masih banyak lulusan mahasiswa yang sulit mencari kerja dan bertindak anarkis yang kurang mencermikan agen perubahan.

Pembangunan idealisme akan kesadaran kritis bukanlah yang bersifat progresif terhadap realitas. Peran mahasiswa sebagai kaum intelektual sudah terdegradasi. Padahal mahasiswa adalah harapan rakyat sebagai regenerasi muda bangsa Indonesia. Akan tetapi, apa yang diinginkan oleh mahasiswa tidak sejalan dengan keinginan rakyat, bahkan rakyat menilai jika mahasiswa itu hanya bisa bertindak anarkis saja.

Sebagian besar mahasiswa di era sekarang ini, hanya mengejar gelar. Mahasiswa seakan-akan tidak peduli dengan segala kebutuhan masyarakat tehadap pemerintah. Hanya segelintir mahasiswa yang masih mau menyalurkan amanat dari masyarakat dengan cara yang baik.

Selain itu mahasiswa sekarang yang mengalami degradasi, baik dari segi intelektualisme, idealisme, patriotisme, maupun semangat jati diri mereka, cenderung untuk berpikir pragmatis dalam menghadapi persoalan. Hal tersebut terjadi karena pengaruh budaya barat yang tidak terkendali telah meracuni pemuda dan mahasiswa.

Kesimpulannya adalah peran mahasiswa sangat besar, namun mereka kurang sadar akan hal tersebut, sehingga mereka hanya dengan mudahnya menyelesaikan persoalan menggunakan emosi. Lepas dari pandangan buruk tentang mahasiswa, masih banyak mahasiswa yang menggunakan intelektualnya untuk ikut serta membangun masyarakat.