C - > COBOL在主機上的中介語通信

Question

在大型機上用C編寫的供應商軟件包提供了通過用戶出口覆蓋其功能的一部分的選項。所提供的C函數原型爲：

extern int SomeExit (void * Parameters, 
        void * Record1, 
        void * Record2, 
        char ComparisonType, 
        char * RankString, 
        void * NotUsed1, 
        int * NotUsed2) 

由於我們主要是一個COBOL店我定義的企業COBOL 4.2程序（如一個DLL）來實施退出試圖遵循IBM ILC指南中的約定（https://www.ibm.com/support/knowledgecenter/en/SSLTBW_1.13.0/com.ibm.zos.r13.ceea400/clcccb5.htm#clcccb5 ）和這個舊的SHARE演示文稿中的示例：http://www-01.ibm.com/support/docview.wss?uid=swg27003846&aid=1，但是由此產生的程序正在調用退出並在我的DISPLAY消息之前調用。我的假設是我沒有正確地聲明接收數據結構。下面是我當前測試代碼的一部分（忽略我的命名約定 - 這是一個證明接口的原型，一旦我的基本呼叫工作，它將被重寫到我們的內部標準）。

IDENTIFICATION DIVISION. 
PROGRAM-ID. "SomeExit". 
... 
LINKAGE SECTION.            
01 WS-PARAMETERS-POINTER  USAGE IS POINTER SYNCHRONIZED. 
01 SORT-PASS-RECORD1-POINTER USAGE IS POINTER SYNCHRONIZED. 
01 SORT-PASS-RECORD2-POINTER USAGE IS POINTER SYNCHRONIZED. 
01 WS-COMPARISION-TYPE   PIC X. 
01 WS-RANK-STRING-POINTER  USAGE IS POINTER SYNCHRONIZED. 
01 WS-NOT-USED1-POINTER  USAGE IS POINTER SYNCHRONIZED. 
01 WS-NOT-USED2-POINTER  USAGE IS POINTER SYNCHRONIZED. 
01 WS-RETURN     PIC S9(9) USAGE IS BINARY. 
... 
PROCEDURE DIVISION USING BY VALUE WS-PARAMETERS-POINTER  
        SORT-PASS-RECORD1-POINTER   
        SORT-PASS-RECORD2-POINTER   
        WS-COMPARISION-TYPE     
        WS-RANK-STRING-POINTER    
        WS-NOT-USED1-POINTER    
        WS-NOT-USED2-POINTER    
       RETURNING WS-RETURN.      

DISPLAY 'IN EXIT'. 
... 
MOVE 0 TO WS-RETURN. 
GOBACK. 

的異常結束爲：

CEE3250C The system or user abend U 016 R=00000000 was issued.              
    From entry point main at compile unit offset +00000192 at entry offset +00000192 at address 28500ECA.  

供應商代碼調用的DLL動態。當我刪除DLL時，我收到一條消息，指出無法找到出口，因此看起來C代碼正試圖調用它。

我試圖在PROCEDURE DIVISION USING變化，包括丟棄BY VALUE，使用BY REFERENCE（雖然我明白，是默認值），並與實際結構定義替換POINTERs。我誤解了關於如何構建傳遞給COBOL例程的參數的手冊嗎？

編輯：我確實有一個支持票與供應商打開，但他們還沒有迴應任何有用的東西。

謝謝，大衛

Answer 1

感謝我能夠確定基於更好地瞭解每條例草案建議調用結構的解決方案的意見。鑑於該C原型：

extern int SomeExit (void * Parameters, 
        void * Record1, 
        void * Record2, 
        char ComparisonType, 
        char * RankString, 
        void * NotUsed1, 
        int * NotUsed2) 

解決辦法：

IDENTIFICATION DIVISION.  
PROGRAM-ID. "SomeExit". 
... 
LINKAGE SECTION.  
01 WS-PARAMETERS  PIC X(10).  
01 SORT-PASS-RECORD1 PIC X(50).  
01 SORT-PASS-RECORD2 PIC X(50).  
01 WS-COMPARISON-TYPE PIC X. 
01 WS-RANK-STRING  PIC X(6).     
01 WS-NOT-USED1   PIC X.      
01 WS-NOT-USED2   PIC X.      
01 WS-RETURN   PIC S9(9) USAGE IS BINARY. 
... 
PROCEDURE DIVISION USING      
     BY REFERENCE WS-PARAMETERS  
     BY REFERENCE SORT-PASS-RECORD1 
     BY REFERENCE SORT-PASS-RECORD2 
     BY VALUE  WS-COMPARISON-TYPE 
     BY REFERENCE WS-RANK-STRING  
     BY REFERENCE WS-NOT-USED1   
     BY REFERENCE WS-NOT-USED2   
      RETURNING WS-RETURN.   
    DISPLAY 'IN EXIT'. 
    ... 
    MOVE 0 TO WS-RETURN. 
    GOBACK. 

隨着用戶出口上面成功調用並返回一個值給供應商的邏輯。我使用以下參數編譯RENT, TRUNC(BIN), DLL,EXPORTALL並鏈接DYNAM(DLL),RENT。我的應用程序不需要，但如果調用程序期望在上述示例解決方案中使用的被調用程序中使用混合大小寫例程名稱，則還需要PGMNAME(LONGMIXED)。

感謝所有評論者指引我在正確的方向。