Question: Hello I need some help with this COBOL program. It keeps giving me an error in my code. I need to write a program to

Hello I need some help with this COBOL program. It keeps giving me an error in my code. I need to write a program to accept a salary field and to calculate and display income tax as 20 percent of the salary. Here is the code I have.

IDENTIFICATION DIVISION.

PROGRAM-ID. DuongSA1.

ENVIRONMENT DIVISION.

INPUT-OUTPUT SECTION.

FILE-CONTROL.

SELECT IN3 ASSIGN TO DISK

ORGANIZATION IS LINE SEQUENTIAL.

SELECT OUT3 ASSIGN TO DISK

ORGANIZATION IS LINE SEQUENTIAL.

DATA DIVISION.

FILE SECTION.

FD IN3

LABEL RECORDS ARE STANDARD

VALUE OF FILE-ID IS "IN3.TXT".

01 IN3-REC.

05 EMPNO-IN PIC 9(3).

05 EMPNAME-IN PIC X(10).

05 BASIC-IN PIC 9999V99.

FD OUT3

LABEL RECORDS ARE STANDARD

VALUE OF FILE-ID IS "OUT3.TXT".

01 OUTREC PIC X(80).

WORKING-STORAGE SECTION.

77 ARE-THERE-MORE-REC PIC XXX VALUE 'YES'.

77 DA PIC 9(4)V99.

77 HRA PIC 9(4)V99.

77 MA PIC 9(4)V99.

77 PT PIC 9(4)V99.

77 PF PIC 9(4)V99.

77 IT PIC 9(4)V99.

* 77 GS PIC 9(5)V99.

* 77 DID PIC 9(5)V99.

01 OUT3-REC.

05 EMPNO-OUT PIC 9(3).

05 FILLER PIC X(5).

05 EMPNAME-OUT PIC X(10).

05 FILLER PIC X(5).

05 BASIC-OUT PIC 9(4).99.

05 FILLER PIC X(5).

05 GS-OUT PIC 9(5)V99.

05 FILLER PIC X(5).

05 DID-OUT PIC 9(5)V99.

05 FILLER PIC X(5).

05 NET-SAL PIC 9(5).99.

01 H1.

05 STAR PIC X(80) VALUE ALL '*'.

01 H2.

05 EMPNO PIC X(5) VALUE "EMPNO".

05 FILLER PIC X(5).

05 EMPNAME PIC X(10) VALUE "EMP NAME".

05 FILLER PIC X(5).

05 BASIC PIC X(5) VALUE "BASIC".

05 FILLER PIC X(2).

05 GS PIC X(15) VALUE "GROSS SALARY".

05 FILLER PIC X(2).

05 DID PIC X(10) VALUE "DIDUCTION".

05 FILLER PIC X(5).

05 NET PIC X(15) VALUE "NET SALARY".

PROCEDURE DIVISION.

MAIN-PARA.

OPEN INPUT IN3

OUTPUT OUT3.

WRITE OUTREC FROM H1.

WRITE OUTREC FROM H2.

WRITE OUTREC FROM H1.

READ IN3

AT END MOVE 'NO' TO ARE-THERE-MORE-REC.

PERFORM PARA-1 UNTIL ARE-THERE-MORE-REC = 'NO'.

CLOSE IN3.

CLOSE OUT3.

STOP RUN.

PARA-1. MOVE EMPNO-IN TO EMPNO-OUT.

MOVE EMPNAME-IN TO EMPNAME-OUT.

MOVE 80 TO PT COMPUTE PF = ( BASIC-IN ) * ( 12 / 100 )

COMPUTE IT = ( BASIC-IN ) * ( 20 / 100).

ADD BASIC-IN DA HRA MA GIVING GS-OUT.

* MOVE GS TO GS-OUT.

ADD PF PT IT GIVING DID-OUT.

* MOVE DID TO DID-OUT.

SUBTRACT DID-OUT FROM GS-OUT GIVING NET-SAL.

WRITE OUTREC FROM OUT3-REC.

READ IN3 AT END MOVE 'NO' TO ARE-THERE-MORE-REC.

It gives me the error Invalid indicator 'R' at column 7 at line 75. I have tried to edit the code, but the error will not go away. There is also a syntax error on line 29.

Step by Step Solution

There are 3 Steps involved in it

1 Expert Approved Answer

Step: 1 Unlock blur-text-image

Question Has Been Solved by an Expert!

Get step-by-step solutions from verified subject matter experts

Step: 2 Unlock

Step: 3 Unlock

Students Have Also Explored These Related Databases Questions!

Hello! I need help writing a COBOL program! Instructions: SAMPLE OUTPUT: INPUT DATA: MARK MCGWIRE MANAGER 0000067000 WILLIAM CLINTON PROJECT LEADER0000054000 JOE JACKSON PROJECT LEADER0000120000...

#include "msp.h" #include "CortexM.c" void main() { Clock_Init48MHz(); //P1.1 set tp GPIO input P1->SEL0 &= ~0X02; P1->SEL1 &= ~0X02; P1->DIR &= ~0X02; P1->REN |= 0X02; P1->DS |= 0X02; P1->OUT |=...

Using the case study below: Memo to the Project Sponsor. In the memo, outline the following: a. Recommendations for managing the project - should leverage the scope management plan and scope...

Given code: utils.c (for reference DON'T Modify), utils.h (DON't Modify) and main_template.c (Write Code HERE) --> UTILS.C [DO NOT MODIFY] pasting image cause Chegg character limit >:( --> UTILS.h...

think about what procedural changes would have the biggest positive impact, without being excessively costly for our lab members at every level (including undergrads!). Reference: the Lab Data Check...

In this homework, you will implement a factory simulator program with object-oriented approach. In the UML diagrams below, access (getter) and modifier (setter) methods are not shown for simplicity....

1 of 6 Assign-02: Writing a Linux Utility (encodeInput) Description This assignment has you writing a different utility for Linux. This utility (officially called a filter in UNIX / Linux) could be...

Portray in words what transforms you would have to make to your execution to some degree (a) to accomplish this and remark on the benefits and detriments of this thought.You are approached to compose...

The primary class in the program encapsulates the notion of a Game. A game in turn contains several components, including (1) a GameWorld which holds a collection of game objects and other state...

A small local restaurant employs 15 people, including serving staff, cooks and cleaners. Due to a small budget, the accountant deals with all items relating to the financial matters of the business,...

On December 31, 20X14, Pepper Company of Winnipeg acquired 100% of the outstanding shares of Salt Company of Switzerland. On this date, the fair values of Salts identifiable assets and liabilities...

What are the three areas on the Dashboard that let you find and perform every feature and function you need in QuickBooks Online?

Harrison Company manufactures product Q in its factory. Production of Q requires 3 pounds of material T, costing $7 per pound and 2 hours of direct labor, costing $10 per hour. The variable overhead...

Performing data analysis based on SAS data sets, MS Access databases, external websites, and business intelligence platforms to produce reports for key stakeholder groups and decision makers.

1. Why did Anthem need better data and analytics tools for Human Resources? What management, organization, and technology factors contributed to Anthems need for better HR data and analytics?

3. What groups in the company benefited from Anthems new analytics tools? Explain your answer.