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