請(qǐng)教有關(guān)程序編譯后的大小

hui5562lin

我編譯的時(shí)候已設(shè)定了 IGCDTA(*YES),所以和庫中原先是否存在已編譯好的PGM應(yīng)該沒有關(guān)系。的確是通過注釋或刪除一些代碼，這個(gè)程序就編譯通過。

程序代碼不是很方便直接貼上來，以下是SPLF的出錯(cuò)信息，我覺得應(yīng)該是COBOL編譯器對(duì)于源代碼（可執(zhí)行代碼）有限制，編譯器沒有將我的代碼全部編譯出來。

以下是出錯(cuò)信息，不知道大家有沒有碰到過：
(注：編譯到PERFORM這一句時(shí)出EXCEPTION，后面還有一段代碼沒有編譯進(jìn)來）

  20490  425557                  PERFORM MESSAGE-MOVE THRU MESSAGE-MOVE-EXIT                             31/05/05
* EXCEPTION MCH1210 OCCURRED IN QLBPRO07 AT MI INSTRUCTION 479 IN COMPILER PHASE PRO.
* MCH1210 RECEIVER VALUE TOO SMALL TO HOLD RESULT.
* CURRENT CARD==>;51019                   PERFORM PRINTEM      THRU PRINTEM-EXIT
* 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 PHASE GEN.
* MCH0601 SPACE OFFSET X'00000000' OR TERASPACE OFFSET X'0000000000000000' IS OUTSIDE CURRENT LIMIT FOR OBJECT QLB.TEMP. COBOL.WORK.S
* PROCESSING ITEXT FOR STATEMENT  9406 SQRNBR +000700
000044FC: N-TUPLE  PERFORM   0 0000:
                                                      
FORMATTED DATA DUMP FOR PROGRAM QLBPRO07.QLBL             16:39:35    26/08/05
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   * * * * *

qingzhou

[quote]原帖由 "hui5562lin"]我編譯的時(shí)候已設(shè)定了 IGCDTA(*YES),所以和庫中原先是否存在已編譯好的PGM應(yīng)該沒有關(guān)系。.........[/quote 發(fā)表：

CRTCBLPGM好象沒有IGCDTA(*YES)參數(shù)設(shè)定，只有在CRTPF、CRTDSPF、CRTPRTF時(shí)才會(huì)存在IGCDTA(*YES)參數(shù)以支持中文。

再說“設(shè)定了IGCDTA(*YES)可以證明與原來庫中是否存在編譯好的OBJECT沒關(guān)系”，不理解你的意思。。。