Can we use loop in cobol language

nikhil.tak8 · New User Joined: 12 Jan 2007 Posts: 2 Location: delhi

i just wanted to know that can we use loop in cobol language

dick scherrer · Posted: Wed Jan 17, 2007 12:57 am

Hello,

Yes, we use "loop" in COBOL.

In your manual, look up "PERFORM . . . WHILE" and "PERFORM. . . UNTIL".

DavidatK · Posted: Wed Jan 17, 2007 12:58 am

nikhil.tak8,

I'm not 100 % sure what you questions is.

I see two posibilities:

1 - What can cause a loop in a COBOL Program

or

2 - How can you use loops in a COBOL Program

Can you please clarify for us.

Thanks,

sachin_star3 · New User Joined: 30 Sep 2006 Posts: 78 Location: pune

dick scherrer · Posted: Sun Jan 21, 2007 10:06 pm

Hello,

IF - THEN - ELSE is not a loop.

A loop may iterate through a process multiple times before processing continues. IF/THEN/ELSE is a single construct and is only executed once - then processing continues.

Rajesh Melwani · New User Joined: 10 Jan 2007 Posts: 3 Location: Mumbai

Looping is possible in most of programming languages, and Cobol also has it.

There are multiple ways of looping in COBOL. Few are listed below:
1. GO TO
2. PERFORM UNTIL
3. PERFORM VARYING

Though GO TO's are NOT used these days and are not recommended.
"IF" is a programming construct and as correctly said above, is NOT a LOOP.

Hope it helps.

dnreddy · New User Joined: 08 Dec 2006 Posts: 8 Location: chennai

Hi

The COBOL allwos looping,PERFORM is uesd for loop.
folling diffrent example for PERFORM

Performing one procedure (Format 1):

PERFORM PROC-A.

ITEMB = Asssssssss

Performing a range of procedures (Format 1):

PERFORM PROC-A THRU PROC-B.

ITEMB = AssssssssA

Performing a range of procedures (Format 2):

PERFORM PROC-A THRU PROC-C
3 TIMES.

ITEMB = AsCsEssssE
ITEMC = 07

Performing a range of procedures (Format 4):

PERFORM PROC-A THRU PROC-B
VARYING ITEMC FROM 1 BY 1
UNTIL ITEMC > 5.

ITEMB = ABCDEssssE
ITEMC = 06

Testing the UNTIL condition after execution (Format 4):

PERFORM PROC-A THRU PROC-B
TEST AFTER
VARYING ITEMC FROM 1 BY 1
UNTIL ITEMC > 5.

ITEMB = ABCDEFsssF
ITEMC = 06

Performing a range of procedures varying a data item by a negative amount (Format 4):

PERFORM PROC-A THRU PROC-B
VARYING ITEMC FROM ITEMD BY -1
UNTIL ITEMC < ITEME.

ITEMB = sssDEFGssD
ITEMC = 03

In-line PERFORM (Format 4):

PERFORM
VARYING ITEMC FROM 1 BY 2
UNTIL ITEMC > 7
MOVE CHARA (ITEMC) TO CHARB (ITEMC)
MOVE CHARA (ITEMC) TO CHARB (ITEMC + 3)
END-PERFORM.

ITEMB = AsCAECGEsG

Varying two data items (Format 4):

PERFORM PROC-D
VARYING ITEMC FROM 1 BY 1 UNTIL ITEMC > 4
AFTER ITEMD FROM 1 BY 1 UNTIL ITEMD > 5.

ITEMG (1) = 01s02s03s04s05s
ITEMG (2) = 02s04s06s08s10s
ITEMG (3) = 03s06s09s12s15s
ITEMG (4) = 04s08s12s16s20s

-----------------------
Narendra reddy
Chennai

chtrisa · New User Joined: 19 Dec 2006 Posts: 12 Location: chennai

hello

COBOL allows looping.just see this link

publib.boulder.ibm.com/infocenter/pdthelp/v1r1/index.jsp?topic=/com.ibm.debugtooluaf5.doc/vrmu1mst02.htm

acevedo · Active User Joined: 11 May 2005 Posts: 344 Location: Spain

good answer chtrisa!

;)