proCobol求助

moon38sun

proCobol在编译的时候总是报如下的错误信息：
英数字变量的长度超过160，只截取了前160位。

实际情况确实是只截取了160位，但是sql文的长度远远大于160，怎么办呢？

doni

回复 1# moon38sun


    没太看明白LZ的意思，能不能给个程序段和报错信息

moon38sun

回复 2# doni


    信息倒是有，就是1楼写的内容，说的有点问题，不是而error，而是warning。
   大致操作就是： proCobol中定义sql文之后，进行编译，就出现了warning。然后运行程序，就出现稀奇古怪的错误。
   但是如果我把sql文的长度控制在160字节以内（比如抽出项目减少），就没有问题。但是现状sql的长度大于160，已经没有缩减长度的可能了。

程序段如下：
     *-----------------------------------------------------------------
       *----１）游标定义
     *-----------------------------------------------------------------
       CRSR-DEFI-PROC               SECTION.
           EXEC  SQL  DECLARE  CSR
             CURSOR  FOR
               SELECT  ......   FROM   CBL100100
                WHERE  KANRYO_DT  =  '        '
                AND    INST_SKIBT = '9999'
                AND    KANRYO_FLG = '0'
           END-EXEC   
           EVALUATE  SQLCODE
              WHEN  CNS-NORMAL
                  DISPLAY  "游标定义=>CNS-NORMAL"
              WHEN  CNS-NOTFOUND
                  DISPLAY  "游标定义=>CNS-NOTFOUND"
              WHEN  CNS-EXIST
                  DISPLAY  "游标定义=>CNS-EXIST"
              WHEN  OTHER
                  DISPLAY  "游标定义=>OTHER"
           END-EVALUATE
           CONTINUE.
       CRSR-DEFI-PROC-EXT.
           EXIT.
      *-----------------------------------------------------------------
      *----２）打开游标
      *-----------------------------------------------------------------
       CRSR-OPEN-PROC               SECTION.
           EXEC  SQL  OPEN  CSR  END-EXEC.
           EVALUATE  SQLCODE
              WHEN  CNS-NORMAL
                  DISPLAY  "游标OPEN=>CNS-NORMAL"
              WHEN  CNS-NOTFOUND
                  DISPLAY  "游标OPEN=>CNS-NOTFOUND"
              WHEN  CNS-EXIST
                  DISPLAY  "游标OPEN=>CNS-EXIST"
              WHEN  OTHER
                  DISPLAY  "游标OPEN=>OTHER"
      *          DISPLAY SQLCODE
      *          DISPLAY SQLERRMC
           END-EVALUATE.
       CRSR-OPEN-PROC-EXT.
           EXIT.

doni

COBOL不懂，一直用的是PROC，根据LZ给的信息，大致猜想是预编辑错误(pre-compile)
LZ用的不是动态SQL，所以应该与SQL长度无关。所以可能是宿主变量的问题。
建议LZ看一下，所以宿主变量数组的长度是否一致。

moon38sun

回复 4# doni

    我明白了，谢谢提醒。
   的确是预编译的问题，在procob 进行预编译的时候，指定maxliteral = 160 就没有问题。
   

moon38sun

每次太繁琐了，又找了一个方法，这样就不需要每次指定了！
\precomp\admin\pcbcfg.cfg里面追加以下设定：
maxliteral=160