Doubt in Perform ..Thru...

pkmurali · Active User Joined: 15 Dec 2005 Posts: 58

Dear all,

while Executing the below piece of codes,
In code-1 after performing Para-a control goes to Para-c.
In code-2 after performing Para-a control foes to Para-b.

Will 'Thru' tracks down the control while exiting a para?

Please Let me know how the tracking process happens?

Regards,
Murali.

Code-1
-----------------------
Perform para-a .
Perform para-b
.
.
.
Para-a.

.
.
Go to Para-a-exit.

Para-a-exit.
Exit.

Para-c.
------------------------------------
Code-2
----------------------------------------------

Perform para-a Thru para-a-exit.
Perform para-b
.
.
.
Para-a.

.
.
Go to Para-a-exit.

Para-a-exit.
Exit.

Para-c.
-------------------------------------------------

birdy K · Posted: Thu Jul 03, 2008 1:22 pm Post subject:

In code-1.

In Para-a. Go to para-a-exit. The control is not coming back. So the next statement of para-c is working.

In code-2.

Perform para-a thru para-a-exit. The control is coming back. And then control Perform para-b is working.

Corrections are welcome.

santy · New User Joined: 19 Jul 2007 Posts: 5 Location: mumbai

For code-1:-

In Para-a. Go to para-a-exit. Go To command is not giving back to Para-a. So the next statement of para-c is working.

For code-2:-

Perform para-a thru para-a-exit. The control is coming back at para-a. And then control Perform para-b is working.

ashimer · Posted: Thu Jul 03, 2008 3:35 pm Post subject:

In code 1

you are not mentioning the end of the active perform ....

please refer to cobol language reference manual and check for EXIT statement definition

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1508

The thru .... sets the exit pgraph to return to the NSI after the perform.
If you don't use thru when you GOTO a-exit the EXIT is a NOOP so you fall thru to pgraph C.

dbzTHEdinosauer · Posted: Thu Jul 03, 2008 7:17 pm Post subject:

another reason to use sections. within the section only have one paragraph, the exit. then you can use your primative go to coding.