用ca新教材ll命令开启一个子程序的执行资料.pptVIP

COBOL for Mainframe Fundamentals Ch8 子程序 子程序 COBOL 用CALL命令开启一个子程序的执行。 使用CALL命令的函数是主调函数，CALL后面跟被调函数的函数名。 一旦一个程序发出函数调用命令CALL，控制权就转移到被调函数，被调函数可以将控制权返回给主调函数，调用另一个子程序或者结束运行单元。 CALL 语句 语法: CALL program-name [USING { [BY REFERENCE] | BY CONTENT] parm-1} ] [RETURNING parm-n [ON EXCEPTION statement-1] [NOT ON EXCEPTION statement-2] [END-CALL] 传递参数 主调函数: CALL program-name USING BY REFERENCE | CONTENT parm-1, parm-2,… RETURNING parm-n parm1, parm2, … 在 FILE SECTION 或 WORKING-STORAGE SECTION里定义 被调函数: PROCEDURE DIVISION USING BY REFERENCE | CONTENT parm-1, parm-2, …. RETURNING parm-n parm1, parm2, … 在 LINKAGE SECTION 里定义 注: 主调函数CALL…USING 子句 定义的参数个数必须与被调函数PROCEDURE DIVISION 头部里USING 子句 定义的参数个数相同。 BY REFERENCE 主调函数与被调函数中的数据项共享同一块内存。 被调函数可以修改数据项内容。 缺省选项。 BY CONTENT 被调函数占用局部存储空间，该空间存有主调函数传递给它的数据项。 主调函数可以修改，但被调函数不能修改数据项的内容。 BY VALUE 主要用于和非COBOL程序通信。 类似于COBOL程序间的BY CONTENTS方式。 三个终止语句 EXIT PROGRAM 主函数: 不发生任何行为。 子程序: 返回调用它的程序，不终止运行单元。 GOBACK 主函数: 返回调用函数 (可能是返回操作系统,并结束本次作业)。 子程序: 返回调用程序。 STOP RUN Main Program主程序:返回调用函数 (可能是返回操作系统,并结束本次作业)。 Subprogram子程序: 立即返回调用主程序的程序。 例 1 MOVE REPORTA TO REPORT-PROG CALL REPORT-PROG ON EXCEPTION DISPLAY Program REPORTA notavailable, using REPORTB. MOVE REPORTB TO REPORT-PROG CALL REPORT-PROG END-CALL END-CALL 例 2 主程序 WORKING-STORAGE SECTION. 01 NUM1 PIC S9(4). 01 NUM2 PIC S9(4). 01 OUT1 PIC S9(6). ... CALL SUBPGM USING NUM1,NUM2 RETURNING 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-name IS GLOBAL other data-description entries 文件 FD file-name IS GLOBAL other file-description entires COPY 命令 语法: COPY member 例子: WORKING-STORAGE SECTI