Sales Billing System

Calculate total bill with discount and tax.
Arithmetic operations, COMPUTE, ACCEPT/DISPLAY.

       IDENTIFICATION DIVISION.
   PROGRAM-ID. BILLING.
   DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 ITEM-NAME    PIC A(20).
   01 PRICE        PIC 9(5)V99.
   01 QUANTITY     PIC 9(3).
   01 TOTAL        PIC 9(6)V99.
   01 DISCOUNT     PIC 9(6)V99.
   01 NET-AMOUNT   PIC 9(6)V99.
   PROCEDURE DIVISION.
       DISPLAY "ENTER ITEM NAME: " ACCEPT ITEM-NAME
       DISPLAY "ENTER PRICE: " ACCEPT PRICE
       DISPLAY "ENTER QUANTITY: " ACCEPT QUANTITY
       COMPUTE TOTAL = PRICE * QUANTITY
       IF TOTAL > 5000
           COMPUTE DISCOUNT = TOTAL * 0.10
       ELSE
           COMPUTE DISCOUNT = TOTAL * 0.05
       END-IF
       COMPUTE NET-AMOUNT = TOTAL - DISCOUNT
       DISPLAY "ITEM: " ITEM-NAME
       DISPLAY "TOTAL: " TOTAL
       DISPLAY "DISCOUNT: " DISCOUNT
       DISPLAY "NET AMOUNT: " NET-AMOUNT
       STOP RUN.

Explanation:

• Accepts price & quantity, calculates bill.
• Applies discount based on purchase amount.
• Simulates a retail billing system.