Program to calculate salesman commission.

IDENTIFICATION DIVISION.
PROGRAM-ID. Q2.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM PC.
OBJECT-COMPUTER. IBM PC.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
77 COMMISSION PIC 9(3).9(2).
77 SALES PIC 9(3).
77 SALESMAN PIC 9(5).
PROCEDURE DIVISION.
MAIN-PARA.
DISPLAY "PLS ENTER THE SALESMAN NO".
ACCEPT SALESMAN.
DISPLAY "PLS ENTER THE SALES".
ACCEPT SALES.
COMPUTE COMMISSION = ( SALES * 10 ) / 100.
DISPLAY " THE COMMISION EARNED IS".
DISPLAY COMMISSION.
DISPLAY "BY SALES MAN NO ."
DISPLAY SALESMAN.
STOP RUN.