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.
Tidak ada komentar:
Posting Komentar