Beranda > Computer, Tugas, Tulisan > PROGRAM LEVEL NUMBER

PROGRAM LEVEL NUMBER

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(7).

03 TUNJANGAN PIC 9(7).

02 TOTGAJI       PIC 9(8).

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 (2,1) ‘GAJI POKOK          : Rp. ‘. ACCEPT GAJIPOKOK.

DISPLAY (3,1) ‘BESARNYA TUNJANGAN  : Rp. ‘. ACCEPT TUNJANGAN.

COMPUTE TOTGAJI=GAJIPOKOK+TUNJANGAN.

DISPLAY HAPUS-LAYAR.

DISPLAY ‘==== GAJI ANDA UNTUK BULAN INI ====’.

DISPLAY SPACE.

DISPLAY ‘NAMA            : ‘, NAMA.

DISPLAY ‘GAJI POKOK      : Rp. ‘, GAJIPOKOK.

DISPLAY ‘GAJI TUNJANGAN  : Rp. ‘, TUNJANGAN.

DISPLAY ‘TOTAL GAJI ANDA : Rp. ‘, TOTGAJI.

DISPLAY SPACE.

DISPLAY ‘INGIN MEMASUKKAN DATA LAGI? (Y/T)’. ACCEPT TANYA.

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

SELESAI.

STOP RUN.

LOGIKA:

Pada program Cobol kali ini, kelompok ditugaskan untuk membenarkan coding program pada materi LEVEL NUMBER.

Sebenarnya, coding yang diberikan sudah hamper benar. Hanya diperlukan beberapa perbaikan seperti:

  • 49 BLANK-SECTION. Blank section kali ini merupakan bagian dari hapus layer, jadi, jangan gunakan level number 49. Gunakan level number 02.
  • HAPUS-LAYAR (setelah MULAI.). Jika layer ingin dihapus pada saat menjalankan program, tambahkan DISPLAY di bagian depan. Apabila DISPLAY tidak ditulis, maka pada saat ingin memasukkan data kembali, tulisan sebelumnya tidak akan hilang.
  • TOTAL-GAJI. Total gaji jangan dipisah dengan tanda kurang (-) karena akan dibaca sebagai pengurangan oleh program. Jadi tulis saja TOTGAJI atau TOTAL. Jangan lupa tambahakan COMPUTE di bagian depan.
  • IF. Untuk melakukan pemasukkan data kembali gunakan kodisi IF. Dalam hal ini, jika TANYA adalah ‘Y’ atau ‘y’ maka program akan dijalankan kembali. Selain itu, program akan berhenti.
  • Karena IF merupakan kondisi, gunakan level number 88.
Kategori:Computer, Tugas, Tulisan
  1. Belum ada komentar.
  1. No trackbacks yet.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: