Dasar Pemrograman Cobol

            Gue kali ini mau ngebahas tentang dasar - dasar pemrograman Cobol, disini gue gak secara rinci ye ngebahasnya. Lebih ke arah point2 pentingnya ajasii ama ngelatih sampe mana pemahaman gue soalnya minggu depan gue ada uts tentang materi yang bakal gue jabarin di postingan ini, Jadi program cobol ini terbagi menjadi 4 struktur :

1. IDENTIFICATION DIVISION
2. ENVIRONMENT DIVISION
3. DATA DIVISION
4. PROCEDURE DIVISION

IDENTIFICATION DIVISION

Merupakan divisi yang pertama dalam COBOL dan yang paling sederhana. IDENTIFICATION DIVISION tidak dibagi dalam beberapa section tetapi langsung terdiri dari beberapa paragraph.

Bentuk umum dari IDENTIFICATION DIVISION      :

                        IDENTIFICATION DIVISION.

            PROGRAM-ID.  nama program.

[           AUTHOR.  nama programmer           .]

[           INSTALLATION. nama instalasi.        ]

[           DATE-WRITTEN. Tgl program dibuat.           ]

[           DATE-COMPILED. Tgl program dicompile.   ]

[           SECURITY. sifat program.     ]

keterangan     :

¨       Tulisan dalam tanda ‘[ ]’ bersifat optional, boleh disertakan boleh juga tidak.

¨       Ditulis persis seperti contoh diatas, diikuti titik dan diberi 1 spasi.

¨       Penulisan divisi dan semua paragraphnya dimulai pada area A atau kolom ke-8.

¨       Huruf kecil adalah nama yang dibuat oleh programmer.

¨       PROGRAM-ID  panjang maks. 6 karakter, boleh lebih tetapi hanya 6 karakter pertama saja yang dibaca.

                                         contoh :

                                                              IDENTIFICATION DIVISION.

                     PROGRAM-ID. Contoh.

                     AUTHOR. yuti

                     INSTALLATION. UNIVERSITAS GUNADARMA.

                     DATE-WRITTEN. 05-11-2003.

                     DATE-COMPILED. 06-11-2004.

                     SECURITY. rahasia.

                     ENVIRONMENT DIVISION.

                     DATA DIVISION.

                     PROCEDURE DIVISION.

ENVIRONMENT DIVISION

Menyediakan informasi mengenai peralatan yang dipergunakan didalam program.

Bentuk umum ENVIRONMENT DIVISION  :

                        ENVIRONMENT DIVISION.

                        CONFIGURATION SECTION.

            [           SOURCE-COMPUTER. nama-komputer WITH DEBUGGING MODEL.     ]

            [           OBJECT-COMPUTER. nama-komputer.      ]

                        SPECIAL-NAMES.

                        [           PRINTER IS nama-mnemonic           ]

                        [           CURRENCY SIGN IS literal   ]

                        [           DECIMAL-POINT IS COMMA.          ]

                        INPUT-OUTPUT SECTION.

                        FILE-CONTROL.

                                    {file control entry}.

CONFIGURATION SECTION

Diperlukan karena kemungkinan program dibuat pada sebuah komputer dan dijalankan pada komputer yang lain.

¨       Paragraph SOURCE-COMPUTER

Paragraph ini digunakan untuk menunjukkan nama komputer yang digunakan dalam pembuatan dan mengkompilasi program.Ditulis mulai kolom ke-8 atau area A.Bila Clause WITH DEBUGGING MODE disertakan dan pada kolom ke-7 diberi karakter ‘D’ akan dikompilasi untuk tujuan penelusuran kesalahan.Statement untuk penelusuran kesalahan adalah statement READY TRACE, RESET TRACE, EXHIBIT.

¨       Paragraph OBJECT_COMPUTER

Paragraph ini untuk menunjukkan nama komputer yang digunakan untuk menjalankan program yang telah dikompilasi.

¨       Paragraph SPECIAL_NAMES

Paragraph ini sifatnya optional, digunakan untuk membuat nama khusus yang menghubungkan nama-mnemonic implementor dengan nama mnemonic yang dibuat programmer.

a.    PRINTER IS Clause

digunakan untuk menghubungkan nama mnemonik yang dibuat programmer dengan alat pencetak (PRINTER). Clause ini digunakan pada statement DISPLAY yang menggunakan UPON dalam PROCEDURE DIVISION.

       b.  CURRENCY SIGN IS Clause

Untuk menunjukkan tanda mata uang digunakan $, jika ingin menggunakan simbol lain maka dituliskan pada SPECIAL_NAMES.

c.    DECIMAL_POINT IS COMMA Clause

Pada bahasa COBOL titik desimal digunakan bentuk karakter ‘ . ‘ bila di inginkan bukan karakter ‘ . ‘ tetapi koma dalat dituliskan SPECIAL_NAMES. DECIMAL POINT IS COMMA.

INPUT-OUTPUT SECTION.

Bila akan digunakan file dengan media simpanan sekunder,maka paragraph FILE_CONTROL dalam seksi ini harus ditulis. FILE_CONTROL entry terdiri dari 3 bentuk, tergantung dari organisasi file yang dipergunakan, yaitu ; Sequential file, indexed file, dan relative file.

¨       INPUT-OUTPUT SECTION untuk SEQUENTIAL FILE

Organisasi file bersifat terurut, data direkamkan direcord dalam file secara urut dan urutannya tidak akan berubah. Organisasi fiile ini hanya pada DISK dan PRINTER.

Bentuk umum      :

      INPUT-OUTPUT SECTION.

      FILE_CONTROL.

      SELECT nama-file ASSIGN TO [DISK/PRINTER]

                  [           ORGANIZATION IS [LINE] SEQUENTIAL    ]

                  [           ACCESS MODE IS SEQUENTIAL    ]

                  [           FILE STATUS IS nama-data  ].

¨       INPUT-OUTPUT SECTION untuk INDEXED FILE

Organisasi file yang datanya dapat diambil langsung diposisi record yang mmpunyai nilai kunci tertentu yang unik. Organisasi seperti ini memungkinkan pencarian data secara cepat.Organisasi file ini hanya pada DISK

Bentuk umum       :

      INPUT-OUTPUT SECTION.

      FILE_CONTROL.

      SELECT nama-file ASSIGN TO DISK

                  ORGANIZATION IS INDEXED

                                                               SEQUENTIAL

                  ACCESS MODE IS             RANDOM

                                                     

                                                               DYNAMIC

                 

                  RECORD KEY IS nama-data 1

        [         FILE STATUS IS nama-data 2           ]

¨       INPUT-OUTPUT SECTION untuk RELATIVE FILE

Organisasi file yang tiap-tiap recordnya dibedakan dengan sutau nomor record relative. Organisasi ini memungkinkan pencarian data yang cepat, hanya terdapat pada DISK.

 Bentuk umum      :

      INPUT-OUTPUT SECTION.

      FILE_CONTROL.

      SELECT nama-file ASSIGN TO DISK

                  ORGANIZATION IS RELATIVE

                                                            SEQUENTIAL [, RELATIVE KEY IS nama-data 1 ]

                  ACCESS MODE IS           RANDOM

                                                            DYNAMIC         , RELATIVE KEY IS nama-data 1

     

      [           FILE STATUS IS nama-data 2           ]

DATA DIVISION

Memberikan penjelasan tentang input data dan output yang dipergunakan, atau berisi semua keterangan tentang file, record, nama-data serta bentuk / format yang akan dipergunakan didalam PROCEDURE DIVISION.

1.    FILE SECTION

Berisi mengenai file-file yang dipakai didalam program, FILE SECTION ini ada bila dipergunakan file dalam bentuk simpanan sekunder yaitu disk atau printer yang mempunyai hubungan dengan INPUT_OUTPUT SECTION dalam ENVIRONMENT DIVISION.

2.    WORKING-STORAGE SECTION

Mempunyai maksud pemesanan tempat di internal memori (STORAGE) yang diperlukan oleh pekerjaan  (WORKING) proses program. Pemesanan tempat ini biasanya digunakan untuk :

a.    Bentuk, nilai dan nama data yang diperlukan didalam proses yang terpisah dan belum di sebutkan pada FILE SECTION. Data yang disebutkan pada FILE SECTION adalah data yang akan diambil dari disk-file, atau data yang akan direkamkan pada disk-file atau yang aklan dicetak pada print-file.

b.    Persiapan penulisan judul.

c.     Pemesanan tempat untuk data output yang akan ditampilkan.

Bentuk umum       :

      WORKING-STORAGE SECTION.

      77- level data description entry

      record description.

3.    SCREEN SECTION

berguna untuk menunjukkan bentuk format dari layar terminal untuk menampilkan data atau memasukkan data. Data-item yang dipergunakan dapat berupa group data item atau data item individu.

PROCEDURE DIVISION

Merupakan inti dari pemrograman COBOL. Statement yang ada pada PROCEDURE DIVISION dibentuk dari verb, diantaranya: MOVE, DISPLAY, ACCEPT, dan STOP.

¨       MOVE verb

Digunakan untuk memindahkan data dari satu field ke lokasi field yang lain, sehingga input data dapat dimanipulasi untuk menghasilkan output.

¨       DISPLAY verb

Digunakan untuk menampilkan hasil dilayar ataupun printer. Jika dipergunakan statement WRITE untuk menampilkan hasil di printer, maka print-file harus disebutkan terlebih dahulu di ENVIRONMENT DIVISION pada FILE-CONTROL.

¨       ACCEPT verb

Digunakan untuk memasukkan data lewat layar sewaktu program tersebut dijalankan (runtime). Ada 4 bentuk statement ACCEPT

¨       STOP verb

Digunakan untuk menghentikan program baik secara permanen maupun sementara.

STOP literal, akan menyebabkan proses program terhenti sementara dan literal akan ditampilkan dilayar. Jika operator menekan sembarang tombol maka program akan dilanjutkan mulai statement setelah STOP literal tersebut.

STOP RUN, akan menyebabkan program berhenti secara permanen.

¨       ADD Verb

Digunakan untuk menambahkan 2 atau lebih operand numerik dan menyimpan hasilnya.

¨       SUBSTRACT Verb

Digunakan untuk operasi pengurangan suatu nilai data numerik.

¨       MULTIPLY Verb

Digunakan untuk mengalikan 2 nilai numerik dan menyimpan hasilnya.

¨       COMPUTE

Digunakan untuk operasi yang lebih rumit, untuk menyederhanakan 4 arithmatic verb sebelumnya.

¨       GO TO Verb

Digunakan untuk alih kontrol tanpa syarat ke paragraph tertentu.

BU :

      GO TO nama-paragraph

¨       GO TO … DEPENDING Verb

Digunakan untuk alih kontrol bersyarat. Beralih pada paragraph tertentu dengan kondisi tertentu.

BU :

      GO TO nama-paragraph-1, nama-paragraph-2, … nama-paragraph-n

                  DEPENDING ON nama-data

¨       ALTER Verb

Digunakan untuk merubah arah tujuan proses dari statement GO TO yang telah ada di program.

BU :

      ALTER nama-paragraph-1 TO [ PROCEED TO] nama-paragraph-2

¨       PERFORM Verb

Digunakan untuk membuat suatu statement yang akan membawa proses dari program meloncat kesuatu paragraph, kemudian menjalankan seluruh statetement yang ada pada paragraph tersebut. Jika telah selesai akan kembali ke statement setelah PERFORM.

BU :

      PERFORM     nama-paragrapg-1      THROUGH     nama-paragraph-2

      THRU

Read More