|
IDENTIFICATION DIVISION.
PROGRAM-ID. BANKPROGRAM.
AUTHOR. Nick.
*This program is used to model the ATM at Orlove National Bank.
*The following lines are the variable information required to
*run BANKPROGRAM.
date-written. 5.5.2010.
ENVIRONMENT DIVISION.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT BankFile ASSIGN TO "BANKRECORDS.DAT"
ORGANIZATION IS LINE SEQUENTIAL.
DATA DIVISION.
FILE SECTION.
FD BankFile.
01 customerInfo PIC X(31).
WORKING-STORAGE SECTION.
01 userChoice PIC 9 VALUE ZEROS.
01 x PIC 9(2) VALUE 1.
01 y PIC 9(1) VALUE ZERO.
01 numChars PIC 9(2).
01 tempInputName PIC X(10).
01 tempInputPin PIC 9(4).
01 tempLoginCred PIC X(16).
01 tempUserName PIC X(13).
01 tempPin PIC X(7).
01 tempPin2 PIC X(7).
01 tempAccountBalance PIC X(18).
01 tempAccountBalance2 PIC X(18).
01 tempCustomerInfo PIC X(31).
01 userName PIC X(10).
01 pin PIC 9(4).
01 accountBalance PIC 9(15).
01 discoveredUser PIC X(10).
01 discoveredPin PIC 9(4).
01 tempDiscoveredBal PIC 9(15).
01 discoveredBal PIC 9(15).
01 easyReadBal PIC 9(15).
01 depositAmount PIC 9(15).
01 withdrawAmount PIC 9(15).
01 cusFull PIC X(31).
01 counter usage binary-long.
01 counter2 usage binary-long.
01 counter3 usage binary-long.
01 finalCount PIC 9(4).
01 file-eof PIC 9 VALUE low-value.
88 at-eof VALUE high-values.
01 customerList.
05 customer-table OCCURS 100000 TIMES
DEPENDING ON counter
ASCENDING KEY IS cusStr
INDEXED BY cus-index.
10 cusStr PIC X(10).
01 customerList2.
05 customer-table2 OCCURS 100000 TIMES
DEPENDING ON counter2
ASCENDING KEY IS cusPin
INDEXED BY cus-index2.
10 cusPin PIC X(16).
01 listForRewrite.
05 customer-table3 OCCURS 100000 TIMES
DEPENDING ON counter3
ASCENDING KEY IS cusSpot
INDEXED BY cus-index3.
10 cusSpot PIC X(16).
*This instance method begins BANKPROGRAM by calling the WelcomeMessage
*which is the primary instance method in this program.
PROCEDURE DIVISION.
Begin.
PERFORM WelcomeMessage.
STOP RUN.
*This instance method's role is to ask the user whether they are a
*new customer or an existing one. If they are new, NewUser is called
*and if they are existing, Login is called.
WelcomeMessage.
DISPLAY " ".
DISPLAY "Welcome to the Orlove National Bank.".
DISPLAY "What would you like to do?".
DISPLAY "Log in? (please type 1)".
DISPLAY "Or create a new account? (please type 2)".
ACCEPT userChoice.
IF userChoice = 1 THEN
PERFORM NewLine
MOVE ZERO TO x
PERFORM Login
ELSE
IF userChoice = 2 THEN
PERFORM NewUser
ELSE
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, that was an invalid"
- " command. Restarting."
PERFORM WelcomeMessage
END-IF.
*This is the primary instance method for the existing user part
*of the program. It accepts the username and pin number from the
*user attempting to log in and then searches through BankFile
*to see if their supplied credentials matches anything on file.
Login.
DISPLAY " ".
DISPLAY "Please enter in your User Name. ".
ACCEPT tempInputName.
DISPLAY "Please enter in your pin number.".
ACCEPT tempInputPin.
STRING tempInputName,"~",tempInputPin,"~"
DELIMITED BY SIZE INTO tempLoginCred
OPEN I-O BankFile
MOVE low-value TO file-eof
READ BankFile
AT END SET at-eof TO TRUE
END-READ
PERFORM
WITH TEST BEFORE
UNTIL at-eof OR (counter2 > 100000)
ADD 1 TO counter2
MOVE customerInfo TO cusPin(counter2)
IF cusPin(counter2) = tempLoginCred THEN
MOVE customerInfo TO cusFull
END-IF
READ BankFile
AT END SET at-eof TO TRUE
END-READ
END-PERFORM.
SORT customer-table2 on ascending key cusPin.
SET cus-index2 TO 1.
SEARCH ALL customer-table2
AT END PERFORM UserNameNotFound
WHEN cusPin(cus-index2) = tempLoginCred
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "Log in successful!"
UNSTRING cusFull DELIMITED BY ALL "~"
INTO discoveredUser, discoveredPin,
tempDiscoveredBal
END-UNSTRING
PERFORM Menu
END-SEARCH.
*The UserNameNotFound instance method is called when the supplied
*user credentials don't match any records on file.
UserNameNotFound.
PERFORM NewLine.
MOVE ZERO TO x.
DISPLAY "I'm sorry, your username/password is incorrect. ".
- "Restarting".
CLOSE BankFile.
PERFORM WelcomeMessage.
*The Menu instance method is used to display the choices available
*to the already logged in user. This method gets directed to either
*the CheckBalance, DepositMoney, WithdrawMoney, or WelcomeMessage
*methods. When the user chooses to log out, the users file is
*re-written to the BankFile and permanently saved by calling the
*SaveFile instance method.
Menu.
DISPLAY "You are logged in, what would you like to do?".
DISPLAY "Check your balance (please type 1)".
DISPLAY "Deposit money into your account "
- "(please type 2)".
DISPLAY "Withdraw from your account (please type 3)".
DISPLAY "Log out (please type 4)".
ACCEPT userChoice.
IF userChoice = 1 THEN
PERFORM NewLine
MOVE ZERO TO x
PERFORM CheckBalance
ELSE
IF userChoice = 2 THEN
PERFORM NewLine
MOVE ZERO TO x
PERFORM DepositMoney
ELSE
IF userChoice = 3 THEN
PERFORM NewLine
MOVE ZERO TO x
PERFORM WithdrawMoney
ELSE
IF userChoice = 4 THEN
PERFORM NewLine
MOVE ZERO TO x
CLOSE BankFile
PERFORM SaveFile
ELSE
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, that was an"
- " invalid command. Restarting."
CLOSE BankFile
PERFORM WelcomeMessage
END-IF.
PERFORM Menu.
*This instance method has the task of saving the appropriate
*changes to the external BankFile.
SaveFile.
****************************************************
DISPLAY "Now saving file..."
STRING discoveredUser,"~",discoveredPin,"~",
discoveredBal DELIMITED BY SIZE INTO
customerInfo
END-STRING.
MOVE customerInfo TO tempCustomerInfo.
OPEN I-O BankFile.
MOVE low-value TO file-eof.
READ BankFile
AT END SET at-eof TO TRUE
END-READ.
MOVE y TO counter3.
PERFORM
WITH TEST BEFORE
UNTIL at-eof OR (counter3 > 100000)
ADD 1 TO counter3
MOVE customerInfo TO cusSpot(counter3)
IF cusSpot(counter3) = tempLoginCred THEN
DISPLAY "IN THE LOOP!!"
MOVE counter3 TO finalCount
DISPLAY "counter is: " finalCount
MOVE tempCustomerInfo TO customerInfo
DISPLAY "info to write: "customerInfo
REWRITE customerInfo
END-IF
READ BankFile
AT END SET at-eof TO TRUE
END-READ
END-PERFORM.
CLOSE BankFile.
PERFORM WelcomeMessage.
*This instance method simply checks the amount of money on
*file in the users account.
CheckBalance.
MOVE tempDiscoveredBal TO easyReadBal
INSPECT easyReadBal REPLACING LEADING "0" BY "*".
DISPLAY "Your balance is: $" easyReadBal.
*The DepositMoney instance method accepts in an amount of money
*to add into the users account.
DepositMoney.
DISPLAY "How much money would you like to deposit? "
- "(please do not put a dollar sign or commas "
- "and keep the balance less than $9.99 Billion)".
ACCEPT depositAmount.
MOVE ZERO TO numChars.
INSPECT FUNCTION REVERSE(depositAmount) TALLYING
numChars FOR TRAILING ZEROS.
COMPUTE numChars = numChars - 15.
IF numChars > 10 OR < 1 THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM DepositMoney
ELSE
IF depositAmount NOT NUMERIC THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM DepositMoney
ELSE
ADD depositAmount TO tempDiscoveredBal
MOVE tempDiscoveredBal TO discoveredBal
END-IF.
PERFORM NewLine.
MOVE ZERO TO x.
*The WithdrawMoney instance method accepts in an amount of money
*to subtract from the users account.
WithdrawMoney.
DISPLAY "How much money would you like to withdraw?".
ACCEPT withdrawAmount.
MOVE ZERO TO numChars.
INSPECT FUNCTION REVERSE(withdrawAmount) TALLYING
numChars FOR TRAILING ZEROS.
COMPUTE numChars = numChars - 15.
IF numChars > 10 OR < 1 THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM WithdrawMoney
ELSE
IF withdrawAmount NOT NUMERIC THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM WithdrawMoney
ELSE
SUBTRACT withdrawAmount FROM
tempDiscoveredBal
MOVE tempDiscoveredBal TO discoveredBal
END-IF.
PERFORM NewLine.
MOVE ZERO TO x.
*The Newuser instance method asks the user to input specific data
*required to open a bank account. Once NewUser obtains a valid
*username, it calls ObtainPin. To be considered valid, the username
*must not already been taken, and must be between 1 and 10 characters.
NewUser.
DISPLAY " ".
DISPLAY "Please follow the simple instructions to "
- "open up an account with us."
DISPLAY "What would you like your username to be? "
- "(please limit to 10 characters but greater than 1)".
ACCEPT tempUserName.
MOVE ZERO TO numChars
INSPECT FUNCTION REVERSE(tempUserName) TALLYING numChars
FOR LEADING SPACES.
COMPUTE numChars = LENGTH OF tempUserName - numChars.
IF numChars > 10 OR < 1 THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, your username did not follow"
- " the requirements. Restarting."
PERFORM NewUser
END-IF.
MOVE tempUserName TO userName.
OPEN INPUT BankFile
MOVE low-value TO file-eof
READ BankFile
AT END SET at-eof TO TRUE
END-READ
MOVE y TO counter
PERFORM
WITH TEST BEFORE
UNTIL at-eof OR (counter > 100000)
ADD 1 TO counter
MOVE customerInfo TO cusStr(counter)
READ BankFile
AT END SET at-eof TO TRUE
END-READ
END-PERFORM.
SORT customer-table on ascending key cusStr.
SET cus-index TO 1
SEARCH ALL customer-table
AT END PERFORM FinishUserName
WHEN cusStr(cus-index) = userName
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, your username has already"
- " been taken. Restarting."
CLOSE BankFile
PERFORM NewUser
END-SEARCH.
*The FinishUserName instance method is used to close the
*BankFile and move onto the next method which is to get the
*pin number from the user.
FinishUserName.
CLOSE BankFile.
DISPLAY "Your user name is: " userName.
PERFORM ObtainPin.
*The ObtainPin instance method asks for a valid pin from the user,
*once one is accepted, ObtainAccountBalance is called. A valid pin
*is any 4 digit number.
ObtainPin.
DISPLAY "What would your like your 4 digit pin to be?".
ACCEPT tempPin.
MOVE ZERO TO numChars.
INSPECT FUNCTION REVERSE(tempPin) TALLYING numChars
FOR LEADING SPACES.
COMPUTE numChars = LENGTH OF tempPin - numChars.
IF numChars NOT EQUAL 04 THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, your pin did not follow"
- " the requirements. Restarting."
PERFORM ObtainPin
END-IF.
MOVE tempPin TO tempPin2.
INSPECT tempPin2 REPLACING ALL " " BY "1".
IF tempPin2 NOT NUMERIC THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, your pin did not follow"
- " the requirements. Restarting."
PERFORM ObtainPin
END-IF.
MOVE tempPin TO pin.
DISPLAY "Your pin is: " pin.
PERFORM ObtainAccountBalance.
*The ObtainAccountBalance instance method asks for a valid sum
*of money from the user that the user is depositing into the
*bank. A valid sume of money is any numeric amount less than 9.99
*BillionOnce one is accepted, all the user specified information
*is written to the BANKRECORDS.DAT file.
ObtainAccountBalance.
DISPLAY "How much money are you depositing with us "
- "today? (please do not put a dollar sign or commas "
- "and keep the balance less than $9.99 Billion)".
ACCEPT tempAccountBalance.
MOVE ZERO TO numChars.
INSPECT FUNCTION REVERSE(tempAccountBalance) TALLYING
numChars FOR LEADING SPACES.
COMPUTE numChars = LENGTH OF tempAccountBalance -
numChars.
IF numChars > 10 OR < 1 THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM ObtainAccountBalance
END-IF.
MOVE tempAccountBalance TO tempAccountBalance2.
INSPECT tempAccountBalance2 REPLACING ALL " " BY "1".
IF tempAccountBalance2 NOT NUMERIC THEN
PERFORM NewLine
MOVE ZERO TO x
DISPLAY "I'm sorry, the ammount of money you ent"
- "ered did not follow the requirements. Restarting."
PERFORM ObtainAccountBalance
END-IF.
MOVE tempAccountBalance TO accountBalance.
PERFORM NewLine.
MOVE ZERO TO x.
DISPLAY "The ammount of money you are depositing is $"
accountBalance.
STRING userName,"~",pin,"~",accountBalance
DELIMITED BY SIZE INTO customerInfo
END-STRING.
OPEN EXTEND BankFile.
WRITE customerInfo.
CLOSE BankFile.
DISPLAY "Thank you for opening a bank account with us!".
DISPLAY "Please press enter to log in.".
ACCEPT userChoice.
PERFORM NewLine
MOVE ZERO TO x
PERFORM WelcomeMessage.
*The NewLine instance method creates a new line block to make
*the program easier to use and view. The empty block consists
*of 40 lines.
NewLine.
PERFORM UNTIL x > 40
DISPLAY " "
COMPUTE x = x + 1
END-PERFORM.
¤ Dauer der Verarbeitung: 0.31 Sekunden
(vorverarbeitet)
¤
|
Haftungshinweis
Die Informationen auf dieser Webseite wurden
nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit,
noch Qualität der bereit gestellten Informationen zugesichert.
Bemerkung:
Die farbliche Syntaxdarstellung ist noch experimentell.
|
