move verb pada cobol

Pengertian move verb pada cobol

MOVE verb

MOVE verb merupakan salah satu perintah yang penting didalam bahasa pemrograman COBOL. Verb ini berguna untuk memindahkan data dari satu field ke lokasi field yang lain, sehingga input data dapat dimanipulasi untuk enghasilkan output.

Bentuk dari statement MOVE :

Bentuk dari statement MOVE

Contoh MOVE verb

01 KIRIM.
      02 UNIT PIC 9(3).
      02 HARGA PIC 9(5).
01 TERIMA.
      02 UNIT-OUT PIC 9(3).
       02 HARGA-OUT PIC 9(7).

Statement dalam PROCEDURE DIVISION sebagai berikut :

MOVE UNIT TO UNIT-OUT.
  • Akan memindahkan nilai data dari field UNIT ke field UNIT-OUT
MOVE KIRIM TO TERIMA.
  • Akan memindahkan 8 karakter dari field group item KIRIM ke 10 karakter secara bersamaan ke field group item TERIMA.Group item yang dipindahkan akan diperlakukan sebagai nilai alphanumerik,tidak memandang bentuk dari PICTURE masing-masing elemen data item.Sehingga bersifat Left-justified.
Bentuk yang khusus dari MOVE verb adalah MOVE CORRSPONDING, dengan bentuk:
MOVE CORRESPONDING nama-data-1 TO nama-data-2.
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.

Komentar

Anonim mengatakan…
Tukar Link :
Ling sobat udah saya pasang di Blog saya. silahkan di cek

http://blog-medianet.blogspot.com/2014/09/ayo-tukar-link-gratis-bersama-masrolicom.html

Jangan lupa pasang link saya juga di Blog sobat. :)
FARHAN-GRAHA14 mengatakan…
bagaimana jika ukuran pada field tidak sama pada statement move?
apa yg akan terjadi ka?

Postingan populer dari blog ini

statement kondisi pada qbasic

statement dasar qbasic

jenis jenis array pada qbasic