用call命令開啟一個子程序的執(zhí)行(編輯修改稿)
2025-03-08 02:48 本頁面
【文章內(nèi)容簡介】 ). ... CALL 39。SUBPGM39。 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ù)項 : 01 dataname IS GLOBAL other datadescription entries ? 文件 FD filename IS GLOBAL other filedescription entires COPY 命令 ? 語法 : COPY member ? 例子 : WORKINGSTORAGE SECTION COPY FAREA. 在成員 FRECORD中 . 01 WKREC. 05 USERID PIC X(10). 05 FILLER PIC X. 05 PWD PIC X(10). 靜夜四無鄰，荒居舊業(yè)貧。 , March 9, 2023 雨中
教學課件相關(guān)推薦
鄂ICP備17016276號-1