版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請進(jìn)行舉報(bào)或認(rèn)領(lǐng)
文檔簡介
COBOLforMainframe
FundamentalsCh8子程序COBOLforMainframeFundamenta子程序COBOL用CALL命令開啟一個(gè)子程序的執(zhí)行。使用CALL命令的函數(shù)是主調(diào)函數(shù)，CALL后面跟被調(diào)函數(shù)的函數(shù)名。一旦一個(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)行單元。子程序COBOL用CALL命令開啟一個(gè)子程序的執(zhí)行。
CALL語句語法:CALLprogram-name[USING{[BYREFERENCE]|BYCONTENT]parm-1}][RETURNINGparm-n[ONEXCEPTIONstatement-1][NOTONEXCEPTIONstatement-2][END-CALL]CALL語句語法:傳遞參數(shù)主調(diào)函數(shù):CALLprogram-nameUSINGBYREFERENCE|CONTENTparm-1,parm-2,…RETURNINGparm-nparm1,parm2,…在FILESECTION或WORKING-STORAGESECTION里定義被調(diào)函數(shù):
PROCEDUREDIVISION USINGBYREFERENCE|CONTENTparm-1,parm-2,…. RETURNINGparm-n parm1,parm2,…在LINKAGESECTION里定義注:主調(diào)函數(shù)CALL…USING子句
定義的參數(shù)個(gè)數(shù)必須與被調(diào)函數(shù)PROCEDUREDIVISION頭部里USING子句
定義的參數(shù)個(gè)數(shù)相同。傳遞參數(shù)主調(diào)函數(shù):
BYREFERENCE主調(diào)函數(shù)與被調(diào)函數(shù)中的數(shù)據(jù)項(xiàng)共享同一塊內(nèi)存。被調(diào)函數(shù)可以修改數(shù)據(jù)項(xiàng)內(nèi)容。缺省選項(xiàng)。BYREFERENCE主調(diào)函數(shù)與被調(diào)函數(shù)中的數(shù)據(jù)項(xiàng)共享同
BYCONTENT被調(diào)函數(shù)占用局部存儲(chǔ)空間，該空間存有主調(diào)函數(shù)傳遞給它的數(shù)據(jù)項(xiàng)。主調(diào)函數(shù)可以修改，但被調(diào)函數(shù)不能修改數(shù)據(jù)項(xiàng)的內(nèi)容。BYCONTENT被調(diào)函數(shù)占用局部存儲(chǔ)空間，該空間存有主
BYVALUE主要用于和非COBOL程序通信。類似于COBOL程序間的BYCONTENTS方式。BYVALUE三個(gè)終止語句EXITPROGRAM主函數(shù):不發(fā)生任何行為。子程序:返回調(diào)用它的程序，不終止運(yùn)行單元。GOBACK主函數(shù):返回調(diào)用函數(shù)(可能是返回操作系統(tǒng),并結(jié)束本次作業(yè))。子程序:返回調(diào)用程序。STOPRUNMainProgram主程序:返回調(diào)用函數(shù)(可能是返回操作系統(tǒng),并結(jié)束本次作業(yè))。Subprogram子程序:立即返回調(diào)用主程序的程序。三個(gè)終止語句EXITPROGRAM例1MOVE'REPORTA'TOREPORT-PROGCALLREPORT-PROG ONEXCEPTION DISPLAY'ProgramREPORTAnotavailable,usingREPORTB.' MOVE'REPORTB'TOREPORT-PROG CALLREPORT-PROG END-CALLEND-CALL例1MOVE'REPORTA'TOREPORT-例2主程序WORKING-STORAGESECTION.01NUM1PICS9(4).01NUM2PICS9(4).01OUT1PICS9(6)....CALL'SUBPGM'USINGNUM1,NUM2RETURNINGOUT1.DISPLAYOUT1.STOPRUN
主程序LINKAGESECTION.01NUM1PICS9(4).01NUM2PICS9(4).01OUT1PICS9(6).PROCEDUREDIVISIONUSINGNUM1,NUM2RETURNINGOUT1.....ADDNUM1,NUM2TOOUT1.EXITPROGRAM.例2主程序主程序
GLOBALUsage用于全局程序:PROGRAM-ID.program-nameISCOMMONPROGRAM.數(shù)據(jù)項(xiàng):01data-name ISGLOBAL otherdata-descriptionentries文件FDfile-name ISGLOBAL otherfile-descriptionentiresGLOBALUsage用于全局程序:
COPY命令語法:COPY member例子:WORKING-STORAGESECTIONCOPYF-AREA.在成員FRECORD中.01WK-REC. 05USERID PICX(10). 05FILLER PICX. 05PWD PICX(10).COPY命令COBOLforMainframe
FundamentalsCh8子程序COBOLforMainframeFundamenta子程序COBOL用CALL命令開啟一個(gè)子程序的執(zhí)行。使用CALL命令的函數(shù)是主調(diào)函數(shù)，CALL后面跟被調(diào)函數(shù)的函數(shù)名。一旦一個(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)行單元。子程序COBOL用CALL命令開啟一個(gè)子程序的執(zhí)行。
CALL語句語法:CALLprogram-name[USING{[BYREFERENCE]|BYCONTENT]parm-1}][RETURNINGparm-n[ONEXCEPTIONstatement-1][NOTONEXCEPTIONstatement-2][END-CALL]CALL語句語法:傳遞參數(shù)主調(diào)函數(shù):CALLprogram-nameUSINGBYREFERENCE|CONTENTparm-1,parm-2,…RETURNINGparm-nparm1,parm2,…在FILESECTION或WORKING-STORAGESECTION里定義被調(diào)函數(shù):
PROCEDUREDIVISION USINGBYREFERENCE|CONTENTparm-1,parm-2,…. RETURNINGparm-n parm1,parm2,…在LINKAGESECTION里定義注:主調(diào)函數(shù)CALL…USING子句
定義的參數(shù)個(gè)數(shù)必須與被調(diào)函數(shù)PROCEDUREDIVISION頭部里USING子句
定義的參數(shù)個(gè)數(shù)相同。傳遞參數(shù)主調(diào)函數(shù):
BYREFERENCE主調(diào)函數(shù)與被調(diào)函數(shù)中的數(shù)據(jù)項(xiàng)共享同一塊內(nèi)存。被調(diào)函數(shù)可以修改數(shù)據(jù)項(xiàng)內(nèi)容。缺省選項(xiàng)。BYREFERENCE主調(diào)函數(shù)與被調(diào)函數(shù)中的數(shù)據(jù)項(xiàng)共享同
BYCONTENT被調(diào)函數(shù)占用局部存儲(chǔ)空間，該空間存有主調(diào)函數(shù)傳遞給它的數(shù)據(jù)項(xiàng)。主調(diào)函數(shù)可以修改，但被調(diào)函數(shù)不能修改數(shù)據(jù)項(xiàng)的內(nèi)容。BYCONTENT被調(diào)函數(shù)占用局部存儲(chǔ)空間，該空間存有主
BYVALUE主要用于和非COBOL程序通信。類似于COBOL程序間的BYCONTENTS方式。BYVALUE三個(gè)終止語句EXITPROGRAM主函數(shù):不發(fā)生任何行為。子程序:返回調(diào)用它的程序，不終止運(yùn)行單元。GOBACK主函數(shù):返回調(diào)用函數(shù)(可能是返回操作系統(tǒng),并結(jié)束本次作業(yè))。子程序:返回調(diào)用程序。STOPRUNMainProgram主程序:返回調(diào)用函數(shù)(可能是返回操作系統(tǒng),并結(jié)束本次作業(yè))。Subprogram子程序:立即返回調(diào)用主程序的程序。三個(gè)終止語句EXITPROGRAM例1MOVE'REPORTA'TOREPORT-PROGCALLREPORT-PROG ONEXCEPTION DISPLAY'ProgramREPORTAnotavailable,usingREPORTB.' MOVE'REPORTB'TOREPORT-PROG CALLREPORT-PROG END-CALLEND-CALL例1MOVE'REPORTA'TOREPORT-例2主程序WORKING-STORAGESECTION.01NUM1PICS9(4).01NUM2PICS9(4).01OUT1PICS9(6)....CALL'SUBPGM'USINGNUM1,NUM2RETURNINGOUT1.DISPLAYOUT1.STOPRUN
主程序LINKAGESECTION.01NUM1PICS9(4).01NUM2PICS9(4).01OUT1PICS9(6).PROCEDUREDIVISIONUSINGNUM1,NUM2RETURNINGOUT1.....ADDNUM1,NUM2TOOUT1.EXITPROGRAM.例2主程序主程序
GLOBALUsage用于全局程序:PROGRAM-ID.program-nameISCOMMONPROGRAM.數(shù)據(jù)項(xiàng):01data-name ISGLOBAL otherdata-descriptionentries文件FDfile-nam
溫馨提示
- 1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
- 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
- 5. 人人文庫網(wǎng)僅提供信息存儲(chǔ)空間，僅對用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對任何下載內(nèi)容負(fù)責(zé)。
- 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請與我們聯(lián)系，我們立即糾正。
- 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2024專業(yè)加工承攬合同
- 2024西瓜種植收購合同范文
- 工程勞務(wù)承包合同的簡化版本
- 成人高等教育聯(lián)合舉辦協(xié)議
- 2024工程機(jī)械租賃合同范本
- 租房協(xié)議書示范
- 2024標(biāo)識(shí)標(biāo)牌合同
- 信息技術(shù)服務(wù)合作契約樣本
- 2024財(cái)產(chǎn)信托合同范文
- 2024年人力資源派遣協(xié)議范本
- 危險(xiǎn)化學(xué)品安全周知卡(乙酸乙酯)
- 孤立性肺結(jié)節(jié)的CT診斷
- GB/T 19425-2003防偽技術(shù)產(chǎn)品通用技術(shù)條件
- 微型消防站人員考核題庫及答案
- （完整）交管12123學(xué)法減分考試題庫及參考答案（通用版）
- 瀝青混合料最大理論密度計(jì)算法
- 部編版小學(xué)語文四年級上冊第六單元教材分析解讀課件
- 第一章-馬克思主義的誕生-(《馬克思主義發(fā)展史》課件)
- SY∕T 6336-2019 沉積巖重礦物分離與鑒定方法
- STEMI溶栓流程圖(第一版)
- 小學(xué)四年級英語教師發(fā)言稿6篇
評論
0/150
提交評論