如何将参数从外部汇编程序子例程传递回 cobol 程序？答案

【问题标题】：How do you pass a parameter back from an external assembler subroutine to a cobol program?如何将参数从外部汇编程序子例程传递回 cobol 程序？
【发布时间】：2012-11-29 05:23:46
【问题描述】：

我正在尝试从用汇编程序编写的外部子例程传回参数。调用例程在 cobol 中，外部汇编例程的参数如下所示：

01  CALCSHRS-PARMS.
    05  CS-DEPOSIT-AMT      PIC 9(5)V99 COMP-3.
    05  CS-SHARE-PRC        PIC 9(3)V99 COMP-3.
    05  CS-SHARE-AMT        PIC 9(9)V99 COMP-3.

调用如下所示：

CALL 'CALCSHRS' USING CS-DEPOSIT-AMT
                      CS-SHARE-PRC
                      CS-SHARE-AMT.

例程使用 CS-DEPOSIT-AMT 和 CS-SHARE-PRC 来计算 CS-SHARE-AMT，需要将其传回。这是汇编程序：

CALCSHRS CSECT                                             
*                                                          
         PRINT NOGEN                                       
*                                                           
         STM   14,12,12(13)        SAVE ENTRY REGS         
         LR    12,15               SET BASE REG            
         USING CALCSHRS,12         ESTABLISH ADDRESSABILITY
*                                                          
         LA    14,SUBPSAVE         STANDARD                
         ST    13,4(,14)           SAVE                    
         ST    14,8(,14)           AREA                    
         LR    13,14               LINKAGE                 
*                                                          
         LM    2,4,0(1)            LOAD THE PARAMETERS                                                               
*                                                          
         ZAP   DEPOSITP,0(2,4)       GET THE DEPOSIT AMOUNT  
         ZAP   SHAREPCK,0(3,3)     GET THE SHARE PRICE     
*                                                          
         ZAP   SHARESP(9),DEPOSITP INITIALIZE SHARES       
*                                                          
         MP     SHARESP,=P'10000'     MULTIPLY BY 1000     
         DP     SHARESP,SHAREPCK     DIVIDE BY SHARE PRICE 
         ZAP    SHARESPR,SHARESP(6)  MOVE THE FIRST 5 BYTES
*                                                          
         SRP    SHARESPR(6),(64-1),5 SHIFT TO ROUND        
         SRP    SHARESPR(6),2,5      SHIFT AGAIN           
*                                                          
         MVC   0(6,4),SHARESPR     ME ATTEMPTING TO RETURN SHARESPR...                       
*                                                          
         L     13,4(,13)           STANDARD SAVE                    
         LM    14,12,12(13)        AREA LINKAGE                     
         SR    15,15               SET RETURN CODE TO 0             
         BR    14                                                   
*                                                                   
         LTORG                                                      
*                                                                   
SUBPSAVE DC    18F'0'                                               
*                                                                   
SHAREPCK DS    PL3                   SHARE PRICE PACKED             
DEPOSITP DS    PL5                   DEPOSIT IN PACKED DECIMAL      
SHARESP  DS    PL9                   SHARES  IN PACKED DECIMAL      
SHARESPR DS    PL6                   SHARES ROUNDED                 
*                                                                   
         END   CALCSHRS

我只需要返回 SHARESPR 并将其放入我的 cobol 程序中的 CS-SHARE-AMT 中。其他一切都按我想要的方式工作。有人知道我需要怎么做吗？非常感谢任何帮助。

【问题讨论】：

这到底是哪个平台。系统/36？
z/OS。这是我正在上的一门课，我们使用 Marist 系统。

标签： assembly call external cobol subroutine

【解决方案1】：

事实证明，您可以使用 ZAP 将参数及其地址传回寄存器中。在我的例子中，CS-SHARE-AMT 在寄存器 4 中，所以这就是我如何将 SHARESPR 从我的汇编代码传递回我的调用 COBOL 程序：

ZAP  0(6,4),SHARESPR(6)

【讨论】：

也许您可以评论一下为什么您的 MVC “不起作用”？如果长度相同，就可以MVC了。