From Newsgroup: comp.lang.cobol
On 11/29/2016 5:16 PM,
vleon101@gmail.com wrote:
Hi All,
This is my first time posting and I'm very new to Cobol. I've been teaching
myself Cobol85 for fun and as a rite of passage since June '16. I've written my
first program using Fuji Cobol Compiler. I'm sure it's not the most graceful example of Cobol programming. :)
The program works fine on my local desktop and my pretty report gets
generated locally.
However -- When I port the source to the Tandem, I get an error that appears
to indicate an array (table) is too big..? As you can see below, the table rows
are not high in bytes and it's less than 2000 rows table (array).
I am compiling the code on "NonStop Himalaya System" mainframe.
298 **************************
299 * DEFINE Card Prefix TABLE
300 **************************
301 01 CARD-PRFX-TABLE.
302 05 CARD-PRFX-TABLE-ROWS OCCURS 1943 TIMES
303 DESCENDING KEY IS CARD-PRFX-NBR
304 OF CARD-PRFX-TABLE
305 INDEXED BY CARD-PRFX-TABLE-INDEX.
306 10 CARD-PRFX-NBR PIC 9(11).
307 10 INST-FIID PIC X(04).
308 10 INST-NAME PIC X(35).
309 10 INST-REGN PIC X(04).
** Error 189 ** 01 or 77 level data item too large for section:
CARD-PRFX-TAB
310 01 CARD-PRFX-TABLE-MAX-ROWS PIC S9(05) BINARY VALUE +1943.
...
...
COBOL85 - T9257H01 - (15 MAR 09)
No object file produced
Number of compiler errors = 2
Number of compiler warnings = 0
Maximum symbol table size = 186530 bytes
Last message on page 17
Elapsed time - 00:00:00
When I change the number of rows from 1943 to 100 (for example) in lines 302
and 310 above, the program compiles on the Tandem without errors.
Object file \CTD4S.$MDC016.CESVIC.RDFISSU
TIMESTAMP 2016-11-29 00:09:00
13 Code pages
16 Primary data words
5894 Secondary data words
41 Data pages
0 Resident code pages
0 Extended data pages
5910 Top of stack location in words
1 Code segment
0 Binder Warnings
0 Binder Errors
COBOL85 - T9257H01 - (15 MAR 09)
The object file is executable on a NonStop Himalaya System
Number of compiler errors = 0
Number of compiler warnings = 0
Maximum symbol table size = 186530 bytes
Elapsed time - 00:00:01
The manual I have is titled "HP COBOL Manual for TNS and TNS/R Programs". It
indicates the following regarding error 189:
Cause. The size of a data item exceeds the maximum size permitted for the
Data
Division section in which it is defined.
I'm pretty sure Cobol can handle more than a 2000 row array so I'm wondering
if there is an environmental limitation I'm hitting?
Sorry if my questions seems rudimentary, I'm definitely trying to review all
available materials before asking a question.
Thanks for your time!
-Victor
It isn't a matter of how many rows in an array, rather the total size of
the array. I worked on Tandem back in the 80s (thanks for the
flashback...) It seems that the Tandem COBOL compiler has a limitation
on the total size of a single 01 item (various IBM compilers on IBM maintframes had similar issues back in the day). I seldom worry about
those limitations anymore, but clearly that is biting you. Your 01 level
is a size of 1943*(11+4+35+4)= 1943 * 54 = 104,922 bytes/characters. I'm
not sure what the Tandem compiler limit is - finding out by manipulating
the contents of each rows might be tedious (but could be an interesting
binary search type algorithm implemented by approximation by trying
increasing fewer rows until there is no error).
There *might* be a compiler option to allow larger array sizes (but I
doubt it?) - the other choice might be to implement the table in several separate 01 levels and deal with the fragmentation (not a pleasant
thought, but could be done)
Again, the problem is the total storage size (and therefore
addressability) of the entire 01 level array; you might be able to have
32,000 rows of 1 character but not 16,000 rows of 4 characters etc.
hope this helps
SEEN-BY: 154/30 2320/100 0 1 227/0