Using evaluate statement take the value of para in a variable then evalua

How to replace the GOTO statement in COBOL without changing
the structure of program. e.g. consider following code...
I.D.
E.D.
D.D.
P.D.
compute C = A + B.
GOTO para 100-display.
compute D = C - D.
GOTO 200-display.
some other logic......
........
GOTO 300-para.
......
......
GOTO 400-para.

Now I want to replacce all GOTO statements without
changing the structure and otput of program.

Question Posted / suraj borge

6 Answers
22980 Views
Accenture, I also Faced
E-Mail Answers

Answer Posted / suraj borge

Using evaluate statement
take the value of para in a variable then evaluate it for ex.
evaluate xyz
when 100 perform para-100
when 200 perform para-200
..
.
.
.
.
like that we can replace the goto statement .

Is This Answer Correct ?

8 Yes

2 No

Post New Answer View All Answers

Please Help Members By Posting Answers For Below Questions

What are the cobol coding sheets?

1198

How can i load all the data from a file to Table (array) in cobol.How i manage the occurs clause with out reading the file.Any options avilable ? Please can any one help me it is urgent?

2543

INREC AND OUTREC? HOW TO SPLIT 5K RECORDS TO DIFFERENT FILES IN A FILE IN COBOL? RESTART IN COBOL-DB2? ISOLATION LEVELS?

825

What is the local-storage section?

1110

if we have " ibm mainframe ",in that how to remove first and last leading space eg:"ibm mainframe" like that the answer we need

1307

What are the different data types in cobol?

1353

What is Pic 9v99 Indicates in COBOL?

1196

how can we apply for HSBC exam(Mainframe) in India??? i went to their site and was told to submit my CV ,. etc..( totally confusing...)

2349

How to remove 2 duplicate records and copy only one using job control language?

1183

What is the problem of ordered sequential files access?

1126

What rules are to be followed while using the corresponding options?

1025

Write the code implementing the perform … varying.

1024

I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......

12217

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

1135

What are all the divisions of a COBOL program?

1162