What is Data Type of Index of the Array.

rgupta71 · Posted: Tue Feb 02, 2010 11:57 am

Hi Experts,

I have defined an array as follows
10 ACTIVITY-TABLE-AREA.
15 ACTIVITY-TABLE OCCURS 1 TO 5000 TIMES
DEPENDING ON TBL-CTR
INDEXED BY INDEX.

And a variable SAVE-INDEX as S9(3) COMP-3.I want to save the index of array in a variable. When I am trying

MOVE INDEX TO SAVE-INDEX it is giving an error "INDEX was defined as a type that was invalid in this context."

Is this possible to save index of array in a variable?

Thanks,
Rahul Gupta

PeterHolland · Posted: Tue Feb 02, 2010 1:24 pm

I guess that INDEX internally is a fullword binary.
So you have to use a cobol equivalent.

01 SAVE-INDEX PIC S9(9) BINARY.

Mathiv Anan · Active User Joined: 23 Jul 2008 Posts: 106 Location: USA

Try this.

Set SAVE-INDEX to INDEX

rgupta71 · Posted: Tue Feb 02, 2010 2:12 pm

THank You for your response.
@ PeterHolland
It is still giving the same when I used the datatype as S9(9) BINARY.

@ Mathiv Anan
I don't know the correct datatype of Index ,so we cannot use that statement.

Thanks

Escapa · Posted: Tue Feb 02, 2010 2:35 pm

rgupta71 · Posted: Tue Feb 02, 2010 2:47 pm

Thanks Sambhaji for your response.
I defined 01 SAVE-INDEX as PIC S9(9) BINARY and then I did Set SAVE-INDEX to INDEX. It worked.

Terry Heinze · Posted: Tue Feb 02, 2010 6:45 pm

rgupta71,
At 2:42 AM it DID NOT work and at 3:17 AM, it DID work? Am I missing something?

rgupta71 · Posted: Tue Feb 02, 2010 6:57 pm

@ Terry Heinze
Initially I was using MOVE statement to save the Index variable in a working storage variable instead of using SET.Also at 2:42 I was not knowing the datatype of SAVE-INDEX.Sambhaji and PeterHolland mentioned the datatype which helped me solve this issue.
Mathiv Anan gave me the correct statement to use SET instead of MOVE.

Thanks everyone.

ridgewalker58 · New User Joined: 26 Sep 2008 Posts: 51 Location: New York

10 ACTIVITY-TABLE-AREA.
15 ACTIVITY-TABLE OCCURS 1 TO 5000 TIMES
DEPENDING ON TBL-CTR
INDEXED BY INDEX.

The word INDEX is a COBOL Reserved word -- CHANGE IT to something else like INDEX-A.

If you create an INDEX WORKING-STORAGE field that is not associated with a TABLE -- you usually code it like this
01 ws-index-fld usage INDEX.

SO DO NOT USE INDEX AS A DATA NAME

rgupta71 · Posted: Sat Feb 06, 2010 10:48 am

Thank You ridgewalker58.

I will keep that in my mind.

mdtanweer · New User Joined: 26 Mar 2009 Posts: 6 Location: Bangalore

Hi Experts,

I have an array indexed by WT-INDEX. Please tell me the picutre claus i need to give for this WT-INDEX variable.

Mathiv Anan · Active User Joined: 23 Jul 2008 Posts: 106 Location: USA

You can get plenty of information by searching this forum.

Also, refer to the sections 1.8.1.7, 1.8.1.8 and 1.8.1.9 in below manual link.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/handheld/Connected/BOOKS/IGY3LR50/CCONTENTS?

Anuj Dhawan · Posted: Thu Feb 11, 2010 5:35 pm

There is a link to manuals at the top of the page. Find the COBOL Language Reference and Programming Guide manuals and read the information in them about OCCURS/INDEXes.

Bill O'Boyle · Posted: Thu Feb 11, 2010 5:39 pm

Indexes (properly plural as Indices) don't have a PICTURE clause. Internally, they are represented as aligned binary-fullwords and are built buy the compiler and stored in the TGT.

If you define an INDEX in WORKING-STORAGE, it's as easy as -

03 WS-INDEX INDEX.

You don't specify a VALUE clause.

Indices in WS can only be SET to other Indices associated with a given array and are used primarily as a work-area. Although not "quite" as efficient, binary-fullwords in WS can also be specified as an index work-area and are more popular with programmers than WS indices.

I've rarely used WS Indices and use WS binary-fullwords instead.

Bill

mdtanweer · New User Joined: 26 Mar 2009 Posts: 6 Location: Bangalore

Hi Experts,
I declared 05 save-index pic s9(9) binary and used set save-index to index. Then i tried: display save-index but its not displaying the value rather its displaying only blanks. Could you please help

Mathiv Anan · Active User Joined: 23 Jul 2008 Posts: 106 Location: USA

Hi Mohammad,

Posting your code would be helpful to get a solution.

mdtanweer · New User Joined: 26 Mar 2009 Posts: 6 Location: Bangalore

@ Mathi

My code is like this:
declaration:-
05 SAVE-INDEX PIC S9(9) BINARY

SET SAVE-INDEX TO INDEX (here INDEX is the index of an array)
DISPLAY SAVE-INDEX

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

Hi Mohammad,

To display the occurence # of the table field pointed to by an iINDEX you have to define a numeric filed (zoned decimal), then:

SET numeric field TO INDEX, then DISPLAY numerc field.

BTW, if I recall correctly, the INDEX contains the offset into the table of the data item referenced by the INDEX, not the occurence#. That's why you have to execute the SET - to do the conversion.