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 / ganesh
but if there is no any condition to check for in evaluate
statement. how can we replace it using evaluate.
won't it change the structure of program if we use evaluate
statement.
| Is This Answer Correct ? | 1 Yes | 0 No |
Post New Answer View All Answers
how do you reference the variable block file formats from cobol programs
how do you reference the rrds file formats from cobol programs
There are 5 fields and 1000 records in a file. Unload it into an array. Write the syntax for declaration and how will you unload it.
What is the LINKAGE SECTION used in COBOL?
What are the different open modes available in cobol?
How to get the last record in vsam file in cluster? And how can you get the kids file records into your cobol program?
What is the usage of comp fields in cobol?
I need to compare 3 variables(dates) and do some processing based on the earliest date. There could be more then 1 date record in any of the 3 fields. What is the best way to code this?
What happens when we move a comp-3 field to an edited (say z (9). Zz-)?
In COBOL programming, what is PERFORM? What is VARYING?
EXPLAIN MAIN FRAME TESTING PROCESS...HOW TO FIX THE MAINFRAME BUGS?
How did the release of cobol/370 version 1.3 improve the performance of release 1.1?
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 ......
What kind of error is trapped by on size error option?
What is report-item in COBOL?