Snippet

Mengenang Bersama Cobol

 
1.1. Pendahuluan
COBOL singkatan dari Common Business Oriented Language. Bahasa ini dikembangkan sekitar tahun 1960 oleh suatu Grup yang bernama CODASYL (COnference on Data SYstem Languange). Hasil pengembangan dari CODASYL ini kemudian dikembangkan oleh ANSI (American National Standard Association). Bahasa COBOL ini ditujukan untuk aplikasi Komputer dibidang bisnis dan administrasi. Bahasa COBOL termasuk bahasa Aras Tinggi (high level language) sehingga COBOL ini dapat digunakan pada berbagai jenis komputer. Pemograman COBOL kebanyakan digunakan untuk komputer Mainframe.
 
 
1.2. Aturan Penulisan
Dalam setiap bahasa pemograman terdapat struktur atau aturan-aturan penulisan tertentu misalnya dalam bahasa C yang merupakan bahasa yang case sencitive (huruf besar dan huruf kecil berpengaruh), begitu pula dalam bahasa COBOL yang mempunyai aturan penulisan tertentu adalah, dan aturan penulisan tersebut adalah sebagai berikut :
  • Program COBOL dapat ditulis sampai dengan kolom 80
  • Kolom 1-6 adalah kolom yang disediakan untuk memberi nomor urut baris-baris perintah bilamana diperlukan. Penomoran sifatnya optional(boleh ditulis boleh tidak).
  • Kolom 7 digunakan untuk :Bila kolom ini berisi karakter "-" (hypen) maka berart
     
    i baris ini adalah  sambungan dari bari diatasnya.
  • Kolom 8 sampai dengan 72 disebut dengan Area A.  Semua judul division, judul section, nama paagraph, judul file description  (FD), khusus level 01 dan level number 77 ditulis mulai kolom ini.
  • Kolom 73-80 tidak diproses oleh komputer. kolom ini dapat digunakan untuk komentar atau penjelasan program
  • Setiap baris perintah COBOL harus diakhiri dengan tanda "."(titik).
 
 
1.3.  Struktur Program
Setiap bahasa pemograman mempunyai stuktur program masing-masing begitu pula dengan COBOL. Dalam COBOL struktur programnya dibagi menjadi 4 bagian besar yang disebut dengan Division. Urutan dari division tersebut adalah :
 
        IDENTIFICATION DIVISION.
        ENVIRONMENT DIVISION.
        DATA DIVISION.
        PROCEDURE DIVISION.
 
Berikut penjelasan darike 4 division tersebut:
  • IDENTIFICATION DIVISION.
Divisi ini berisi Informasi tentang Program, antara lain nama program, nama pembuat, tanggal dibuat, tanggal kompilasi, tingkat   keamanan program, Informasi ini bersifat Optional yaitu boleh diisi atau   tidak.
  • ENVIRONMENT DIVISION
Divisi ini dibagi menjadi dua section yaitu CONFIGURATION SECTION dan INPUT-OUTPUT SECTION. Pada bagiab CONFIGURATION SECTION dapat diisi dengan informasi tentang komputer apa saja yang dapat digunakan untuk program.Sedangkan pada INPUT-OUTPUT SECTION menerangkan informasi tentang peralatan-peralatan yang dipergunakan untuk memproses file baik sebagai media peralatan input maupun media peralatan output.
  • DATA DIVISION
      Divisi ini terdiri dari beberapa section yaitu :
  • FILE SECTION
FILE SECTION ini berguna untuk menjelaskan masing-masing file yang   dipergunakan didalam    program mengenai.
  • Nama file
  • Nama Record dalam file
  • Ukuran panjang dan tipe dari masing-masing data item.
  • Jenjang dari data item didalam record.
  • WORKING STORAGE SECTION
WORKING STORAGE SECTION mempunyai sifat Optional (bisa diikutkan atau tidak ) seksi ini berguna untuk menggambarkan  suatu record dan data lainnya.
  • SCREEN SECTION
SCREEN SECTION digunakan untuk mendefinisikan bentuk layar tampilan untuk input ataupun untuk tampilan output.
  • LINGKAGE SECTION
LINGKAGE SECTION  digunakan untuk menerangkan data yang mempunyai hubungan  engan dengan program yang lain. Seksi ini berguna untuk program yang  memanggil program lain.
  • REPORT SECTION
REPORT SECTION digunakan untuk menggambarkan bentuk dan laporan yang akan dicetak.
 
  • PROCEDURE DIVISION.
ROCEDURE DIVISION ini bertugas untuk menunjukan prosedur dari instruksi yang mempunyai akibat secara langsung menghasilkan output yang diminta dari sejumlah input yang ada.
 
 
 
1.4.   Editor
Untuk mengetik program anda dapat menggunakan Editor apa saja yang anda sukai, asalkan hasil dari Editor itu sendiri berupa File ASCII murni. Contoh Editor tersebut adalah QEdit, PE, SK (SideKick), atau anda dapat menggunakan WordStar dengan menggunakan Mode Non Document dan lain sebagainya. Tapi sebaiknya anda menggunakan SideKick karena SideKick memiliki kelebihan yaitu TSR (Terminate and Stay Resident). Sehingga memudahkan anda dalam penelurusn kesalahan pada saat kompilasi . Di bawah ini contoh tampilan SideKick :
 
1
 
Untuk mengaktifkan Side Kick ini anda dapat menekan tombol  Ctrl +Alt secara bersamaan, kemudian akan akan menemukan Menu PopUp , dari menu PopUp ini pilih menu NotePad.
 
1.5. Program Pertama
Dibawah ini contoh program yang pertama dengan menggunakan COBOL, seperti biasa setiap kita belajar suatu bahasa pemograman maka pekerjaan pertama adalah menampilkan tulisan. Tidak terlepas dari kebiasaan tersebut kita buat sebuah program untuk menampilkan tulisan. berikut
 
Listing program 
  1. IDENTIFICATION DIVISION. 
  2.         PROGRAM-ID. SELAMATDATANG. 
  3.         AUTHOR. Aa Ridwan Nulloh. 
  4.         ENVIRONMENT DIVISION. 
  5.         DATA DIVISION. 
  6.         PROCEDURE DIVISION. 
  7.           DISPLAY 'SELAMAT DATANG DI PEMOGRAMAN COBOL'. 
  8.           DISPLAY '=================================='. 
  9.           DISPLAY 'By Aa Ridwan Nulloh               '. 
  10.           STOP RUN. 
 
     
 
1.6.   Proses Kompilasi
Proses kompilasi merupakan tahap akhir dari pembuatan program, untuk memudahkan proses kompilasi, sebaiknya anda  mengikut sertakan perintah ini didalam file AUTOEXEC.BAT, perintah tersebut adalah sebagai berikut :
  1. SET COBDIR=C:\COBOL\BIN; 
  2. SET LIB=C:\COBOL\LIB; 
  3. SET INCLUDE=C:\COBOL\SOURCE; 
  4. SET HELPFILES=C:\COBOL\HELP; 
  5. SET INIT=C:\COBOL\INIT; 
 
Jika anda tidak mengikut sertakan perintah tersebut kedalam AUTOEXEC.BAT, Kemungkinan besar hasil kompilasi anda akan Error sebagai berikut :
 
C:\COBOL\PROGRAM>cobol selamat
* Error - COBCLI.LBR not found
 
1.7.  Cara mengkompilasi.
Untuk Mengkompilasi program ada beberapa yang harus anda perhatikan, diantaranya pada saat proses Linking anda harus mengikutsertakan beberapa Liblary yang diperlukan.
Contoh kompilasi :
  • Jika anda tidak menggunakan titik-koma(;) dibelakang Command Line hasilnya sebagai berikut
C:\COBOL\PROGRAM>cobol selamat
Microsoft (R) COBOL Optimizing Compiler Version 5.0
 
COBOL software by Micro Focus
Copyright (C) Microsoft Corporation 1984,1993.  All rights reserved.
Copyright (C) Micro Focus Ltd. 1984,1993.  All rights reserved.
 
Object file-name [selamat.OBJ]:
Source listing   [NUL]:
Object listing   [NUL]:
* Checking complete with no errors - starting code generation
* Data = 000006156 Code = 000000792
 
  • Jika anda  menggunakan titik-koma(;) dibelakang Command Line hasilnya sebagai berikut :
C:\COBOL\PROGRAM>cobol selamat;
Microsoft (R) COBOL Optimizing Compiler Version 5.0
 
COBOL software by Micro Focus
Copyright (C) Microsoft Corporation 1984,1993.  All rights reserved.
Copyright (C) Micro Focus Ltd. 1984,1993.  All rights reserved.
 
* Checking complete with no errors - starting code generation
* Data = 000006156 Code = 000000792
 
Proses Linking yang kurang tepat, karena tidak mengikut sertakan Library yang diperlukan pada saat proses kompilasi. walaupun pada saat kompilasi tersebut anda dapat melihat file yang dihasilkan berupa file .EXE tapi file tersebut Error saat dijalankan.
 
C:\COBOL\PROGRAM>link selamat;
Microsoft (R) Overlay Linker  Version 3.64
Copyright (C) Microsoft Corp 1983-1988.  All rights reserved.
 
C:\COBOL\PROGRAM>selamat
Load failure (170) on file C:\COBOL\BIN\ADIS
 
  • Proses Linking yang benar adalah sebagai berikut :
LINK selamat+ADIS+ADISKEY+ADISINIT/NOD,,,COBLIB+COBAPI;
 
1.8.  Kompilasi menggunakan Batch File
Dengan menggunakan Batch File anda akan mudah untuk mengkompilasi program karena dengan hanya menjalankan Batch FIle tersebut, kemudian anda tinggal menunggu hasilnya jadi deh hasil kompilasi atau bahkan mungkin error. Dibawah ini contoh Batch File yang dapat anda gunakan untuk mengkompilasi. Cara membuatnya sebagai berikut :
  1. Gunakan Editor yang anda sukai misal : QEdit, SideKick atau yang lainnya dengan Syarat harus menghasilkan file ASCII murni.
  2. Ketik perintah Bath File dibawah ini.
 
  1. @Echo off 
  2. cls 
  3. Echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- 
  4. Echo -           Proses Compile dengan Microsoft Cobol 5.0                 = 
  5. Echo -                Compile and Linking  %1.CBL                         - 
  6. Echo -           ===========================================               = 
  7. Echo -                                                                     - 
  8. Echo -                  (c) 1998 By Ridwan Nulloh                          = 
  9. Echo =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= 
  10. Echo off 
  11. Echo Off 
  12.  
  13. Pause  Tekan Enter untuk Lanjut 
  14.  
  15. If Not Exist %1.CBL goto End 
  16. IF Exist %1.OBJ Erase %1.OBJ 
  17. Cobol %1; 
  18. If Not Exist %1.obj goto End 
  19. LINK %1+ADIS+ADISKEY+ADISINIT/NOD,,,COBLIB+COBAPI; 
  20. goto Out1 
  21. :Out1 
  22. Erase %1.OBJ 
  23. Erase %1.MAP 
  24. Echo Proses Selesai dengan Sukses 
  25. goto Out2 
  26. :End 
  27. Echo Proses Gagal Dilakukan 
  28. :Out2 
  29.  
  30.   
 
  1. Simpan dengan Nama CBL.BAT atau terserah anda yang penting berakhiran .BAT
  2. Kemudian lakukan proses kompilasi sebagai berikut:
C:\COBOL\PROGRAM>cb selamat
  1. Kemudian anda akan melihat proses kompilasi sebagai berikut :
 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=--=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-           Proses Compile dengan Microsoft Cobol 5.0                 =
-                Compile and Linking  selamat.CBL                     -
-           ===========================================               =
-                                                                     -
-                  (c) 1998 By Ridwan Nulloh                          =
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Strike any key when ready...
Microsoft (R) COBOL Optimizing Compiler Version 5.0
 
COBOL software by Micro Focus
Copyright (C) Microsoft Corporation 1984,1993.  All rights reserved.
Copyright (C) Micro Focus Ltd. 1984,1993.  All rights reserved.
 
* Checking complete with no errors - starting code generation
* Data = 000000506 Code = 000000203
 
Microsoft (R) Segmented Executable Linker  Version 5.31.009 Jul 13 1992
Copyright (C) Microsoft Corp 1984-1992.  All rights reserved.
 
Proses Selesai dengan Sukses
 
  1. Jika hasil kompilasi anda Error coba periksa lagi contoh programnya.
  2. Setelah itu anda jalankan Programnya :