Tugas Latihan 2

Source Program Latihan 2:

IDENTIFICATION DIVISION.

PROGRAM-ID. LEVEL NUMBER.

DATA DIVISION.

ENVIRONMENT DIVISION.

WORKING-STORAGE-SECTION.

01 DATAINPUT.

02 NAMA PIC A(50)

02 GAJI.

03 GAJIPOKOK PIC 9(6).

03 TUNJANGAN PIC 9(6).

02 TOT-GAJI PIC 9(7).

02 TANYA PIC A.

88 LAGI VALUE IS 'Y','y'.

88 TIDAK VALUE IS 'T','t'.

SCREEN SECTION.

01 HAPUS-LAYAR.

02 BLANK SCREEN.

PROCEDURE DIVISION.

MULAI.

DISPLAY HAPUS-LAYAR.

DISPLAY (1,1) 'NAMA ANDA :'. ACCEPT NAMA.

DISPLAY (3,1) 'GAJI POKOK :Rp. '. ACCEPT GAJIPOKOK.

DISPLAY (5,1) 'BESARNYA TUNJANGAN:Rp. '. ACCEPT TUNJANGAN.

COMPUTE TOT-GAJI=GAJI-POKOK+TUNJANGAN.

DISPLAY HAPUS-LAYAR.

DISPLAY '==== GAJI ANDA UNTUK BULAN INI ===='.

DISPLAY SPACE.

DISPLAY (3,1) 'NAMA : ', NAMA.

DISPLAY (5,1) 'GAJI POKOK : Rp. ', GAJIPOKOK.

DISPLAY (7,1) 'GAJI TUNJANGAN : Rp. ', TUNJANGAN.

DISPLAY (9,1) 'TOTAL GAJI ANDA : Rp. ', TOT-GAJI.

DISPLAY SPACE.

DISPLAY (12,1) 'INPUT DATA LAGI? (Y/T): '. ACCEPT TANYA.

88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI.

SELESAI.

STOP RUN.

Program Running:

Penjelasan Logika Program:

1.Pada awal penulisan kode program diatas kita wajib menulis pada kolom 8:

IDENTIFICATION DIVISION.

PROGRAM-ID. LEVEL NUMBER.

DATA DIVISION.

ENVIRONMENT DIVISION.

WORKING-STORAGE-SECTION.

2. Fungsi kode WORKING-STORAGE-SECTION adalah pemesanan tempat pada internal memory pada program, contoh pada kode program diatas:

01 DATAINPUT.

……..

88 TIDAK VALUE IS 'T','t'

3. Pada program diatas terdapat level number:

Untuk level number 01: Untuk mengawali keterangan dari record

Untuk level number 02 sampai 49: Untuk mengawali keterangan dari data item

Untuk level number 88: Untuk mengawali suatu kondisi, contoh pada program diatas:

[88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI.]

4. Disini kita membuat sebuah data inputan dan nanti hasil output yang diinginkan terdapat NAMA, GAJI POKOK, BESAR TUNJANGAN dan TOTAL GAJI.

Untuk itu kita membuat sebuah variable yang dibutuhkan sebelum melakukan sebuah prosedur program atau proses program nantinya.

5. Misal pada variable berikut:

02 NAMA PIC A(50) à digunakan untuk variabel karakter/string

03 GAJIPOKOK PIC 9(6). à digunakan untuk variable numeric

88 LAGI VALUE IS 'Y','y'. à digunakan untuk variable string dan juga sebagai sebuah kondisi karena terdapat level number 88

6. SCREEN SECTION: untuk menunjukkan bentuk format dari layar terminal untuk menampilkan atau memasukkan data

7. BLANK SCREEN: digunakan untuk membersihkan layar dan menempatkan cursor pd posisi kiri atas ( baris1, kolom1 )

8. Pada prosedur diatas terdapat “COMPUTE” digunakan untuk perhitungan antara gaji pokok dan besar tunjangan dalam program

9. Jika program dijalankan ada statement kondisi dimana saat kita memilih tidak sesuai dengan variable yang tersedia pada program, maka program selesai jika memasukkan pilihan sesuai dengan variable yang tersedia program diulang kembali.

Statement tersebut terdapat pada:

“DISPLAY (12,1) 'INPUT DATA LAGI? (Y/T): '. ACCEPT TANYA.

88 IF TANYA = 'Y' OR 'y' GO TO MULAI ELSE GO TO SELESAI”