LA COBOL 2

PROGRAM VALUE I : “NILAI UTS DAN UAS”

IDENTIFICATION DIVISION.

(Merupakan divisi pertama dari COBOL yang paling sederhana. Penulisan statement ini berada pada Line 1, Colom 8.)

       PROGRAM-ID. VALUE1.

(Merupakan identifikasi nama program. Penulisan statement ini berada pada Line 2, Colom 8.)

       ENVIRONMENT DIVISION.

(Merupakan divisi untuk menunjukkan suatu alat tertentu yang digunakan programmer. Penulisan statement ini berada pada Line 3, Colom 8.)

       DATA DIVISION.

(Menggambarkan bentuk dan jenis dari data input serta data outputnya. Penulisan statement ini berada pada Line 4, Colom 8.)

       WORKING-STORAGE SECTION.

(Merupakan section yang digunakan untuk mendeklarasikan variabel dan tipe data yang digunakan dalam program COBOL. Penulisan statement ini berada pada Line 5, Colom 8.)

       01 VAR.

(Menyatakan array VAR yang menampung 1 data Alphabet, 2 data numeric, dan 1 picture editing.)

           02 NAMA PIC A(30).

           02 MID PIC 9(3).

           02 UAS PIC 9(3).

           02 FINAL PIC Z99.

(Digunakan untuk menjelaskan bentuk data yang di masukkan, dan juga untuk menampilkan bentuk data output. Dalam statement diatas ada :

NAMA yang memiliki nilai Alphabet (A) dengan panjang 30 karakter.

MID yang memiliki nilai numeric (9) dengan panjang 3 angka.

UAS yang memiliki nilai numeric (9) dengan panjang 3 angka.

FINAL yang memiliki karakter Z99 yang memiliki arti Z (untuk menghilangkan angka 0 dimuka.), dan 9 (untuk data yang memiliki nilai numeric)  

Penulisan statement ini berada pada Line 6, Colom 8 untuk 01 VAR. Line 7, colom 12 untuk 02 NAMA PIC A(30). Line 8, colom 12 untuk 02 MID PIC 9(3). Line 9, colom 12 untuk 02 UAS PIC 9(3). Dan Line 10, colom 12 untuk 02 FINAL PIC Z99.)

       SCREEN SECTION.

(Berguna untuk membuat format layer baik untuk input maupun output serta juga berhubungan dengan perintah DISPLAY dan ACCEPT pada PROCEDURE DIVISION. Penulisan statement ini berada pada Line 11, Colom 8.)

       01 CLS.

           02 BLANK SCREEN.

(Perintah agar saat program diajalankan maka layar akan menjadi kosong/blank. Penulisan statement ini berada pada Line 12, Colom 8 untuk 01 CLS. dan berada pada line 13, colom 12 untuk 02 BLANK SCREEN.)

       01 MASUKAN.

(Menyatakan array MASUKAN yang menampung 1 data Alphanumeric dan 2 data numeric. Penulisan statement ini berada pada Line 14, Colom 8.) 

           02 LINE 9 COLUMN 9 VALUE 'NAMA :'.

(Perintah untuk menampilkan ‘NAMA :’ pada baris ke-9 dan kolom ke-9. Penulisan statement ini berada pada Line 15, Colom 12.)

           02 COLUMN PLUS 2 PIC X(30) TO NAMA.

(Perintah untuk menambahkan 2 kolom dengan karakter X(Alphabet) dengan panjang 30 karakter pada variabel NAMA. Penulisan statement ini berada pada Line 16, Colom 12.)

           02 LINE 10 COLUMN 9 VALUE 'MID :'.

(Perintah untuk menampilkan ‘MID :’ pada baris ke-10 dan kolom ke-9. Penulisan statement ini berada pada Line 17, Colom 12.)

           02 COLUMN PLUS 2 PIC 9(3) TO MID.

(Perintah untuk menambahkan 2 kolom dengan karakter 9(Numeric) dengan panjang 3 angka pada variabel MID. Penulisan statement ini berada pada Line 18, Colom 12.)

           02 LINE 11 COLUMN 9 VALUE 'UAS :'.

(Perintah untuk menampilkan ‘UAS :’ pada baris ke-11 dan kolom ke-9. Penulisan statement ini berada pada Line 19, Colom 12.)

           02 COLUMN PLUS 2 PIC 9(3) TO UAS.

(Perintah untuk menambahkan 2 kolom dengan karakter 9(Numeric) dengan panjang 3 angka pada variabel UAS. Penulisan statement ini berada pada Line 20, Colom 12.)

     01 KELUARAN.

(Menyatakan array KELUARAN yang menampung 4 data yang terdiri dari Alphanumeric, Numeric dan Picture Editing. Penulisan statement ini berada pada Line 21, Colom 8.)

           02 LINE 14 COLUMN 9 VALUE 'NAMA :'.

(Perintah untuk menampilkan ‘NAMA :’ pada baris ke-14 dan kolom ke-9. Penulisan statement ini berada pada Line 22, Colom 12.)

           02 LINE 15 COLUMN 9 VALUE 'UTS :'.

(Perintah untuk menampilkan nilai ‘UTS :’ pada baris ke-15 dan kolom ke-9. Penulisan statement ini berada pada Line 23, Colom 12.)

           02 LINE 16 COLUMN 9 VALUE 'UAS :'.

(Perintah untuk menampilkan nilai ‘UAS :’ pada baris ke-16 dan kolom ke-9. Penulisan statement ini berada pada Line 24, Colom 12.)

           02 LINE 17 COLUMN 9 VALUE 'FINAL :'.

(Perintah untuk menampilkan nilai ‘FINAL :’ pada baris ke-17 dan kolom ke-9. Penulisan statement ini berada pada Line 25, Colom 12.)

       PROCEDURE DIVISION.

(Menggambarkan prosedur yang digunakan untuk menyelesaikkan permasalahan dalam bentuk dan jenis data yang ada pada DATA DIVISION. Penulisan statement ini berada pada Line 26, Colom 8.)

       MULAI.

(Perintah untuk memulai program. Penulisan statement ini berada pada Line 27, Colom 8)

           DISPLAY CLS.

(Perintah untuk menampilkan perintah CLS (kosongkan layar). Penulisan statement ini berada pada Line 28, Colom 12.)

           DISPLAY MASUKAN.

(Perintah untuk menampilkan data-data yang ada pada 01 MASUKAN. Penulisan statement ini berada pada Line 29, Colom 12.)

           ACCEPT MASUKAN.

(Perintah untuk menyimpan data yang telah di input pada 01 MASUKAN. Penulisan statement ini berada pada Line 30, Colom 12.)

           COMPUTE FINAL = (0.7 * MID) + (0.3 * UAS).

(Perintah untuk menghitung hasil FINAL data yang telah di input dan di simpan pada 01 MASUKAN. Penulisan statement ini berada pada Line 31, Colom 12.)

           DISPLAY KELUARAN.

(Perintah untuk menampilkan hasil  dari data 01 KELUARAN. Penulisan statement ini berada pada Line 32, Colom 12.)

           DISPLAY (14, 17) NAMA.

(Perintah untuk menampilkan ‘NAMA : ‘ pada baris ke-14 dan kolom 17 dengan membaca bentuk data NAMA yang telah di isikan pada 01 MASUKAN. Penulisan statement ini berada pada Line 33, Colom 12.)

           DISPLAY (15, 17) MID.

(Perintah untuk menampilkan ‘MID : ‘ pada baris ke-15 dan kolom 17 dengan membaca bentuk data MID yang telah di isikan pada 01 MASUKAN. Penulisan statement ini berada pada Line 34, Colom 12.)

           DISPLAY (16, 17) UAS.

(Perintah untuk menampilkan ‘UAS : ‘ pada baris ke-16 dan kolom 17 dengan membaca bentuk data UAS yang telah di isikan pada 01 MASUKAN. Penulisan statement ini berada pada Line 35, Colom 12.)

           DISPLAY (17, 17) FINAL.

(Perintah untuk menampilkan ‘FINAL : ‘ pada baris ke-17 dan kolom 17 dengan membaca bentuk data FINAL yang telah di compute pada 01 MASUKAN. Penulisan statement ini berada pada Line 36, Colom 12.)

       SELESAI.

(Perintah untuk menyelesaikan program yang dijalankan. Penulisan statement ini berada pada Line 37, Colom 8.)

           STOP RUN.

      (Perintah untuk menghentikan program. Penulisan statement ini berada pada Line 38, Colom 12.)

EDIT COBOL :

OUTPUT :