COBOL 子程序.pdfVIP

COBOL ⼦程序 Cobol subroutine is a program that can be compiled independently but cannot be executed independently . There are two types of subroutines: COBOL程序是⼀种程序，可以编译，但不能独⽴执⾏的独⽴。有两种类型的⼦程 序：内部⼦程序喜欢执⾏语句， 部⼦程序喜欢呼叫动词。 Call Verb 呼叫动词 Call Verb⽤来控制从⼀个程序转换到其他程序。包含CALL动词的程序Call Verb和被 调⽤的程序被称为Called Program 。调⽤程序的执⾏将暂停，直到被调⽤的程序完成 执⾏。退出程序语句是在被调⽤程序来控制转回使⽤。 调⽤程序的限制 以下是被调⽤的程序要求： Linkage section必须在调⽤程序来限定。它包括在程序中传递的数据元素。该 数据项不应该有值条款。 IC⼦句必须是通过调⽤程序传递的变量兼容。 Procedure division using有⼀个从调⽤程序传递的变量的列表，并且该顺序必 须与在Call动词中提到的相同。 Exit program语句是在被调⽤程序来控制转回使⽤。它必须是在被调⽤程序的 最后⼀条语句。 该参数可程序之间以两种⽅式进⾏传递： 通过引⽤ 通过内容 引⽤调⽤ 如果在被调⽤程序变量的值被修改，那么它们的新值将反映在调⽤程序。如果未指定 BY⼦句，则变量总是通过引⽤传递。 语法 以下是引⽤调⽤⼦程序的语法： CALL sub-prog-name USING variable-1, variable-2. 例 以下⽰例是MAIN调⽤程序，UTIL是被调⽤程序： IDENTI ICATION DIVISION. PROGRAM-ID. MAIN. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-STUDENT-ID PIC 9(4) VALUE 1000. 01 WS-STUDENT-NAME PIC A(15) VALUE Tim. PROCEDURE DIVISION. CALL UTIL USING WS-STUDENT-ID, WS-STUDENT-NAME. DISPLAY Student Id : WS-STUDENT-ID DISPLAY Student Name : WS-STUDENT-NAME STOP RUN. 调⽤程序 IDENTI ICATION DIVISION. PROGRAM-ID. UTIL. DATA DIVISION. LINKAGE SECTION. 01 LS-STUDENT-ID PIC 9(4). 01 LS-STUDENT-NAME PIC A(15). PROCEDURE DIVISION USING LS-STUDENT-ID, LS-STUDENT-NAME. DISPLAY In Called Program. MOVE 1111 TO LS-STUDENT-ID. EXIT PROGRAM . JCL执⾏上述COBOL程序： //SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=MAIN 当你编译和执⾏上⾯的程序，它会产⽣以下结果： In Called Program Student Id : 1111 Student Name : Tim 内容调⽤ 如果在被调⽤程序变量的值被修改，那么他们的新值将不会在调⽤程序中反映。 语法 以下是内容调⽤⼦程序语法： CALL sub-prog-name USING BY CONTENT variable-1, BY CONTENT variable-2. 例 下⾯的例⼦是主要的调⽤程序，UTIL是被调⽤的程序： IDENTI ICATION DIVISION. PROGRAM-ID. MAIN. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-STUDENT-ID PIC 9(4) VALUE 1000. 01 WS-STUDENT-N