Using Occurs Clause to move data

praveensn · New User Joined: 30 Jul 2008 Posts: 32 Location: Pune

Hi,

I am having a small query on OCCURS clause.

Currently i am using the occurs clause as

05 WS05-COUNT OCCURS 10 TIMES.
10 WS10-VAR2 PIC 9(02).

So my requirement is, to change the number 10(occurs 10 times) to one variable like R which is declared at working storage.

Like,

Move 10 to R
Then,
05 WS05-COUNT OCCURS R TIMES.
10 WS10-VAR2 PIC 9(02).

But this is not working.

So can you please help me out in this so that i can replace the number from a variable.

Thanks in advance,
Praveen.N

Gnanas N · Posted: Wed Jan 07, 2009 7:08 pm

Please check with OCCURS DEPENDING ON

praveensn · New User Joined: 30 Jul 2008 Posts: 32 Location: Pune

Hi,

I have checked with OCCURS DEPENDING ON R TIMES, but i am getting the same error.

My main requirement is to send the send the R vale through JCL and recieve it in Cobol and pass it to R.

How can i proceed with this..

Thanks,
Praveen.N

Robert Sample · Posted: Wed Jan 07, 2009 7:40 pm

Praveen: what you want to do cannot be done in COBOL. COBOL requires all WORKING-STORAGE items to be declared (size and type) at compile time. You want to change a value at run time. This is not permitted under the definition of WORKING-STORAGE in COBOL..

hikaps14 · Active User Joined: 02 Sep 2005 Posts: 189 Location: Noida

"OCCURS DEPENDING ON"
You should have found this in the manuals or in some the previous topics discussed here.

05 WS10-VAR2 PIC 9(02).
05 WS05-COUNT OCCURS 0 TO 10 TIMES DEPENDING on WS10-VAR2.

Now you may move any nemeric between 0 and 10 to WS10-VAR2.

Note : You need to mention the MAX size of table in case of DEPENDING ON clause as well.

Thanks,
-Kapil.

dick scherrer · Posted: Thu Jan 08, 2009 12:37 am

Hello,

Instead of this:

praveensn · New User Joined: 30 Jul 2008 Posts: 32 Location: Pune

Hi,

Thanks:)

I have tried this, but here since it is occuring for only 10 times the value of R should not exceed 10 right.

But my requirement is to send the value of R through JCL in parm and use it in the program.It may be 10 or 20 etc..

For example.

We are sending value '30' from JCL in parm and recieve it in a variable say ws-count1 which is PIC 9(2), now I have to replace this value in occurs clause,

WS05-COUNT OCCURS ws-count1 times, but this is not working.

So i need some other options for this.

Thanks,
Praveen.N

dick scherrer · Posted: Thu Jan 08, 2009 11:26 am

Hello,

praveensn · New User Joined: 30 Jul 2008 Posts: 32 Location: Pune

Hi Disk,

I have done as per your suggestion.

05 WS05-COUNT OCCURS 0 TO 50 TIMES DEPENDING ON S
10 WS10-VAR2 PIC 9(02).

and the value of S is 10 which is passed through JCL as parm.

So the loop should execute only for 10 times if i am not wrong.
10 is the limit, but it is accepting 11th one also.

Thanks,
Praveen.N

Robert Sample · Posted: Thu Jan 08, 2009 5:51 pm

Do you have SSRANGE compile option turned on?

Also, even if you set S to 10 there is nothing in COBOL preventing you from using the 11th, 12th, ... occurrences of the table (other than SSRANGE). It is syntactically correct to define a table of 50 items and refer to the 9,725th element of the table by setting your subscript variable to 9725. Do this long enough and you will get storage related abends, but COBOL doesn't enforce any kind of range checking unless you're using the right compile option.

praveensn · New User Joined: 30 Jul 2008 Posts: 32 Location: Pune

Thanks all for helping me out.

Regards,
Praveen.N

Terry Heinze · Posted: Thu Jan 08, 2009 9:47 pm

One of the most common mistakes in dealing with tables is trying to reference an occurrence outside of the valid range. Always always check for referencing an invalid index/subscript when incrementing it to make sure it does not exceed the valid range.

dick scherrer · Posted: Thu Jan 08, 2009 10:16 pm

Hello,