精通COBOL－－11.1.2 提高部分功能段执行效率

　　COBOL可调用的子程序并不一定要求由COBOL所编写。实际上，COBOL语言所调用的子程序是可以由其他语言编写的，如汇编语言、PL/1语言等等。
对于某些功能，使用其他语言编写往往执行效率会更高。例如，在大型机环境下使用S/390汇编语言编写的程序，通常运行效率就比使用COBOL编写的要高。但是，汇编语言编写起来是不如COBOL方便的。因此，通常可以以COBOL编写主程序，而将其中经常使用的部分功能段使用汇编语言编写。这样，既不会过于增大开发难度，也能从整体上提高程序的运行效率。
例如，下面这段COBOL程序便调用了汇编程序。其中所调用的程序名为ASMPGM，传递的参数依次为DATA1、DATA2、DATA3。该COBOL程序代码如下。
IDENTIFICATION DIVISION.
PROGRAM-ID CALL-ASM-PROG.
AUTHER XXX.
*
ENVIRONMENT DIVISION.
*
DATA DIVISION.
WORKING STORAGE SECTION.
77 DATA1 PIC X.
77 DATA2 PIC X.
77 DATA3 PIC X.
……
*
PROCEDURE DIVISION.
……
CALL ‘ASMPGM’ USING DATA1
DATA2
DATA3.
……
STOP RUN.
所调用的汇编程序通常可以如下。
ASMPGM CSECT
STM R14,R12,12(R13)
BALR R12,R0
USING *,R12
LM R2,R4,0(R1)
……
BCR B’1111’,14
DC A(PARM1)
DC A(PARM2)
DC X’80’,AL3(LASTPARM)
END ASMPGM
该汇编程序中，R2、R3、R4这3个寄存器将分别与COBOL中的3个参数相对应。其中R2与DATA1相对应，R3与DATA2相对应，R4与DATA3相对应。
此处主要是为了说明通过COBOL可以调用其他语言编写的子程序，并以此提高程序整体执行效率。关于大型机上的汇编语言将在后面的章节中进行讲解，这里不必深究。