Cobol ATM ~ Informatica Technologi

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 :