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

write a cobol logic. i have file that has 10 records .1 record go to first output file and second record goes to 2 output and etc

1177

what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

9021

What are the different rules of SORT operation?

1086

i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com

2173

What is the difference between binary search and sequential search?

1047

EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?

2484

I have a File that has duplicate records. I need only those records that occur more than thrice.?

9750

)If there are 10 steps in GDG, if I want to refer the step2 after step5 . what should I do?

1956

please..could u give an example about USAGE IS POINTER ..and explain why and when we use it ?

2409

What is rmode(24)

1100

How many sections are there in data division in COBOL?

1081

What is the utilization of copybook in cobol?

1117

i have 10 names in an array and my name is one of them also array is not in sorted order i need to display my name using index how will i do this

1470

What is the difference between Global and External Variables?

1298

What kind of error is trapped by on size error option?

1178