Can we use goto statement in inline_perform ?
Answers were Sorted based on User's Feedback
Answer / sivakumar sekharannair
Yes go to can be used in inline perform. when GO TO is used
in inline perform then irrespective of the number of times
the perform has to execute.. the control will go to GO TO.
example:
PERFORM VARYING A1 FROM 1 BY 1 UNTIL A1 > 4
DISPLAY 'SIVAKUMAR'
GO TO DISPLAY-PARA
END-PERFORM.
DISPLAY-PARA
DISPLAY 'KUMAR'.
SYSOUT:
SIVAKUMAR
KUMAR
Instead of
SIVAKUMAR
SIVAKUMAR
SIVAKUMAR
SIVAKUMAR
Actually the perform has to execute 4 times and so the
display should be executed 4 times. but because GO TO is
given inside the inline perform the control goes to display-
para and and dose not come back.
| Is This Answer Correct ? | 16 Yes | 0 No |
Answer / shan
The example used by Sivakumar is perfect,
Perform is used for looping, so it should have a exit
condition. simply perform and end perform wont make wright
syntax.
another kind of perform is
PERFORM <paragraph name> until < conditions>
| Is This Answer Correct ? | 4 Yes | 0 No |
Answer / chaitanya
could u please clarify d perform which was specified
PERFORM VARYING A1 FROM 1 BY 1 UNTIL A1 > 4
is inline perform??
I think the format of inline perform is...
perform
...
....
,,,
end perform.
| Is This Answer Correct ? | 3 Yes | 1 No |
Answer / rajesh
In-line PERFORMs work as long as there are no internal GO
TOs, not even to an exit.
| Is This Answer Correct ? | 2 Yes | 0 No |
Answer / sroul4
The format of inline perform is...
perform
...
....
Go TO para2
display' inline perform'
end perform.
Para2
you can put a GO TO but the control would pass to the go to
label , and it would not display inline perform.
| Is This Answer Correct ? | 2 Yes | 0 No |
how to resolve the file status 47.......
S9(5)V9(2) occupies how many bytes memory ?
File status must be checked both while opening and reading the file or only while reading the file?
What is the difference between comp and comp-3 usage?
How to remove 2 duplicate records and copy only one using job control language?
how many divisions are there in cobol
We know that size of redefine and redefining need not to be same..Then does the below case true 01 ws-date pic 9(6). 01 ws-redf-date REDEFINES ws-date 05 ws-year pic 9(4) 05 ws-mon pic 9(2) 05 ws-day pic 9(2)
i Want All cobol ERROR codes?
What is 88 level used for ?
I had 100 records and i want to execute last three records by using cobol programming?what will be coding?
i have variable record in the 5th, i want to sort from 5th filed ? how ?
input 1 input2 ouput1 output2 output 3 1 re 300 1 re 200 1 re 300 3 rc 500 1 re 200 2 rr 400 1 re 300 2 rr 400 1 rc 400 3 rc 500 1 rc 400 2 rr 700 2 rr 700 5 tt 900 5 tt 900 2 inputs r in flat file and output 1 is matched records,ouptput2 is unmatched of input1,output3 is unmatched of input2! how vl u get the output files using sequential order and to check with each and every records! let me know the procedure division ?