| Newsgroups |
gmane.comp.emulators.hercules390.mvs |
| Message-ID |
<[email protected]> |
Hello,
I am encountering the following compile errors, (using COBUCLG in TK4-):
-*STATISTICS* SOURCE RECORDS = 1176 DATA DIVISION STATEMENTS = 773 PROCEDURE DIVISION STATEMENTS = 124
*OPTIONS IN EFFECT* SIZE = 81920 BUF = 2768 LINECNT = 57 SPACE1, FLAGW, SEQ, SOURCE
*OPTIONS IN EFFECT* NODMAP, NOPMAP, NOCLIST, SUPMAP, NOXREF, NOLOAD, NODECK, APOST, NOTRUNC, NOLIB, NOVERB
*OPTIONS IN EFFECT* ZWB
IKF6006I-E SUPMAP SPECIFIED AND E LEVEL DIAGNOSTIC HAS OCCURRED. PMAP CLIST LOAD AND DECK WILL BE IGNORED.
1 23
- CARD ERROR MESSAGE
107 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION IS GT 131K.
116 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION IS GT 131K.
132 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION IS GT 131K.
143 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION IS GT 131K.
147 IKF2116I-E FIXED LENGTH GROUP ITEM IN WORKING-STORAGE OR LINKAGE SECTION IS GT 131K.
The first one (CARD 107) looks like this:
00106 010600 01 MSAX-WI-TABLE.
00107 010700 05 M-MSAX-DATA OCCURS 9000
00108 010800 INDEXED BY MU1 MU2 MU3.
00109 010900 10 M-MSAX-MSA PIC X(4).
00110 011000 10 M-MSAX-SIZE PIC X(01).
00111 011100 10 M-MSAX-EFF-DATE PIC X(08).
3
00112 011200 10 M-MSAX-WAGE-INDX1 PIC S9(02)V9(04).
00113 011300 10 M-MSAX-WAGE-INDX2 PIC S9(02)V9(04).
00114 011400
The other IKF2116I-E errors are look much the same as above.
PS: my source configuration section says:
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-370.
OBJECT-COMPUTER. IBM-370.
if that is relevant.
I have heard that a long time ago - when the MVT compiler was the latest and greatest - there was a commonly utilized approach (hack) to get larger tables in COBOL, but what? or are there some compiler params that would work around the issue? Or maybe I am just doing something wrong here?
Many thanks,
PJ.