Program Cobol (Bunga Bank)

Hallo pembaca dimana pun kalian berada yang sedang (ingin/akan/niat/mau/lagi) ngoding COBOL, dan di tugaskan sama dosen membuat program Menghitung Bunga Bank dengan menggunakan COBOL, ini dia salah satu sumber yang bisa kalian gunakan.

Btw, disini saya menggunakan statement GO TO untuk peloncatan di kodisi IF pada seleksi. Kodingan ini memuat pencarian menghitung :

1. Bunga Flat.

2. Bunga Efektif.

Untuk pengertian bunga ini bisa kalian searching, disini kita akan fokus dalam kodingan COBOL. Oya, saya menggunakan OpenCobolIDE 4.7.4 dan meng-compile serta me-run di DOSBox 0.74. Kenapa saya menggunakan ini? Karena saya mau, hehehehe :D

Untuk pertanyaan silahkan kirim di kolom komentar di bawah ini yaa ;)

Nb : untuk persen admin menggunakan pada statement COMPUTE dengan menambahkan / 100

IDENTIFICATION DIVISION.
PROGRAM-ID. BUNGA-BANK.
AUTHOR. HANA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 VAR.
    02 P PIC 9(9).
    02 I PIC 9(2).
    02 T PIC 9(2).
    02 Z PIC 9(2).
    02 CPB PIC 99B999B999.
    02 BP PIC 99B999B999.
    02 TB PIC 99B999B999.
77 PILIH PIC X.
SCREEN SECTION.
01 CLS.
    02 BLANK SCREEN.
01 MENU-AWAL.
    02 LINE 3 COLUMN 24 VALUE "------------------------" BLINK.
    02 LINE 4 COLUMN 24 VALUE "|" BLINK.
    02 LINE 4 COLUMN 26 VALUE ">MENU HITUNG KREDIT<" HIGHLIGHT.
    02 LINE 4 COLUMN 47 VALUE "|" BLINK.
    02 LINE 5 COLUMN 24 VALUE "------------------------" BLINK.
    02 LINE 6 COLUMN 27 VALUE "1. BUNGA FLAT".
    02 LINE 7 COLUMN 27 VALUE "2. BUNGA EFEKTIF".
    02 LINE 8 COLUMN 24 VALUE "-----------------------" BLINK.
    02 LINE 10 COLUMN 27 VALUE "PILIH MANA ?".
    02 COLUMN PLUS 2 PIC X TO PILIH.
01 ADV.
    02 LINE 21 COLUMN 1 VALUE "CREATED BY HANA CHAN".
    02 LINE 22 COLUMN 1 VALUE "please visit ma blog @".
    02 LINE 23 COLUMN 1 VALUE "hanasky.blogspot.co.id".
PROCEDURE DIVISION.
MAIN-SCREEN.
    DISPLAY CLS.
    DISPLAY ADV.
    DISPLAY MENU-AWAL.
    ACCEPT PILIH.
SELEKSI.
    IF PILIH = 1 GO TO BUNGFLAT.
    IF PILIH = 2 GO TO BEFEKTIF.
    IF PILIH = 3 GO TO SELESAI.
BUNGFLAT.
    DISPLAY CLS.
    DISPLAY '**************************************************'.
    DISPLAY ' PERHITUNGAN BUNGA FLAT' .
    DISPLAY '**************************************************'.
    DISPLAY 'POKOK PINJAMAN?'.  
    ACCEPT P.
    DISPLAY 'SUKU BUNGA PERTAHUN (%)?'.
    ACCEPT I.
    DISPLAY 'LAMA KREDIT (BULAN)?'.
    ACCEPT T.
    DISPLAY SPACE.
    DISPLAY SPACE.
    DISPLAY 'ANGSURAN YANG HARUS ANDA BAYAR'.
    DISPLAY SPACE.
    COMPUTE CPB = (P)/(T).
    COMPUTE BP = (P * I)/100 /12.
    COMPUTE TB = (P * I)/100 /12 * (T).
    DISPLAY 'CICILAN POKOK PERBULAN'.
    DISPLAY '=' CPB.
    DISPLAY 'SUKU BUNGA PER BULAN'.
    DISPLAY '=' BP.
    DISPLAY 'TOTAL BUNGA YANG HARUS DI BAYAR'.
    DISPLAY '=' TB.
    DISPLAY '**************************************************'.
    STOP 'TEKAN ENTER UNTUK KE MENU AWAL'.
    GO TO MAIN-SCREEN.
BEFEKTIF.
    DISPLAY CLS.
    DISPLAY '**************************************************'.
    DISPLAY ' PERHITUNGAN BUNGA EFEKTIF '.
    DISPLAY '**************************************************'.
    DISPLAY 'POKOK PINJAMAN?'.
    ACCEPT P.
    DISPLAY 'SUKU BUNGA PERTAHUN (%)?'.
    ACCEPT I.
    DISPLAY 'LAMA KREDIT (BULAN)?'.
    ACCEPT T.
    DISPLAY 'BULAN KE..'.
    ACCEPT Z.
    DISPLAY SPACE.
    DISPLAY SPACE.
    DISPLAY 'ANGSURAN YANG HARUS ANDA BAYAR'.
    DISPLAY SPACE.
    COMPUTE CPB = (P)/(T).
    COMPUTE BP = ((P) - (Z - 1) * ((P)/(T))) * I / 100 / 12.
    DISPLAY 'CICILAN POKOK PERBULAN'.
    DISPLAY '=' CPB.
    DISPLAY 'BUNGA PERBULAN KE Z'.
    DISPLAY '=' BP.
    DISPLAY '**************************************************'.
    STOP 'TEKAN ENTER UNTUK KE MENU AWAL'.
    GO TO MAIN-SCREEN.
SELESAI.
    STOP RUN.