Newbie Cobol85 problem - "** Error 189 ** 01 or 77 level data itemtoo
From vleon101@1:2320/100 to comp.lang.cobol on Tue Nov 29 14:16:09 2016
From Newsgroup: comp.lang.cobol
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
SEEN-BY: 154/30 2320/100 0 1 227/0
Who's Online
Recent Visitors
Djatropine
Sun Dec 22 01:48:16 2024
from
Memphis, Tn
via
Telnet
Microbot
Sat Dec 21 09:43:45 2024
from
Moore, Ok
via
Telnet
Microbot
Fri Dec 20 11:42:16 2024
from
Moore, Ok
via
Telnet
Winston
Fri Dec 20 11:40:37 2024
from
Kerrville, Tx
via
SSH