Terminate from the perform loop

Deepa.m · New User Joined: 28 Apr 2005 Posts: 99

Hello

I need to perform a loop varying ws-sub by 1 to 1 until a condition is met
like for example

PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL
WS-SUB > PMFC-A-OCCURS

if a(ws-sub) = b then

<some statements>
(statement to break the loop)
end-if
end-perform

(some statments)

I want to come out of perform once my if condition is true and need not continue until ws-sub > PMFC-A-OCCURS

Is there any BREAK statement and using Exit may come out of paragraph

What statement should i use to break perform?

VinayCM · New User Joined: 06 Nov 2007 Posts: 36 Location: Bengaluru

I think EXIT statement may work.... Otherwise you can use GO TO (Next Para Name) inside IF loop.

murmohk1 · Posted: Thu Nov 15, 2007 4:43 pm

Deepa & Vinay,

VinayCM · New User Joined: 06 Nov 2007 Posts: 36 Location: Bengaluru

Murali,
It's true that using GOTO is not a standard way of programming but is there any other ways. If there a way please suggest for my future use.

dbzTHEdinosauer · Posted: Thu Nov 15, 2007 4:55 pm

perform until .....
or ....
or ....
or ....
do something
set an or conditition true
end-perform

do not use go to's in a perform loop, very poor programming practice as well as difficult to debug.

Varun Singh · New User Joined: 01 Aug 2007 Posts: 25 Location: Delhi

Hey ,

U can make it simple
by using
compute ws-sub = pmfc-a-occurs + 1

Though I have never used break
and I suppose COBOL does not have any verb 'BREAK'

Though it has a verb 'CONTINUE'

revel · Posted: Thu Nov 15, 2007 5:37 pm

Hi Deepa.m,

Use below code

guptae · Posted: Thu Nov 15, 2007 6:12 pm

Hi There,

u can also use NEXT SENTENCE for this

ksk · Posted: Thu Nov 15, 2007 6:21 pm

Hi,

Code the following code.

In IF condition, code the following line.

WS-SUB = PMFC-A-OCCURS +1

KSK

balakrishna reddy · Posted: Thu Nov 15, 2007 6:35 pm

Hi ksk

ksk · Posted: Thu Nov 15, 2007 6:44 pm

HI Bala Krishna,

Did you read the question properly.

I KNOW WS-SUB would be incremented since it is in perform.

OS wants to come out of the loop forcibly, so she has to add this condition to come out when IF condition becomes true.

Deepa.m · New User Joined: 28 Apr 2005 Posts: 99

Thnks for the reply.

ws-sub = pmfc-a-occurs + 1 is one solution that strikes everyone but I am looking for some statements that could acheive this force complete perform other than nomal exit through until condition.

I cant use GOTO or EXIT as it may come out of paragrqaph without executing the statements below end-perform in teh same paragraph

So I think "Next Sentence" is good solution but my period "." comes in end-if. Inside which the perform is coded.

So i will go with ws-sub = pmfc-a-occurs

Thanks Guys.

murmohk1 · Posted: Mon Nov 19, 2007 1:28 pm

Deepa,

Deepa.m · New User Joined: 28 Apr 2005 Posts: 99

para1.

if not eof

some sentences

PERFORM VARYING WS-SUB FROM 1 BY 1 UNTIL
WS-SUB > PMFC-A-OCCURS

if a(ws-sub) = b then

<some statements>
(statement to break the loop)
else

<some sentences>
end-if
end-perform
<some sentences>

end-if.

<some sentences>

para-1-exit.
exit.

this is my actual para flow. I need to pass the control to bold part once
a(ws-sub) = b is true

thanks,
Deepa.

ksk · Posted: Tue Nov 20, 2007 10:37 am

Hi Deepa,

If you feel some solution strikes you or you know some possible solution, better post that striking solution while you are posting the question. Others won't waste their time to type and to give the solution. Everybody has their own work to do.

KSK