精通COBOL－－11.1.1 提高代码可重用性

　　对于某一部分功能代码，有时可能会在多个程序中被反复用到。此时，最好的方式便是将该功能代码编写为一个独立的子程序，通过子程序调用来对其进行使用。

例如，下面这两段程序都要到一个关于利率计算的功能段。假设利率为1.5，通过RATE变量表示，并假设第一段程序代码如下。

IDENTIFICATION   DIVISION.

PROGRAM-ID      TEST-PROG-ONE.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

 01  RATE                   PIC  S9V9.

 01  ORIGIN-DATA1          PIC  S9(5).

 01  NEW-DATA1             PIC  S9(5).

……

*

PROCEDURE   DIVISION.

……

PERFORM  100-COMPUTE-RATE.

……

STOP RUN.

 ……

 100-COMPUTE-RATE.

MOVE 1.5 TO RATE.

MULTIPLY  ORIGIN-DATA1  BY  RATE  GIVING  NEW-DATA1.

另一段程序代码如下。

IDENTIFICATION   DIVISION.

PROGRAM-ID      TEST-PROG-TWO.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

 01  RATE                   PIC  S9V9.

 01  ORIGIN-DATA2          PIC  S9(5).

 01  NEW-DATA2             PIC  S9(5).

……

*

PROCEDURE   DIVISION.

……

PERFORM  100-COMPUTE-RATE.

……

STOP RUN.

 ……

 100-COMPUTE-RATE.

MOVE 1.5 TO RATE.

MULTIPLY  ORIGIN-DATA2  BY  RATE  GIVING  NEW-DATA2.

通过比较以上两段程序可以发现，这两段程序中利率计算的功能段代码实际上是类似的。虽然以上两段程序都将该功能段代码写为了一个处理过程，便于程序内通过PERFORM语句调用。但是，若将这两段代码看作一个整体，仍然对利率计算的功能段代码进行了重复编写，不够简便。因此，考虑到子程序调用技术，可首先将利率计算的功能段代码编写为如下一个小的程序。

IDENTIFICATION   DIVISION.

PROGRAM-ID      SUBPROG.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

 01  RATE                   PIC  S9V9.

 LINKAGE SECTION.

 77  ORIGIN-DATA           PIC   S9(5).

 77  NEW-DATA              PIC   S9(5).

*

PROCEDURE   DIVISION  USING  ORIGIN-DATA  NEW-DATA.

MOVE 1.5 TO RATE.

MULTIPLY  ORIGIN-DATA  BY  RATE

             GIVING  NEW-DATA.

    GOBACK.

此时，之前的两段程序便可通过子程序调用的方式重复实现利率计算的功能了。根据以上子程序，可将之前的第一段程序改写如下。

IDENTIFICATION   DIVISION.

PROGRAM-ID      TEST-PROG-ONE.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

 77  ORIGIN-DATA1          PIC  S9(5).

 77  NEW-DATA1             PIC  S9(5).

……

*

PROCEDURE   DIVISION.

……

CALL  ‘SUBPROG’   USING  ORIGIN-DATA1

NEW-DATA1.

……

STOP RUN.

第二段程序相应的改写如下。

IDENTIFICATION   DIVISION.

PROGRAM-ID      TEST-PROG-TWO.

AUTHER           XXX.

*

ENVIRONMENT   DIVISION.

*

DATA  DIVISION.

WORKING STORAGE SECTION.

 77  ORIGIN-DATA2          PIC  S9(5).

 77  NEW-DATA2             PIC  S9(5).

……

*

PROCEDURE   DIVISION.

……

CALL  ‘SUBPROG’   USING  ORIGIN-DATA2

NEW-DATA2.

……

STOP RUN.

可以看到，使用子程序调用后，以上两段程序中都不用重复编写利率计算这一功能段代码了。该功能是直接通过调用利率计算的子程序所实现的。实际上，基于子程序调用技术，此处实现的正是一次编码，多次使用。并且，当使用同一功能段代码的程序越多，采用子程序调用方式的优势就越明显。