Need information on Cobol occurs clause

Rajamani13 · New User Joined: 13 Aug 2008 Posts: 2 Location: chennai

I have a question on Cobol occurs clause.

i declared an internal table with occurs 2000.then when i am trying to add the data with more than 2000 it is accepting.

My question is i declared the internal table with occurs 2000 but it is creating more than 2000 when i am trying to add it, then what is the use occurs clause.

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

if you compile with SSRANGE option then, If I'm not wrong, the program abends with a U4038...

Anuj Dhawan · Posted: Tue Dec 30, 2008 4:58 pm

In addition to acevedo's reply, you might like to check this link ibmmainframes.com/viewtopic.php?t=35028&highlight=ssrange

Rajamani13 · New User Joined: 13 Aug 2008 Posts: 2 Location: chennai

Thanks for making me aware the compiler options SSRANGE/NOSSRANGE. Now I got the answer.

Robert Sample · Posted: Tue Dec 30, 2008 10:01 pm

The OCCURS clause defines the size of the table. Unless SSRANGE is being used, however, there is nothing in COBOL to prevent you from exceeding the table size by however many elements you want to. Eventually, though, you'll start writing to program storage (overlaying your code) or storage not associated with your program and will get an ABEND of one form or another.