RE: [COBOL400-L] RE: I'm stumped - working storage tables indexed

["Terry Grider" <Terry.Grider@xxxxxxxxxxxxxxxx>]

I work mostly with Realia PC Cobol now and I can't remember the error you would 
get on an AS400, but it would be some kind of storage violation.  On the PC, 
you can set an option to validate the range of subscripts and indexes so you 
might want to look at your compiler directives and see if you have the same 
thing.

The advantage of indexes over subscripts is speed, but with today's hardware, 
you probably wouldn't notice much.  Subscripts have to be converted to come up 
with the offset address of each table entry whereas the index is already a hex 
offset to the table entry.

As for having to debug Cobol, RPG looks more like Cobol all the time.  I'm old 
enough to remember when RPG didn't have IF statements or EVAL or Freeform 
Support or Data Structures, not even Read Statements.  Now an RPG program 
written with the newest language features looks almost just like Cobol and 
please, no language wars.  We all have our opinions about the languages we 
like.  I happen to appreciate each one for its appropriateness to the task at 
hand.  I would probably even like Java if someone would just force it down my 
throat!  :)

Terry

-----Original Message-----
From: rick.baird@xxxxxxxxxxxxxxx [mailto:rick.baird@xxxxxxxxxxxxxxx]
Sent: Thursday, June 10, 2004 4:56 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] RE: I'm stumped - working storage tables indexed


Wow, I never would have guessed.  but after I sent that last email, that's
what I figured out myself.  I increased the size of the tbl03 and
everything is hunkydory.

Gosh, I wish I didn't have to debug cobol... :)

So, in review, indexes are sort of like a pointer field?  (rpg or C)

what happens if you keep adding to the index, and it fills up all space
allocated to the program?  does it try to overwrite memory outside it's
bounds and blow up?

What's the benefit of indexing rather than subscripting tables?

Thanks again,

Rick

------original message-----------
If the value of  INDEX-TBL03 is something greater than 400, then it will
cause
index03 to point to memory past TBL03 which would be TBL04.  Check for that
and
see what's in  INDEX-TBL03.

-----Original Message-----
From: rick.baird@xxxxxxxxxxxxxxx [mailto:rick.baird@xxxxxxxxxxxxxxx]
Sent: Thursday, June 10, 2004 4:27 PM
To: cobol400-l@xxxxxxxxxxxx
Subject: [COBOL400-L] RE: I'm stumped - working storage tables indexed
by -WTF?


ok,  now I'm really confused.




_______________________________________________
This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.