Pernyataan MOVE

Pernyataan MOVE.

+ Memindahkan data ke suatu item penerima, sehingga input data dapat dimanipulasi untuk menghasilkan output.
+ Memungkinkan data yang belum diedit yang berguna dalam penyajian informasi.
+ Bentuk umum :

MOVE { ldentifier-1 Literal } TO ldentifier-2 (ldentifier-3)…

Contoh program :

*----------------------------------*
* Contoh Pemakaian MOVE LITERAL *
*----------------------------------* IDENTIFICATION DIVISION.
PROGRAM-ID. LATIHAN.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
TANGGAL-SISTEM.
02. TGL PIC 99.
02. BLN PIC 99.
02. THN PIC 99. TANGGAL-KINI.
02. TGL PIC 99.
02. FILLER PIC X VALUE ‘-‘.
02. BLN PIC 99.
02. FILLER PIC X VALUE VALUE ‘-‘.
02. THN PIC 99.
PROCEDURE DIVISION. PROGRAM-UTAMA.
ACCEPT TANGGAL-SISTEM FROM DATE.
MOVE CORR TANGGAL-SISTEM TO TANGGAL-KINI. DISPLAY TANGGAL-SISTEM.
DISPLAY TANGGAL-KINI. SELESAI.


STOP “TEKAN ENTER UNTUK MENGAKHIRI PROGRAM”. STOP RUN.

Contoh Program :

IDENTIFICATION DIVISION. PROGRAM-ID. PRAK-1. AUTHOR. OMAR.
ENVIRONMEMT DIVISION. DATA DIVISION.
WORKING-STORAGE SECTION.
01. NILAI-MASUKKAN.
02. NAMA PIC X(20).
02. NPM PIC 9(8).
02. KELAS PIC X(7).
02. MID PIC 9(2).
02. FINAL PIC 9(2)
02. RATA PIC 9(9V99).
01. NILAI-HASIL.
02. RATA-RATA PIC Z(3).
01. COBA-LAGI PIC X.
88. YA VALUE ‘Y’,’y’.
88. TIDAK VALUE ‘T’,’t’.
SCREEN SECTION.
01. CLS.
02. BLANK SCREEN.
01. TAMPILAN-INPUT.
02. LINE 5 COLUMN 5 VALUE ‘MENGHITUNG NILAI MAHASISWA’.
02. LINE 7 COLUMN 3 VALUE ‘NAMA MAHASISWA : ‘.
02. COLUMN PLUS 1 PIC X(20) TO NAMA.
02. LINE 8 COLUMN 3 VALUE ‘NPM : ‘.
02. COLUMN PLUS 1 PIC 9(8) TO NPM.
02. LINE 9 COLUMN 3 VALUE ‘KELAS: ‘.
02. COLUMN PLUS 1 PIC X(7) TO KELAS.
02. LINE 10 COLUMN 3 VALUE ‘NILAI MIDTEST : ‘.
02. COLUMN PLUS 1 PIC 9(2) TO MID.
02. LINE 11 COLUMN 3 VALUE ‘NILAI FINAL : ‘.
02. COLUMN PLUS 1 PIC 9(2) TO FINAL.
01. SELEKSI.
02. LINE 15 COLUMN 3 VALUE ‘INGIN MENCOBA LAGI [Y/T]? ‘.
02. COLUMN PLUS 1 PIC X TO COBA-LAGI.
PROCEDURE DIVISION. MULAI.
DISPLAY CLS.
DISPLAY TAMPILAN-INPUT.
ACCEPT TAMPILAN-INPUT.
COMPUTE RATA = (MID + FINAL) / 2. MOVE RATA TO RATA-RATA.
DISPLAY (13, 3) ‘NILAI RATA-RATA : ‘ DISPLAY SELEKSI.
ACCEPT SELEKSI.
IF YA GO TO MULAI. SELESAI.
STOP RUN.


OUTPUTNYA :


MENGHITUNG NILAI MAHASISWA

NAMA MAHASISWA : Omar Pahlevi
NPM : 17105219
KELAS : 4 KA 49
NILAI MIDTEST : 70
NILAI FINAL : 70
NILAI RATA-RATA : 70.00
INGIN MENCOBA LAGI [Y/T] :