Tampilkan postingan dengan label Cobol. Tampilkan semua postingan
Tampilkan postingan dengan label Cobol. Tampilkan semua postingan

Minggu, 23 November 2014

Cobol ATM

Langsung aja yah kebetulan ada tugas kampus yang memang ini dadakan banget dan saya juga belum memahami benar aplikasi cobol ini. Tapi saya berusaha untuk menyelesaikannya dan akhir nya program ini jadi juga...

langsung aja saya share ...
jangan lupa comment nya ya .. :D

Masukkan kartu ATM


MK-ATM.
           DISPLAY CLS.
           DISPLAY KARTU-ATM.
           ACCEPT KARTU-ATM.
           IF OK = 'Y' OR 'y'
           GO TO U-PIN
           ELSE
           GO TO THANKS.

Untuk DISPLAY KARTU-ATM untuk memanggil paragraf pada screen section. Coding paragraf sebagai berikut :

01 KARTU-ATM.
           02 LINE 10 COLUMN 24 VALUE 'MASUKKAN KARTU ATM (Y/N)'.
           02 COLUMN PLUS 1 PIC X TO OK.

Apabila anda pilih Y maka anda langsung masukkan pin jika anda pilih N makan anda akan menuju ke paragraf THANKS dan langsung kuar dari program.


Masukkan PIN ATM


U-PIN.
           PERFORM M-PIN VARYING I FROM 1 BY 1 UNTIL I > N.          
           GO TO FAIL-PIN.

M-PIN.
           DISPLAY (5, 24) '***********************************'.
           DISPLAY (8, 27) 'BATAS MASUKKAN PIN 3X'.
           DISPLAY (10, 24) '***********************************'.
           DISPLAY MASUK-PIN.
           ACCEPT MASUK-PIN.
           IF MPIN = PIN
           GO TO MENU
           ELSE
           DISPLAY (11, 27) 'PIN SALAH !', I, 'X'.

Untuk input pin memanggil paragraf DISPLAY MASUK-PIN sebagai berikut :

01 MASUK-PIN.
           02 LINE 7 COLUMN 27 VALUE 'MASUKKAN PIN ANDA : '.
           02 COLUMN PLUS 1 PIC 9(6) TO MPIN.

Untuk masukkan pin hanya sampai 3 kali masukkan pin jika lebih dari 3 maka akan keluar. Dan PERFORM M-PIN VARYING I FROM 1 BY 1 UNTIL I > N untuk mengulang pin jika salah sampai 3 kali dan value N sudah di tetapkan yaitu 3 variabel I jika lebih dari 3 akan langsung ke statment GO TO FAIL-PIN. Jika pin berhasil makan akan langsung ke menu ATM.


Menu ATM


MENU.
           DISPLAY CLS.
           DISPLAY (2, 26) 'SILAKAN MEMILIH TRANSAKSI'.
           DISPLAY (4, 25) 'UNTUK MEMBATALKAN TRANSAKSI'.
           DISPLAY (5, 31) 'PILIH "0" ENTER'.
           DISPLAY (8, 17) '1. INFORMASI SALDO'.
           DISPLAY (11, 17) '2. TRANSFER'.
           DISPLAY (8, 47) '3. TARIK TUNAI'.
           DISPLAY (11, 47) '4. GANTI PIN'.
           DISPLAY (14, 17) 'MASUKKAN PILIHAN ANDA : ', ACCEPT MNU.
           IF MNU = 0
           GO TO THANKS
           ELSE IF MNU = 1
           GO TO SALDO
           ELSE IF MNU = 2
           GO TO TRANSFER
           ELSE IF MNU = 3
           GO TO TARIK
           ELSE IF MNU = 4
           COMPUTE P = P + 1 à untuk mengganti pin hanya 1 kali
           GO TO U-GANTI
           ELSE
           DISPLAY (16, 17) 'PILIHAN 1-4 TEKAN ENTER KEMBALI'
           DISPLAY (17, 17) 'PILIH 0 UNTUK BATAL TRANSAKSI', ACCEPT OK.
            GO TO MENU.


Informasi Saldo ATM


SALDO.
           DISPLAY CLS.
           DISPLAY (10, 25) 'SISA SALDO ANDA : ', SLD.
           DISPLAY (13, 25) 'INGIN MELAKUKAN TRANSAKSI LAIN ?'.
           DISPLAY (15, 25) '1. YA'.
           DISPLAY (16, 25) '2. TIDAK'.
           DISPLAY (18, 25) 'MASUKKAN PILIHAN : ', ACCEPT MNU.
           IF MNU = 1
           GO TO MENU
           ELSE
           GO TO THANKS.

Setelah muncul informasi saldo akan ada pilihan jika anda ingin melakukan transaksi lagi atau tidak jika 1. YA maka akan kembali ke menu, dan 2. Tidak akan langsung menuju paragraf THANKS.


Transfer ATM



TRANSFER.
           DISPLAY CLS.
           DISPLAY TRANS-ATM.
           ACCEPT TRANS-ATM.
           COMPUTE SLD = SLD - TRANS.
           DISPLAY (11, 25) 'SISA SALDO ANDA : ', SLD.
           DISPLAY (13, 25) 'INGIN MELAKUKAN TRANSAKSI LAIN ?'.
           DISPLAY (15, 25) '1. YA'.
           DISPLAY (16, 25) '2. TIDAK'.
           DISPLAY (18, 25) 'MASUKKAN PILIHAN : ', ACCEPT MNU.
           IF MNU = 1
           GO TO MENU
           ELSE
           GO TO THANKS.

Untuk menampilkan input rekening dan jumlah uang kita panggil paragraf TRANS-ATM sebagai berikut :

01 TRANS-ATM.
           02 LINE 6 COLUMN 25 VALUE 'MASUKKAN NO. REKENING : '.
           02 COLUMN PLUS 1 PIC 9(12) TO REK.
           02 LINE 9 COLUMN 25 VALUE 'MASUKKAN JUMLAH : '.
           02 COLUMN PLUS 1 PIC 9(7) TO TRANS.

Setelah input nomer rekening dan jumlah akan menampilkan sisa saldo yang telah di transfer. Setelah itu akan muncul pilihan kembali ke menu atau tidak.


Tarik Tunai ATM


TARIK.
           DISPLAY CLS.
           DISPLAY (4, 29) 'MENU PENARIKAN CEPAT'.
           DISPLAY (6, 24) 'SILAKAN PILIH JUMLAH PENARIKAN'.
           DISPLAY (9, 20) '1-----200.000  '.
           DISPLAY (12, 20) '2-----500.000  '.
           DISPLAY (15, 20) '3-----1.200.000'.
           DISPLAY (9, 42) '  250.000-----4'.
           DISPLAY (12, 42) '1.000.000-----5'.
           DISPLAY (15, 42) 'PILIHAN LAIN--6',
           DISPLAY (18, 24) 'PILIH PENARIKAN : ', ACCEPT MNU.
           IF MNU = 1
           COMPUTE SLD = SLD - TRK1
           GO TO TARIK-HASIL
           ELSE IF MNU = 2
           COMPUTE SLD = SLD - TRK2
           GO TO TARIK-HASIL
           ELSE IF MNU = 3
           COMPUTE SLD = SLD - TRK3
           GO TO TARIK-HASIL
           ELSE IF MNU = 4
           COMPUTE SLD = SLD - TRK4
           GO TO TARIK-HASIL
           ELSE IF MNU = 5
           COMPUTE SLD = SLD - TRK5
           GO TO TARIK-HASIL
           ELSE IF MNU = 6
           GO TO TARIK-LAIN
           ELSE
           DISPLAY (20, 24) 'PILIHAN 1-6 TEKAN ENTER KEMBALI', ACCEPT OK.
           GO TO TARIK.

TARIK-HASIL.
           DISPLAY CLS.
           DISPLAY (8, 25) 'SISA SALDO ANDA : ', SLD.
           DISPLAY (12, 25) 'INGIN MELAKUKAN TRANSAKSI LAIN ?'.
           DISPLAY (14, 25) '1. YA'.
           DISPLAY (15, 25) '2. TIDAK'.
           DISPLAY (17, 25) 'MASUKKAN PILIHAN : ', ACCEPT MNU.
           IF MNU = 1
           GO TO MENU
           ELSE
           GO TO THANKS.


TARIK-LAIN.
           DISPLAY CLS.
           DISPLAY L-TARIK.
           ACCEPT L-TARIK.
           COMPUTE SLD = SLD - TRK.
           DISPLAY (12, 25) 'SISA SALDO ANDA : ', SLD.
           DISPLAY (16, 25) 'INGIN MELAKUKAN TRANSAKSI LAIN ?'.
           DISPLAY (18, 25) '1. YA'.
           DISPLAY (19, 25) '2. TIDAK'.
           DISPLAY (21, 25) 'MASUKKAN PILIHAN : ', ACCEPT MNU.
           IF MNU = 1
           GO TO MENU
           ELSE
            GO TO THANKS.


Ganti PIN ATM


U-GANTI.
           IF P = 5
           PERFORM GANTI VARYING I FROM 1 BY 1 UNTIL I > N
           GO TO FAIL-PIN
           ELSE
           DISPLAY CLS.          
           DISPLAY (10, 25) 'MAAF ANDA SUDAH GANTI PIN ANDA'.
           DISPLAY (11, 29) 'UBAH PIN HANYA BISA 1X', ACCEPT OK.
           GO TO MENU.

GANTI.
           DISPLAY CLS.
           DISPLAY LAMA-PIN.
           ACCEPT LAMA-PIN.
           IF MPIN = PIN
           DISPLAY BARU-PIN
           ACCEPT BARU-PIN
           DISPLAY (11, 24) 'SELAMAT PIN ANDA SUDAH DI GANTI', ACCEPT OK
           GO TO Q-GANTI
           ELSE
           DISPLAY (9, 24) 'MAAF PIN SALAH !', I, 'X', ACCEPT OK.

Q-GANTI.
           DISPLAY (13, 24) 'INGIN MELAKUKAN TRANSAKSI LAIN ?'.
           DISPLAY (15, 24) '1. YA'.
           DISPLAY (16, 24) '2. TIDAK'.
           DISPLAY (18, 24) 'MASUKKAN PILIHAN : ', ACCEPT MNU.
           IF MNU = 1
           GO TO MENU
           ELSE
           GO TO SELESAI.

Dan jika anda sudah mengganti pin 1 kali maka tidak bisa mengganti pin sampai 2 kali, jika anda ingin mengganti pin sampai 2 kali akan muncul pesan sebagai berikut :




Full Source Code


Categories:

sealkazzsoftware.blogspot.com resepkuekeringku.com

Copyright © Informatica Technologi | Powered by Blogger | Up ↑