how to loop within loop in cobol

sandeep.tikoo · New User Joined: 07 Oct 2006 Posts: 6 Location: Bangalore

DavidatK · Posted: Mon Oct 09, 2006 7:06 pm

Please explain in more detail what you are trying to accomplish. There are many implementations of imbedded loops.

Dave

sandeep.tikoo · New User Joined: 07 Oct 2006 Posts: 6 Location: Bangalore

actually all i want to do is make a multiplication table like
2*1=2 to 10*1=10,
where 2,1 must be variables like i,j i must be constant from 1 to 10 and then j should increase by 1 again i from 1 to 10 and j=2, to j should also go to 10...like this

IQofaGerbil · Posted: Mon Oct 09, 2006 8:12 pm

Something like this?

Perform Para1 varying i from 1 by 1 until i > 10

Para1
perform Para2 varying j from 2 by 1 until j > 10

Para2

compute ans = j * i

DavidatK · Posted: Mon Oct 09, 2006 8:21 pm

sandeep.tikoo,

Here are a couple of ways to implement you loops with ?PERFORM? statements.

In format 1 you can vary both variables within the same perform, but I prefer format 2 using two perform statements. Here is why. Although COBOL allows for the varying of multiple variables within the same perform, and this is probably the answer that is being looked for in an academic setting, once you get to the real world of programming, you won?t be varying multiple variables very often. My feeling is, that, at 2 a.m., when your program abends in a production environment, and the on call person for production problems has never looked at your program before, is not the time to re-acquaint themselves with a format that is seldom used.