PERFORM VARYING X FROM 1 BY 1 UNTIL WS-ANS = 19 COMPUTE WS-ANS = (2

i need the code for this program in cobol.
2 + 1 = 3
4+3=7
6+5=11
8+7=15
10+9=19

Question Posted / xxx

Answer Posted / xxx

PERFORM VARYING X FROM 1 BY 1 UNTIL WS-ANS = 19
COMPUTE WS-ANS = (2 * X) + ((2 * X) - 1)
DISPLAY WS-ANS
END-PERFORM

Is This Answer Correct ?

1 Yes

0 No

Please Help Members By Posting Answers For Below Questions

What is the compute verb? How is it used?

1184

How do you reference the following file formats from cobol programs?

1199

How do you get the data to code the BMS macro?

2012

1.give the details about WHEN OTHER. 2. how many form are available in evaluate.

2164

What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?

1185

Give some examples of command terminators?

1317

When is inspect verb is used in cobol?

1307

Can we redefine the field of x(200) to less than 200?

1429

how do you reference the esds vsam file formats from cobol programs

1265

how do you reference the printer file formats from cobol programs

1276

What are the different rules to perform a Search?

1139

What is the local-storage section?

1190

What is the default value(s) for an initialize? What keyword will allow for an override of the default?

1160

how to access the file from prodution from changeman tool and to submit a file to production

7622

Name some of the examples of COBOl 11?

3196