Help - COBOL compiler abend?
Richard Daniels
Jacky, Cobol manuals can be found along with all other AS/400 manuals at
http://as400bks.rochester.ibm.com/
which, BTW, has apparently been improved again.
Looks like a period is missing or misplaced.
Dick Daniels
http://www.wynth.com/
Jacky Wu wrote:
> Help - COBOL compiler abend
>
> I can not compile the program after I made some changes.
> The changes I made just adding 5 - 10 lines to the copybook
> which is used by this program.
> 1. Please tell me what the errors are or how to determine
> the errors. The reason could be: the data needed to
> initialize static area is greater than 65472 bytes; the
> logic needed to initialize automatic areas is greater
> than 65472 bytes,...
> 2. Or tell me where to find the reference regarding this issue.
> I have searched the IBM online library.
Jacky Wu
I can not compile the program after I made some changes.
The changes I made just adding 5 - 10 lines to the copybook
which is used by this program.
The message at the bottom of program spool says:
"* LBL1903 40 Program M0000PRG not created in library
ABBLIB because of source statement errors"
1. Please tell me what the errors are or how to determine
the errors. The reason could be: the data needed to
initialize static area is greater than 65472 bytes; the
logic needed to initialize automatic areas is greater
than 65472 bytes,...
2. Or tell me where to find the reference regarding this issue.
I have searched the IBM online library.
below are screen copy - please enlarge your window:
/////////////////////LAST FEW PAGES OF PROGRAM
SPOOL/////////////////////////
Display Spooled File
File . . . . . : M0000PRG Page/Line 607/14
Control . . . . . B Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
+001500 PMNB-STORE.
17822 +001600 MOVE STORE-RECORD TO PMNB-IO-COMMAND.
17823 +001700 PERFORM PMNB-LINK.
+001800*------------------------------------------------------------
+001900 PMNB-DELETE.
17824 +002000 MOVE DELETE-RECORD TO PMNB-IO-COMMAND.
* EXCEPTION MCH1210 OCCURRED IN QLBPRO07 AT MI INSTRUCTION 478 IN
COMPILER
* MCH1210 RECEIVER VALUE TOO SMALL TO HOLD RESULT.
* CURRENT CARD==> PERFORM PMNB-LINK.
* XSEMCODE= 128 XSEMPARM= 0
* TOKEN SLOT==> XTOKCODE= 28 XTOKLEN= 7
*** NO SYMBOL TABLE PRESENT ***
DUMP TERMINATED - OBJECT DEFINITION TABLE NOT MATERIALIZABLE
* EXCEPTION MCH0601 OCCURRED IN QLBGPERF AT MI INSTRUCTION 21 IN
COMPILER P
* MCH0601 SPACE OFFSET X'00000000' IS OUTSIDE CURRENT LIMIT FOR OBJECT
QLB.
* PROCESSING ITEXT FOR STATEMENT 7659 SQRNBR +000700
More...
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
Display Spooled File
File . . . . . : M0000PRG Page/Line 608/16
Control . . . . . B Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
00004C10: N-TUPLE PERFORM 0 0000:
FORMATTED DATA DUMP FOR PROGRAM QLBPRO07.QLBL 14:18:14
09/30
NAME OFFSET ATTRIBUTES VALUE
*** NO SYMBOL TABLE PRESENT ***
DUMP TERMINATED - OBJECT DEFINITION TABLE NOT MATERIALIZABLE
* * * * * E N D O F S O U R C E *
* * *
5769CB1 V4R2M0 980228 AS/400 COBOL Messages
STMT
* 1 MSGID: LBL0518 SEVERITY: 00 SEQNBR: 000100
Message . . . . : Comment found before IDENTIFICATION
DIVISION
header. Accepted.
* 154 MSGID: LBL0499 SEVERITY: 20 SEQNBR: +004500
Message . . . . : Period required. Period assumed after '1'.
* 294 MSGID: LBL0239 SEVERITY: 20 SEQNBR: 015200
Message . . . . : PICTURE clause cannot be specified for
group
item 'WK-DEFER-END-DATE'. PICTURE clause ignored.
More...
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
//////////////////////MCH1210 - DUMP - 6 pages
//////////////////////////
Display Spooled File
File . . . . . : QPSRVDMP Page/Line 1/1
Control . . . . . Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
5769SS1 V4R2M0 980228 AS/400 DUMP
001865/SB
DUMP TAKEN FOR UNMONITORED ESCAPE MESSAGE
.MESSAGE ID- MCH1210
.MESSAGE FILE- QCPFMSG
LIBRARY- *LI
.SEVERITY- 40
.MSGTYPE- 0F
.SENDING-
..PROGRAM- cblabranch
LIBRARY-
..INSTRUCTION- 000030
.RECEIVING-
..PROGRAM- QLBPRO07
LIBRARY- QLB
..INSTRUCTION- 01DE
.MESSAGE-
Receiver value too small to hold result.
.MESSAGE DATA-
More...
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
//////////////////another dump MCH0601 - 1679
pages///////////////////////
Display Spooled File
File . . . . . : QPSRVDMP Page/Line 1/1
Control . . . . . Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
5769SS1 V4R2M0 980228 AS/400 DUMP
001865/SB
DUMP TAKEN FOR UNMONITORED ESCAPE MESSAGE
.MESSAGE ID- MCH0601
.MESSAGE FILE- QCPFMSG
LIBRARY- *LI
.SEVERITY- 40
.MSGTYPE- 0F
.SENDING-
..PROGRAM- QLBGPERF
LIBRARY- QLBL
..INSTRUCTION- 0015
.RECEIVING-
..PROGRAM- QLBGPERF
LIBRARY- QLB
..INSTRUCTION- 0015
.MESSAGE-
Space offset X'00000000' is outside current limit for object
QLB.TEMP.COB
.MESSAGE DATA-
More...
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
Display Spooled File
File . . . . . : QPSRVDMP Page/Line 1/22
Control . . . . . Columns 1 - 75
Find . . . . . .
*...+....1....+....2....+....3....+....4....+....5....+....6....+....7....+
000000 00000000 00000000 D29D0669 9F001900 00000000 00FF0000
00000000
000020 AF000000 00000000 00000000 00000000 00000000 00000000
00000000
000040 E6E8838D 33FFA7A8 E6E8838D 33FFA7A8 80000000 00068880
E6E8838D
000060 E6E8838D 33FFA640 00000000 00100000 E6E8838D 33FFA900
00000000
.POINTERS-
000000 SYP 19 EF QLB.TEMP.COBOL.WORK.SPACE
.MESSAGE DATA FIELD NUMBER 01
OBJECT TYPE- SPACE
*QTS
NAME- QLB.TEMP.COBOL.WORK.SPACE TYPE- 19
SUBTYPE-
CREATION- 09/30/98 14:10:23 SIZE- 0000311000
ATTRIBUTES- 0000 ADDRESS- D29D06699F
0000
SPACE ATTRIBUTES-
000000 00FFFF00 00000060 19EFD8D3 C24BE3C5 D4D74BC3 D6C2D6D3
4BE6D6D9
000020 C1C3C540 40404040 40000000 00000000 00310F00 00010000
00000000
000040 00000000 00000000 00000000 00000000 00000000 00000000
00000000
SPACE-
More...
F3=Exit F12=Cancel F19=Left F20=Right F24=More keys
Jacky Wu
abended.
2. I did the search on IBM online library already
3. not because of period.........................................
Richard Daniels źgšDĄG
> Am I wrong or is this an abuse of a newsgroup?
>
> Jacky, Cobol manuals can be found along with all other AS/400 manuals at
> http://as400bks.rochester.ibm.com/
> which, BTW, has apparently been improved again.
>
> Looks like a period is missing or misplaced.
>
> Dick Daniels
> http://www.wynth.com/
>
> Jacky Wu wrote:
> > Help - COBOL compiler abend
> >
> > I can not compile the program after I made some changes.
> > The changes I made just adding 5 - 10 lines to the copybook
> > which is used by this program.
Mike Cravitz
post to support this claim is only supporting that you have compile
errors. Why are you thinking the compiler abended? The only thing
message LBL1903 is telling you is you have other compile errors. Look
backwards in your listing from there to find the compile errors. In
your listing should be one or more compile errors sited followed by a
little banner that looks like this.
* * * * * E N D O F M E S S A G E S *
* * * *
Good luck.
Mike Cravitz
NEWS/400 Technical Editor
Charles R. Pence
>
> Help - COBOL compiler abend
>
> I can not compile the program after I made some changes.
> The changes I made just adding 5 - 10 lines to the copybook
> which is used by this program.
> * EXCEPTION MCH1210 OCCURRED IN QLBPRO07 AT MI INSTRUCTION 478 IN
> COMPILER
> * MCH1210 RECEIVER VALUE TOO SMALL TO HOLD RESULT.
> * CURRENT CARD==> PERFORM PMNB-LINK.
> * XSEMCODE= 128 XSEMPARM= 0
> * TOKEN SLOT==> XTOKCODE= 28 XTOKLEN= 7
> *** NO SYMBOL TABLE PRESENT ***
> DUMP TERMINATED - OBJECT DEFINITION TABLE NOT MATERIALIZABLE
> * EXCEPTION MCH0601 OCCURRED IN QLBGPERF AT MI INSTRUCTION 21 IN
> COMPILER P
> * MCH0601 SPACE OFFSET X'00000000' IS OUTSIDE CURRENT LIMIT FOR OBJECT
> QLB.
> * PROCESSING ITEXT FOR STATEMENT 7659 SQRNBR +000700
MsgMCH1210 T/QLBPRO07
This looks like a problem documented as "Permanent Restriction" whereby
the number of *internal* labels generated by the compiler, has reached a
limit -- that the compiler code was not changed <one might infer> to
issue a message for "Max labels exceeded;" not even the MsgCPF6311 which
would sufficiently allude to <at least> a "size" issue.
Is your program source very "large" such that this might apply? If yes,
I can supply additional info per SA25337 and SA25118.
MsgMCH0601 T/QLBGPERF for QLB.TEMP.COBOL.WORK.SPACE
I believe this second error is a cobol-dump routine failure... or at
least seems to be a common follow-on condition to previous internal
compiler exceptions.
Regards, Chuck
-- Comments provided "as is" with no warranties of any kind whatsoever.