[b]SALES-MAN AMOUNT-OF-SALE COMMISSION[/b]
1 233 23.30
334 33.45
400 30.00
[b]TOTAL-SALE : 967 TOTAL-COMMISSION : 86.75[/b]
2 123 32.12
223 34.44
--
. . .
. . .
. . .
can any one help me with the above program
I have used he following code but not successful.
PROCEDURE DIVISION.
MOVE I TO I.
READ INFILE AT END MOVE "NO" TO WS-Y
NOT AT END
PERFORM COMPUTE-PARA UNTIL WS-Y = "NO".
MOVE
COMPUTE-PARA.
IF ( SALES-MAN = I ) AND ( SALES-MAN < I + 1 )
MOVE SALES-MAN TO OUT-SALES-MAN.
MOVE AMOUNT-OF-SALE TO OUT-AMOUNT-OF-SALE
MOVE COMMISSION TO OUT-COMMISSION
ADD AMOUNT-OF-SALE TO TOTAL- SALE
ADD COMMISSION TO TOTAL-COMMISSION
-.....
END-IF.
EVALUATE SALES-MAN
WHEN I + 1 THEN ADD 1 TO I.
ELSE
DISPLAY "STILL I"
END-EVALUATE.
READ INFILE AT END MOVE "NO" TO WS-Y
SOLVE THE PROBLEM
Moderators: dbzTHEdinosauer, Moderator Group
-
- Moderator
- Posts: 1625
- Joined: Sat Aug 09, 2008 9:02 am
- Location: Mumbai, India
Why to double post with no further information: http://www.mainframegurukul.com/ibmmain ... 2766#12766
Regards,
Anuj
Anuj
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page