《COBOL课件第2章标识部和环境部》由会员分享，可在线阅读，更多相关《COBOL课件第2章标识部和环境部（21页珍藏版）》请在金锄头文库上搜索。
1、COBOL 语言程序设计,COBOL 语言程序设计 第2章标识部和环境部,第2章 标识部和环境部,2.1 标识部概述 2.2 标识部的必写部分 2.3 标识部的任选部分 2.4 环境部概述 2.5 环境部配置节 2.6 环境部输入输出节,2.1 标识部的概述,标识部是COBOL程序的第一部分，用来为程序设定标志，以便识别，每个程序（包括主程序和子程序）都必须有一个名字，必写部分，（PROGRAM-ID. program-name.）系统按名字对程序管理和调用。 标识部还可以包含文档记录信息，用作备忘，选写部分。如：作者，写程序的日期，保密程度等。 标识部下面不设置节，只设置段，部头和段头都从A
2、区开始书写。 书写格式： IDENTIFICATION DIVISION.,2.2 标识部的必写部分,PROGRAM-ID. program-name. 应有意义或按照公司规定的命名规则起名 只能使用字母，数字和连字符 最少一个字母，不能以连字符开头或结尾 最长30个字符（最好8个以内）,2.3 标识部的任选部分,AUTHOR. 作者姓名. INSTALLATION. 计算机设置的场所. DATE-WRITTEN. 源程序编写的日期. DATE-COMPILED. 源程序编译的日期. SECURITY. 保密程度. 例2.1,例2.1,IDENTIFICATION DIVISION. PROG
3、RAM-ID. LAB1. AUTHOR. LGY. INSTALLATION. DJTU-Z900. DATE-WRITTEN. 2008/5/1. DATE-COMPILED. 2008/5/1. SECURITY. IBMUSER TE019 CAN USE THIS PROGRAM.,2.4 环境部概述,环境部用来说明程序运行的软硬件环境，是COBOL程序中唯一与设备相关的部分，将程序中用到的内部文件与外部设备建立起联系 环境部包括两个节:配置节和输入输出节 一般格式： ENVIRONMENT DIVISION. CONFIGURATION SECTION. INPUT-OUTPUT
4、SECTION. 配置节和输入输出节都是可选的，当使用外部文件时必写输入输出节,2.5 环境部配置节,配置节包含三个段 SOURCE-COMPUTER. computer-name. 标识对该COBOL程序进行编译的计算机 OBJECT-COMPUTER. computer-name. 标识运行该COBOL程序的计算机 SPECIAL-NAMES. 用来通知系统把原来规定的设备名或符号改为用户自己指定的名字或符号 CURRENCY SIGN IS $ $是默认货币符号，可使用非数值常量 DECIMAL-POINT IS COMMA 用逗号代替小数点 注1：SOURCE-COMPUTER和OBJ
5、ECT-COMPUTER可以是不同的 计算机，但必须兼容 注2：若主程序中已设置了配置节，则子程序不必再设置,例2.2,IDENTIFICATION DIVISION. PROGRAM-ID. TEST. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. DECIMAL-POINT IS COMMA. DATA DIVISION. WORKING-STORAGE SECTION. 01 A PIC 9(6). PROCEDURE DIVISION. MOVE -123,4 TO A. DISPLAY A=, A. STOP
6、RUN.,环境部的一般形式,2.6 环境部输入输出节,程序中如果用到输入输出文件，就在该节把程序中的内部文件和外部设备联系起来 输入输出节包括两个段 FILE-CONTROL. 文件控制段 I-O-CONTROL. 输入输出控制段 只要用到INPUT-OUTPUT节，就必写FILE-CONTROL段 格式：INPUT-OUTPUT SECTION. （输入输出节） FILE-CONTROL. （文件控制段） SELECT 内部文件名 ASSIGN TO 外部文件名. I-O-CONTROL段指定目标程序运行时多个文件共用一个内存区以节省内存 例2.3,例2.3 文件拷贝,IDENTIFICAT
7、ION DIVISION. PROGRAM-ID. DSCOPY. ENVIRONMENT DIVISION. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT IND1 ASSIGN TO INPUTFILE . SELECT OUTD1 ASSIGN TO OUTPUTFILE.,DATA DIVISION. FILE SECTION. FD IND1 LABEL RECORD IS STANDARD. 01 IND1-DAT PIC X(80). FD OUTD1 LABEL RECORD IS STANDARD. 01 OUTD1-DAT. 02 F
8、ILLER PIC X(80).,PROCEDURE DIVISION. S1. OPEN INPUT IND1 OUTPUT OUTD1. S2. READ IND1 AT END GO TO S99. WRITE OUTD1-DAT FROM IND1-DAT. GO TO S2. S99. CLOSE IND1 OUTD1. STOP RUN.,= compile & link 脚本= /ST077A JOB 1,JHY,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), / NOTIFY=&SYSUID /STEP1 EXEC IGYWCL /COBOL.SYSIN
9、DD DSN=ST077.COBOL.SOURCE(COB1),DISP=SHR /LKED.SYSLMOD DD DSN=SP077.COBOL.LOAD(COB1),DISP=SHR,= RUN 脚本 （用来对文件操作）= /ST077A JOB 1,JHY,CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1), / NOTIFY=&SYSUID /STEP1 EXEC PGM=COB1 /STEPLIB DD DSN=ST077.COBOL.LOAD,DISP=SHR /SYSPRINT DD SYSOUT=* /INPUTFILE DD DSN=ST077.INDATA,
10、DISP=SHR /OUTPUTFILE DD DSN=ST077.OUTDATA,DISP=SHR,说明：SELECT的三种用法 （1） 在SELECT子句的“ASSIGN TO”的后面写上磁盘上实际的文 件名。 Select file1 assign to c:cob.file1.dat （2） 在SELECT子句中只指出外部设备名，在数据部的文件节中 FD描述体中用VALUE OF子句来指出实际文件名。 Select file1 assign to disk. value of file-id “c:cob.file1.dat”.( 数据部的文件节中） （3） 在大型计算机系统，在SEL
11、ECT子句中用该系统指定的逻辑 名作为外部文件名，然后用作业控制语句将该逻辑名与实际的 设备和文件相联系。,例2.4,IDENTIFICATION DIVISION. PROGRAM-ID. FILEWR. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. Z900. OBJECT-COMPUTER. Z900. INPUT-OUTPUT SECTION. FILE-CONTROL. SELECT FILE1 ASSIGN TO CARDIN. DATA DIVISION. FILE SECTION. FD FILE1 LABEL RECORDS ARE STANDARD. 01 FILE-RECORD. 02 T1 PIC A(6). 02 T2 PIC A(3). 02 T3 PIC A(2). 02 T4 PIC A(5). 02 T5 PIC A(64).,PROCEDURE DIVISION. OPEN OUTPUT FILE1. MOVE THIS TO T1. MOVE IS TO T2. MOVE A TO T3. MOVE BOOK TO T4. WRITE FILE-RECORD. CLOSE FILE1. STOP RUN.,
