用call命令開啟一個(gè)子程序的執(zhí)行-全文預(yù)覽
【正文】 ? 一旦一個(gè)程序發(fā)出函數(shù)調(diào)用命令 CALL，控制權(quán)就轉(zhuǎn)移到被調(diào)函數(shù)，被調(diào)函數(shù)可以將控制權(quán)返回給主調(diào)函數(shù)，調(diào)用另一個(gè)子程序或者結(jié)束運(yùn)行單元。 ? 使用 CALL命令的函數(shù)是主調(diào)函數(shù)， CALL后面跟被調(diào)函數(shù)的函數(shù)名。 ? 被調(diào)函數(shù)可以修改數(shù)據(jù)項(xiàng)內(nèi)容。 BY VALUE ? 主要用于和非 COBOL程序通信。 ? GOBACK ? 主函數(shù) : 返回調(diào)用函數(shù) (可能是返回操作系統(tǒng) ,并結(jié)束本次作業(yè) )。 例 1 MOVE 39。 MOVE 39。 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用于全局 ? 程序 : PROGRAMID. programname IS COMMON PROGRAM. ? 數(shù)據(jù)項(xiàng) : 01 dataname IS GLOBAL other datadescription entries ? 文件 FD filename IS GLOBAL other filedesc
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1