调用C程序时COBOL MCH3601错误

Question

在COBOL多次调用C程序时，有一个MCH3601。在第一个通话中，它运行良好，但随后失败了（ MCH3601 ）...我称之为c程序这样

CALL "C2" USING BY REFERENCE RESULT-STRING.

奇怪的是，如果我在呼叫失败之前调用其他C程序，那么失败的呼叫工作出色地。我熟悉C中的错误，您在其中放置了一个额外的printf，所有内容都有效，这是因为您分配了不良的内存，并且使用printf的事实在堆栈中分配了更多空间，以获取printf及其参数的返回地址，因此您的不良代码之所以有效，是因为溢出了printf的东西，因此没有分割故障。

我想这是类似的，但是在COBOL中，我有这样的变量声明

01  RESULT-STRING    PIC X(20)       VALUE ALL "X".

，因此我相信应该分配所需的资源。我也不知道AS400组装，在AS400中我有些无知，因此我正在努力解决这个问题。感谢您的帮助。

- 编辑

要回答评论： C程序返回int。它被定义为该

int main(int argc, char *argv[])

参数已获得

char * myarg=argv[1];

，然后将其他字符串复制到其中：

char * other_string[100];
...
//I null terminate it at byte 16
other_string[15]=0;
//the strcpy will copy only 15 bytes plus null char into the referenced arg
strncpy(myarg, other_string,16);
return 0;

因此，我相信我不会以任何方式在C中的参考COBOL变量之外写作。 COBOL代码很大，并且在不同的位置进行多个调用。

是否有可能在COBOL中溢出造成呼叫的返回地址或类似的东西？

Answer 1

您的COBOL例程通过引用传递一个参数，即它传递了变量result-string的存储区域的地址。因此，您的C例程将接收单参数，即指针。

您认为是包含传递的参数数量的整数， argc 实际上是通过参考传递的单个参数的地址。所有对 argv 数组的引用都使用arbitary存储地址，因为什么都没有传递。

您需要确保正确指定了C例程的入口点，因为您从COBOL调用c2。您的C例程应被声明为：

void C2 (char *result-string)

仅当C程序是最高的例程（称为命令行）之类的命令行时，是否会通过计数器将其传递给所提供的参数。

更新

我已经编码了一个示例COBOL例程调用C例程，并通过参考传递一个参数。 Note 这是在Z/OS上完成的，而不是/400。您需要适应AS/400环境。

COBOL源

       IDENTIFICATION DIVISION.                                     
       PROGRAM-ID. COBTOC.                                          
       AUTHOR.     Peter Hunkeler.                                  
       ENVIRONMENT    DIVISION.                                     
       DATA           DIVISION.                                     
       WORKING-STORAGE SECTION.                                     
                                                                    
       01  Some-Char-String   PIC X(20) value is 'Hello from Cobol'.
       01  C-SubRoutine       PIC X(8) VALUE 'CFROMCOB'.            
                                                                    
       PROCEDURE      DIVISION.                                     
                                                                    
           DISPLAY 'About to call subroutine ' C-SubRoutine.        
           DISPLAY 'Passing Some-Char-String: ' Some-Char-String.   
           CALL C-SubRoutine USING BY REFERENCE Some-Char-String.   
           DISPLAY 'Just returned from ' C-SubRoutine.              
           DISPLAY 'Some-Char-String now is: ' Some-Char-String.    
                                                                    
           MOVE 0 to RETURN-CODE.                                   
           GOBACK.                                                  
                                                                    
       END PROGRAM COBTOC.                                          

C源

#include <stdio.h>                                      
                                                        
void cfromcob( char *pCobString ) {                     
                                                        
 char string[21];                                       
 char returnString[21] = "Returning from C   ";         
                                                        
 printf( "Hello from some C code.\n" );                 
                                                        
 strncpy( string, pCobString, 20);                      
 string[20] = 0x00;                                     
 printf( "This data was passed: %s\n", string );        
                                                        
 strncpy( pCobString, returnString, 20);                
 printf( "This data is returned: %s\n", returnString ); 

 }                                               

C例程与以下粘合剂参数结合：

  ENTRY    CFROMCOB
  NAME     CFROMCOB(R)     

运行时运行时输出

，在输出（sysout）上看到以下行：

About to call subroutine CFROMCOB             
Passing Some-Char-String: Hello from Cobol    
Hello from some C code.                   
This data was passed: Hello from Cobol    
This data is returned: Returning from C   
Just returned from CFROMCOB                   
Some-Char-String now is: Returning from C