Banking Transaction System

Deposit, withdraw, and check balance.
IF-ELSE, arithmetic, file storage.

       IDENTIFICATION DIVISION.
   PROGRAM-ID. BANKING.
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 ACCOUNT-BAL   PIC 9(6)V99 VALUE 1000.00.
   01 AMOUNT        PIC 9(6)V99.
   01 CHOICE        PIC 9.
   PROCEDURE DIVISION.
   MAIN-PARA.
       DISPLAY "1. CHECK BALANCE"
       DISPLAY "2. DEPOSIT"
       DISPLAY "3. WITHDRAW"
       ACCEPT CHOICE
       IF CHOICE = 1
           DISPLAY "BALANCE = " ACCOUNT-BAL
       ELSE IF CHOICE = 2
           DISPLAY "ENTER AMOUNT TO DEPOSIT: "
           ACCEPT AMOUNT
           ADD AMOUNT TO ACCOUNT-BAL
           DISPLAY "UPDATED BALANCE = " ACCOUNT-BAL
       ELSE IF CHOICE = 3
           DISPLAY "ENTER AMOUNT TO WITHDRAW: "
           ACCEPT AMOUNT
           IF AMOUNT > ACCOUNT-BAL
               DISPLAY "INSUFFICIENT BALANCE"
           ELSE
               SUBTRACT AMOUNT FROM ACCOUNT-BAL
               DISPLAY "UPDATED BALANCE = " ACCOUNT-BAL
           END-IF
       END-IF.
       STOP RUN.

Explanation:

• Starts with balance = 1000.
• User can check balance, deposit, or withdraw.
• Prevents withdrawal if funds are insufficient.