用CALL命令开启一个子程序的执行ppt课件

1、COBOL for Mainframe FundamentalsCh8 子程序子程序COBOL 用CALL命令开启一个子程序的执行。运用CALL命令的函数是主调函数，CALL后面跟被调函数的函数名。一旦一个程序发出函数调用命令CALL，控制权就转移到被调函数，被调函数可以将控制权前往给主调函数，调用另一个子程序或者终了运转单元。 CALL 语句语法:CALL program-nameUSING BY REFERENCE | BY CONTENT parm-1 RETURNING parm-nON EXCEPTION statement-1NOT ON EXCEPTION statement-2

2、END-CALL传送参数主调函数:CALL program-nameUSING BY REFERENCE | CONTENT parm-1, parm-2,RETURNING parm-nparm1, parm2, 在 FILE SECTION 或 WORKING-STORAGE SECTION里定义被调函数:PROCEDURE DIVISION USING BY REFERENCE | CONTENT parm-1, parm-2, .RETURNING parm-nparm1, parm2, 在 LINKAGE SECTION 里定义注: 主调函数CALLUSING 子句 定义的参数个数必

3、需与被调函数PROCEDURE DIVISION 头部里USING 子句 定义的参数个数一样。 BY REFERENCE主调函数与被调函数中的数据项共享同一块内存。被调函数可以修正数据项内容。缺省选项。 BY CONTENT被调函数占用部分存储空间，该空间存有主调函数传送给它的数据项。主调函数可以修正，但被调函数不能修正数据项的内容。 BY VALUE主要用于和非COBOL程序通讯。类似于COBOL程序间的BY CONTENTS方式。三个终止语句EXIT PROGRAM主函数: 不发生任何行为。子程序: 前往调用它的程序，不终止运转单元。GOBACK主函数: 前往调用函数 (能够是前往操作系统

4、,并终了本次作业)。子程序: 前往调用程序。STOP RUNMain Program主程序:前往调用函数 (能够是前往操作系统,并终了本次作业)。Subprogram子程序: 立刻前往调用主程序的程序。 例 1MOVE REPORTA TO REPORT-PROGCALL REPORT-PROGON EXCEPTIONDISPLAY Program REPORTA notavailable, using REPORTB.MOVE REPORTB TO REPORT-PROGCALL REPORT-PROGEND-CALLEND-CALL 例 2主程序WORKING-STORAGE SECTIO

5、N. 01 NUM1 PIC S9(4).01 NUM2 PIC S9(4).01 OUT1 PIC S9(6).CALL SUBPGM USING NUM1,NUM2RETURNING OUT1. DISPLAY OUT1.STOP RUN 主程序LINKAGE SECTION. 01 NUM1 PIC S9(4).01 NUM2 PIC S9(4).01 OUT1 PIC S9(6).PROCEDURE DIVISION USING NUM1,NUM2 RETURNING OUT1. . ADD NUM1, NUM2 TO OUT1. EXIT PROGRAM. GLOBAL Usage用于全局程序:PROGRAM-ID. program-name IS COMMON PROGRAM.数据项:01 data-nameIS GLOBALother data-description entries文件FD file-nameIS GLOBALother file-description entires COPY 命令语法:COPYmember例子:WORKING-STORAGE SE