华工cobol实验5

实验五一、实验目的：了解COBOL子程序的编写格式，子程序调用（CALL语句）及编译执行。二、实验内容：在主程序中读取信息文件，并按照一定的格式进行输出，同实验四。调用一个计算三门成绩的平均成绩的子程序，要求按照实验四的规定输出文件。步骤一：编写源代码。主程序格式如下(内容同实验四)：IDENTIFICATIONDIVISION.（标识部）PROGRAM-ID.MAINA.（主程序名为MAINA）ENVIRONMENTDIVISION.（环境部）XXXXXXDATADIVISION.（数据部）XXXXXXPROCEDUREDIVISION.（过程部）XXXXXXCALL‘SUB1’.（调用子程序B）STOPRUN.子程序格式如下：IDENTIFICATIONDIVISION.PROGRAM-ID.SUB1.DATADIVISION.LINKAGESECTION.XXXXPROCEDUREDIVISIONUSINGXXX.XXXXGOBACK.步骤二：编译链接运行1、先编译子程序//TANGFABJOBACCT#,TANGF,MSGLEVEL=(1,1),NOTIFY=TANGF//STEP1EXECPROC=IGYWCL//COBOL.SYSINDDDSN=TANGF.COBOL.SOURCE(SUB1),DISP=SHR//LKED.SYSLMODDDDSN=TANGF.LOADLIB(SUB1),DISP=SHR2、编译主程序//TANGFABJOBACCT#,TANGF,MSGLEVEL=(1,1),NOTIFY=TANGF//STEPEXECPROC=IGYWCL//COBOL.SYSINDDDSN=,DISP=SHR//LKED.SYSLMODDDDSNAME=,DISP=SHR//LKED.RUNLIBDDDSN=,DISP=SHR//LKED.SYSINDD*INCLUDERUNLIB(XXXXX)