Diberdayakan oleh Blogger.
RSS

LA Cobol 1

IDENTIFICATION DIVISION.
PROGRAM-ID. BIODATA.
ENVIRONMENT DIVISION.
COL 8             DATA DIVISION.
WORKING-STORAGE SECTION.
SCREEN SECTION.
01 CLS.                  
COL 12                       02 BLANK SCREEN.
                    PROCEDURE DIVISION.
COL 8                     MULAI.
            DISPLAY CLS.
COL 12                       DISPLAY ‘HELLO’.
            STOP RUN.

1.      Alasan penulisan IDENTIFICATION DIVISION dan PROCEDURE DIVISION di kolom 8, BLANK SCREEN dan DISPLAY CLS di kolom 12?
Kolom yang tersedia untuk menuliskan program COBOL adalah kolom 1- 80, dengan ketentuan :
a.       Kolom 1 – 6 : Digunakan untuk nomor urut bilamana diperlukan, sifatnya optional, dan nomor yang diberikan harus urut ascending.
b.      Kolom 7
1)      Tanda baris sambung dari baris sebelumnya dengan memberikan tanda hypen (-), baris sambungannya dimulai dari Area B.
2)      Bila kolom ini di isi dengan karakter “*” , maka apa yang ditulis pada baris ini akan dianggap sebagai komentar.
3)      Bila kolom ini di isi dengan slash (/), maka baris yang ada tanda ini dianggap sebagai komentar dan akan dicetak mulai halaman baru teratas, bila source program dicetak di printer.
4)      Bila kolom ini di isi dengan karakter “D” , baris ini juga dianggap sebagai komentar, tetapi bila pada ENVIRONMENT DIVISION dalam paragraph SOURCE-COMPUTER disebutkan WITH DEBUGGING MODE, maka akan berguna untuk tujuan debugging.
c.       Kolom 8 – 11 : Disebut dengan area A, semua judul divisi,judul seksi, nama paragraph, judul file description (FD), level number 01 dan level number 77 ditulis mulai kolom ke-8.
d.      Kolom 12 – 72: Disebut dengan area B, semua elemen program selain yang ditulis di area A ditulis pada area B.
e.       Kolom 73 – 80: Merupakan kolom yang tidak diproses oleh komputer, jadi jika diisi dengan catatan-catatan apa saja hanya untuk dokumentasi program.

2.      Level Number pada COBOL?
Level number suatu nilai integer yang menunjukan jenjang dari data
item dalam suatu record, Makin besar nilai integer, makin rendah tingkatannya. Berikut ini level number pada bahasa pemrograman COBOL:
1)      Level number 01 digunakan sebagai awal dari record (nama record).
2)      Level number 02 sampai dengan 49 digunakan untuk mengisi keterangan dari record, anda memilih bebas memilih salah satu angka antara 02 sampai 49, tetapi sebaiknya memilihnya secara berurut agar program lebih mudah dibaca.
3)      Level number 66 digunakan untuk RENAMES.
4)      Level number 77 digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE SECTION.
5)      Level number 88 digunakan untuk variable pilihan atau kondisi.

3.      Program Biodata
IDENTIFICATION DIVISION.
PROGRAM-ID. BIODATA.
AUTHOR. EVI.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
77 NAMA PIC X(15).
77  NPM PIC X(8).
77 KELAS PIC X(5).
SCREEN SECTION.
01 CLS.
02 BLANK SCREEN.
PROCEDURE DIVISION.
MULAI.
DISPLAY CLS.
DISPLAY ‘NAMA ANDA:’. ACCEPT NAMA.
DISPLAY ‘NPM ANDA:’. ACCEPT NPM.
DISPLAY ‘KELAS ANDA:’. ACCEPT KELAS.
DISPLAY CLS.
DISPLAY ‘NAMA       :’, NAMA.
DISPLAY ‘KELAS      :’, KELAS.
DISPLAY ‘NPM          :’, NPM.
SELESAI.
STOP RUN.

Output:

    

Ket:
Ø  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.
Ø  PROGRAM-ID
panjang maks. 6 karakter, boleh lebih tetapi hanya 6 karakter pertama saja yang dibaca.
Ø  ENVIRONMENT DIVISION
Menyediakan informasi mengenai peralatan yang dipergunakan didalam program.
Ø  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.
Ø  WORKING-STORAGE SECTION
Mempunyai maksud pemesanan tempat di internal memori (STORAGE) yang diperlukan oleh pekerjaan (WORKING) proses program.
Ø  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.
Ø  Level number 77
Digunakan untuk menyatakan variable independent (berdiri sendiri), hanya ada WORKING-STORAGE SECTION.
Ø  DISPLAY verb
Digunakan untuk menampilkan hasil dilayar ataupun printer.
Ø  Picture karakter X
Digunakan untuk menyimpan nilai data alphanumerik, dapat berupa gabungan angka, huruf, ataupun karakter khusus.
Ø  BLANK SCREEN Clause
Digunakan untuk membersihkan layar dan menempatkan kursor pada posisi kiri atas.
Ø  STOP RUN
Digunakan untuk menghentikan program baik secara permanen maupun sementara.

  • Digg
  • Del.icio.us
  • StumbleUpon
  • Reddit
  • RSS

0 komentar:

Posting Komentar