Quelle  banksample.cob   Sprache: Cobol

      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.