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.

Answer Posted / nag(igate)

using evaluate statement

Is This Answer Correct ?    8 Yes 1 No



Post New Answer       View All Answers


Please Help Members By Posting Answers For Below Questions

How do u write test cases?

1632


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?

2091


What the difference is between continue and next sentence?

651


How to get the last record in vsam file in cluster? And how can you get the ksds file records into your cobol program?

641


What is link edit in cobol?

738






can anybody post me about file-aid and changemen tools pls and give me reference if any mainframe guys are there

1898


What happens when we move a comp-3 field to an edited (say z (9). Zz-)?

766


How you can characterize tables in cobol?

710


Give some examples of command terminators?

750


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

697


2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic

2099


Explain how you can characterize tables in cobol?

636


How to remove the spaces at the end of each record in the output file of variable length, via cobol program?

670


How do define dynamic array in cobol.

667


Why do we code s9 (4) comp. Inspite of knowing comp-3 will occupy less space?

706