PROCEDURE DIVISION
Oleh : fahrorozi
Merupakan divisi ke 4 dan
yang terakhir dari program COBOL. Semua instruksi-instruksi ditulis pada
PROCEDURE DIVISION, sehingga divisi ini merupakan inti dari program
COBOL.Statement yang ada di PROCEDURE DIVISION dibentuk dari verb (Kata kerja).
M MOVE
verb
Adalah perintah yang
penting didalam program COBOL. Verb ini berguna untuk memindahkan data dari
satu field ke lokasi field yang lain, sehingga input data dapat dimanipulasi
untuk menghasilkan output.
MOVE CORRESPONDING digunakan untuk memindahkan data
dari group data item ke group data item yang lain yang bernama sama.
Contoh:
Pada DATA DIVISION :
01
RECORD-A.
02 A PIC
9(3).
02 B PIC
X(5).
02 C PIC
A(9).
02 D PIC
9(4).
01
RECORD-B.
02
A PIC
9(3).
02 FILLER PIC X(5).
02 B PIC X(6).
02 D PIC 9(4).
02 E PIC
$$$.99.
02 FILLER PIC X(5).
Statement :
MOVE CORRESPONDING RECORD-A
TO RECORD-B.
Artinya :
Akan
memindahkan group item RECORD-A ke group data item RECORD-B yang mempunyai nama
data yang sama.
Bentuk data yang dapat dipindahkan :
Bentuk data pengirim
|
Bentuk data
penerima
|
||
Alphabetik
|
Alphanumerik
|
Numerik integer
Numerik non integer
Numerik yang di-edit
|
|
Alphabetik
|
Bisa
|
Bisa
|
Tidak
|
Alphanumerik
|
Bisa
|
Bisa
|
Bisa
|
Numerik integer
|
Tidak
|
Bisa
|
Bisa
|
Numerik non integer
|
Tidak
|
Tidak
|
Bisa
|
Numerik yang di-edit
|
Tidak
|
Bisa
|
Tidak
|
Keterangan :
·
Bila data mengandung tanda + atau - , maka tanda
tersebut akan diabaikan.
M DISPLAY verb
Dipergunakan untuk
menampilkan hasil di layar ataupun di printer.
Ada 3 bentuk statement
DISPLAY :
Bentuk Statement DISPLAY
ke-1 :
|
Bentuk Statement DISPLAY
ke-2 :
 |
§ Nama data adalah
nama dari data item yang telah disebutkan pada DATA DIVISION, yang panjang
nilai datanya tidak boleh lebih dari 1920 karakter.
§ Literal adalah
bentuk yang akan ditampilkan, berupa bentuk yang sudah tetap, terletak diantara
tanda petik dua (“ “) atau terletak di antara tanda petik tunggal(‘‘).
§ UPON Clause
dipergunakan bilamana hasil tidak ingin ditampilkan di layar, tetapi akan
dicetak di printer.
§ Nama-mnemonik adalah
nama yang dibentuk oleh programmer sebagai penunjuk alat cetakan, yaitu
printer.Nama-mnemonik ini harus sudah disebutkan pada CONFIGURATION SECTION
dalam SPECIAL NAMES, PRINTER IS nama-mnemonik.
- Posisi-tampilan merupakan posisi baris
dan kolom tertentu dari hasil yang akan ditampilkan di layar di printer.
§ LIN and COL adalah
register khusus MS-COBOL, yang merupakan COBOL reserved words, jadi tidak
disebutkan pada DATA DIVISION.
§ Setelah koma “,”
harus diikuti oleh 1 blank untuk memisahkan letak posisi baris dan posisi
kolomnya.
§ Contoh :
DISPLAY (15, 5) “HALLO SAYA KOMPUTER”.
-
ERASE adalah COBOL reserved word, yang kalau
dipergunakan dalam DISPLAY dan posisi- tampilan ditentukan,maka mulai dari
posisi tampilan tersebut untuk 1 baris akan dihapus dari tampilan sebelumnya.
M ACCEPT
verb
Digunakan untuk
memasukkan data lewat layar sewaktu program tersebut dijalankan(pada waktu
runtime).
Ada 4 bentuk
statement ACCEPT :
Bentuk statement
ACCEPT ke-1 :
|
Data yang
dimasukkan, akan ditempatkan pada nama-data setelah ACCEPT, yang bentuk, jenis
dan panjangnya sudah ditentukan dalam DATA DIVISION.
Bentuk Statement
ACCEPT ke-2 :
|
Apabila ON ESCAPE
diikutsertakan, maka statement-imperative yang mengikutinya akan dikerjakan.
§ Posisi-layar
menunjukkan letak dari posisi data yang akan dimasukkan pada layar.
§ ZERO-FILL phrase
Bila posisi-posisi
field data-item penerima data tidak diisi dengan data (langsung di tekan tombol
RETURN), maka akan terisi dengan nilai nol.
§ SPACE FILL phrase
Bila posisi-posisi
field data-item di layar tidak diisi dengan data (langsung ditekan tombol
RETURN), maka akan terisi dengan nilai nol.
§ LEFT-JUSTIFY phrase
Tidak berfungsi
dalam MS-COBOL.
§ RIGHT-JUSTIFY phrase
Menyebabkan setelah
data dimasukkan, hasil akhir yang tampak dilayar akan rata di sebelah kanan.
§ TRAILING – SIGN
phrase
Menyebabkan tanda
operasi + atau – tampak diposisi paling kanan dari field data input. Biasanya
tanda tersebut akan menempati posisi paling kiri.
§ PROMPT phrase
Menyebabkan tampilan
untuk field data-item penerima berbentuk nol untuk posisi digit,titik untuk
decimal point dan spasi untuk tanda operasi + atau -.
§ UPDATE phrase
Menyebabkan tampilan
untuk field data-item penerima berbentuk nilai awal dari field penerima
tersebut.UPDATE phrase ini berfungsi sama dengan FORM dan TO atau USING clause
pada SCREEN SECTION dalam DATA DIVISION.
§ LENGTH-CHECK phrase
Menyebabkan
penekanan tombol carriage-return tidak berfungsi kalau semua posisi field
penerima belum penuh semua.
LENGTH-CHECK phrase
berfungsi sama dengan FULL clause pada SCREEN SECTION dalam DATA DIVISION.
§ EMPTY-CHECK phrase
Menyebabkan
penekanan tombol carriage-return tidak berfungsi kalau tidak paling sedikit
sebuah karakter atau angka yang bukan sifatnya terminator sudah dimasukkan.
EMPTY – CHECK phrase
berfungsi sama dengan REQUIRED clause pada SCREEN SECTION dalam DATA DIVISION.
§ AUTO-SKIP phrase
Menyebabkan proses
pemasukkan data bergeser ke field penerima data lain berikutnya, bila posisi
field penerima sudah penuh terisi tanpa harus ditekan tombol carriage-return
atau tombol terminator yang lainnya.
AUTO-SKIP berfungsi
sama dengan AUTO clause pada SCREEN SECTION dalam DATA DIVISION.
§ NO-ECHO phrase
Menyebabkan data
yang dimasukkan, tidak tampak di layar.
NO-ECHO berfungsi
sama dengan SECURE clause pada SCREEN SECTION dalam DATA DIVISION.
§ BEEP phrase
Menyebabkan bunyi
bel sewaktu data dimasukkan.
BEEP berfungsi sama
dengan BELL clause pada SCREEN SECTION dalam DATA DIVISION.
§ DATE, akan mendapatkan 6 digit nilai standard dengan
bentuk TTBBHH ( 2 digit untuk tahun. 2 digit untuk bulan dan 2 digit untuk
hari) dari system-date.
§ DAY,akan mendapatkan 5 digit nilai “Julian Date” dengan
bentuk TTJJJ ( 2 digit untuk tahun dan 3 Digit menunjukkan jumlah hari dalam
setahun untuk tanggal tersebut) dari System-date.
§ TIME, akan mendapatkan 8 digit nilai dengan bentuk
JJMMDDSS.
JJ menunjukkan 2
digit jam, berkisar dari nilai 00 sampai dengan bentuk 23.
MM menunjukkan 2
digit menit, berkisar dari nilai 00 sampai dengan 59.
DD menunjukkan 2
digit detik, berkisar dari nilai 00 sampai dengan 59.
SS menunjukkan 2
digit seperseratus detik,berkisar dari 00 sampai dengan 99.
§ ESCAPE KEY, akan mendapatkan 2 digit kode yang
dihasilkan dari hasil penekanan tombol-tombol terminator.Terminator adalah
tombol yang digunakan untuk mengakhiri pengerjaan statement ACCEPT.
OUTPUT :
TANGGAL
ADALAH : 860807
JULIAN
ADALAH : 86219
JAM
ADALAH : 15305834
M STOP verb
Digunakan untuk
menghentikan program baik secara permanen maupun secara sementara saja, yang
kemudian proses program dapat dianjurkan kembali.
STOP RUN akan
menyebabkan proses program berhenti secara permanen, sedang bentuk STOP yang
diikuti oleh literal proses akan berhenti secara permanen. Bila menekan
sembarang tombol, maka proses dilanjutkan.
Contoh :
STOP “ TEKAN SEMBARANG TOMBOL”.
STATEMENT ARITMATIKA
Operasi Arithmatika pada COBOL dikerjakan dengan
menggunakan pernyataan :
M ADD
Digunakan
untuk menambahkan 2 atau lebih operand numerik dan menyimpan hasilnya.
Suatu operand
adalah suatu data item atau suatu literal numerik (konstanta).Operand yang
digunakan untuk verb ini harus berupa nilai numerik.
Ada
2 Bentuk Umum dari Statemen ADD :
Bentuk
ke-1 dari statement ADD :
Contoh :
ADD A TO B b
= b + a
ADD 30, B to a a
= a + 30 + b
add a, b to c c
= c + a + b
Bentuk ke-2 dari statement ADD :
Contoh :
add a, b giving c c
= a + b
add 4,5 giving a a
= 4 + 5
M
SUBSTRACT verb
Digunakan
untuk membentuk statement operasi arithmatika pengurangan suatu nilai operand
numerik.
Contoh :
SUBSTRACT A FROM B B
= B – A
SUBSTRACT A, B FROM C C
= C – A – B
SUBSTRACT A FROM B GIVING C C = B – A
SUBSTRACT 20 FROM 80 GIVING C C = 80 – 20
SUBSTRACT 20, 15 FROM 100 GIVING B B = 100 – 20 – 15 = 65
M
multiply
Digunakan
untuk membentuk statement guna instruksi perkalian dua nilai numerik dan
menyimpan hasilnya.
Bentuk
Umum Statement MULTIPLY ke-1 :
Contoh
:
MULTIPLY
A BY B B = B * A
Bentuk
umum statement MULTIPLY ke-2 :
Contoh :
multiply a by d giving c c = a * d
multiply a by 25 giving c c = a * 25
M
DIVIDE
Digunakan
untuk membentuk statement operasi pembagian .
Bentuk
Statemen DIVIDE yang ke-1 :
Contoh :
DIVIDE A INTO B B
= B / A
Bentuk Statemen DIVIDE yang ke-2 :
CONTOH :
DIVIDE A INTO B GIVING C C = B / A
Bentuk Statemen DIVIDE yang ke-3 :
CONTOH :
DIVIDE A BY B GIVING C C = A / B
DIVIDE 100 BY 50 GIVING Z Z = 2
Bentuk Statement DIVIDE yang ke-4 :
Contoh :
DIVIDE A INTO B GIVING HASIL REMAINDER
SISA
BILA A = 2, B = 5 MAKA HASIL = 2 SISA =1
Bentuk Statemen DIVIDE yang ke-5 :
DIVIDE A BY B GIVING D REMAINDER SISA
BILA A = 110 , B = 20 MAKA D = 5 SISA =10
M COMPUTE
Mempergunakan 4 arithmatika verbs untuk
perhitungan arithmatika tunggal dan sederhana.
CONTOH :
MULTIPLY A BY D GIVING C COMPUTE C = A * D
Y = A 5 COMPUTE
Y = A**5
Y = A + B COMPUTE Y = ( A + B ) /
C
C
ROUNDED :
Untuk membulatkan hasil perhitungan yang
berbentuk pecahan.
ON SIZE ERROR :
Digunakan jika hasil perhitungan untuk
digit – digit bilangan utuh tidak bisa masuk seluruhnya pada field penerima.
M OPERATOR ARITHMATIKA
Adalah simbol yang digunakan untuk membentuk suatu ungkapan
arithmatika,yaitu :
Operator arithmatika
|
Maksud
|
jenjang
|
**
|
Pangkat |
1
|
*
|
Kali
|
2
|
/
|
Bagi
|
2
|
+
|
Tambah
|
3
|
-
|
Kurang |
3
|
M OPERATOR RELATIONAL
Maksud
|
Operational Relational
|
|
Lebih kecil dari
|
<
|
LESS THAN
|
Lebih besar dari
|
>
|
GREATER THAN
|
Sama dengan
|
=
|
EQUAL TO
|
Lebih kecil atau sama dengan
|
NOT>
|
NOT GREATER THAN
|
Lebih besar atau sama dengan
|
NOT<
|
NOT LESS THAN
|
Tidak sama dengan
|
NOT=
|
NOT EQUAL TO
|
M UNGKAPAN ARITHMATIKA
Adalah Kombinasi dari literal numerik,
nama-data, operator arithmatika, kurung buka dan kurung tutup.
Penulisannya
harus dipisahkan paling sedikit dengan sebuah blank antara literal
numerik, nama-data dan operator arithmatika.
Contoh:
Maksud
|
Penulisan
|
A + B
|
A + B
|
A + B
C + D
|
( A + B ) / (
C + D )
|
 A2
( B + C )3
|
A * * 2 / ( B + C ) * * 3 |
S
Ungkapan Arithmatika banyak digunakan pada verb
COMPUTE
Tidak ada komentar:
Posting Komentar