《cobol基本语法》由会员分享，可在线阅读，更多相关《cobol基本语法（12页珍藏版）》请在金锄头文库上搜索。
1、基本語法一、COBOL基本語法一、cobol的书写格式（每行）1、 前6列为序号区(一般不编辑)2、 第7列为标示列，仅可以写如下几个标示符。a. “” 注释符(注释当前行的代码)b “ 字符串连接符 3、第8列-11列为A区，包括以下内容。 a 部、节名。 b 层号01 4、第12列-72列为B区，过程部的程序必须写在B区中。 5、第72以后部分不能编辑。二、cobol的语法结构 (几大部分)1、 标示部(IDENTIFICATION DIVISION):提供程序的一般性文档说明。2、 环境部(ENVIRONMENT DIVISION): 提供程序外部有关的项目。a. 配置节(CONFIGU
2、RATION SECTION).指定源计算机(SOURCE-COMPUTE).目标计算机(OBJECT-COMPUTE).b. 输入输出节(INPUT-OUTPUT SECTION). 文件的物理路径的定义。 方法二:(过程部中动态指定文件) SELECT FILE-LOG ASSIGN TO SELECT-FILE ORGANIZATION IS LINE SEQUENTIAL. 在数据部定义字符串变量SELECT-FILE,在文件FILE-LOG打开前动态指定文件路径。 3、数据部(DATA DIVISION)。 程序中的变量都在数据部中定义，Cobol中没有全局变量和局部之分。（变量的类
3、型结构参照5.变量类型）a. 文件节(FILE SECTION) 给环境部定义的文件指定一个RECORD变量，读写文件用: FD FILE-LOG. 01 RECORD-LOG PIC X(2000). b. 工作存储节 定义程序中用到的临时变量。a) COBOL变量定义需要加层号(表示层次关系), 层号从01开始 如: 01 I PIC X(10). 组合项 如: 01 WORK-AREA. 05 NUM-1 PIC 9(09). 05 STR-1 PIC X(10). b) 层号依次排列顺序为:01 ,05,10,15,20,30 c. 连接节子程序的参数的定义。 4、 过程部(PROCE
4、DURE DIVISION) 程序的主体:程序的逻辑运算在此操作。a、 每个程序分为四大节(模块), 前处理(初始化变量,设定初始值等) 主处理(程序业务处理部分) 后处理(程序正常结束时的出口) 错误处理(程序异常结束时的出口)b、 对于子程序，PROCEDURE DIVISION 后应列出LINK节中定义的参数。如: PROCEDURE DIVISION USING LINK-INPUT-DATA LINK-OUTPUT-DATA.c、 程序结束。 主程序 STOP RUN. 子程序 GO BACK.5、变量类型COBOL程序的基本变量类型分为两大类字符串型(X)、数值型(9)。a 字符串
5、型 01 STRING-A PIC X(100). 100个字符长的变量，程序可以局部操作一个变量( STRING-A(start: length)如： MOVE ALL “X” TO STRING-A(2:10) (将变量STRING-A第2位开始10长度的内容全赋为”X”字符) b 数值型 种类类型说明备注DISPLAY9(m)无符号整数，每位占用一个字节，显示或输出到文件时，为零的数位显示”0”(1=m =18)例如: 01 I PIC 9(8).变量I占用8个字节。I = 1 时，输出显示时为00000001S9(m)带符号整数，每位占用一个字节，符号位不占位，显示时，为零的数位显示”
6、0”，符号显示在最后，输出到文件时，为零的数位显示”0”，符号丢失。(1=m =18)例如: 01 I PIC 9(8).变量I占用8个字节。I = 1 时，显示时为00000001+输出到文件时为00000001DISPLAY9(m)V9(n)无符号小数(小数点不显示，不占位)每位占用一个字节，显示或输出到文件时，为零的数位显示”0”(1=m + n =18)例如: 01 I PIC 9(4)V9(2).变量I占用6个字节,整数位4位，小数位2位。I = 1.1 时，输出显示时为000110S9(m)V9(n)带符号小数(小数点不显示，不占位)每位占用一个字节，符号位不占位，显示时，为零的数
7、位显示”0”，符号显示在最后，输出到文件时，为零的数位显示”0”，符号丢失。 (1=m + n =18)例如: 01 I PIC 9(4)V9(2).变量I占用6个字节,整数位4位，小数位2位。I = 1.1 时，显示时为000110+输出到文件时为000110Comp,comp-5,comp-39(m) comp-5无符号整数，数据以二进制方式存贮，显示和9(m) 一样，不能出力(1= m =18) S9(m) comp-5有符号整数，数据以二进制方式存贮，显示和S9(m) 类似，只是符号在前面，不能出力，(1= m = 18) 9(m)v9(n) comp-5无符号小数，数据以二进制方式存
8、贮，显示和9(m)v9(n) 一样，不能出力(1= m + n =18) S9(m)v9(n) comp-5有符号整数，数据以二进制方式存贮，显示和S9(m)v9(n) 类似，只是符号在前面，不能出力，(1= m + n = 18) 注： 1、对于出力型数值变量,可以用9代替Z,它们的区别是：结果为零的整数部高位，小数部低位： Z型变量用空格显示，9型变量用零显示2、COBOL语言中数值型变量种类很多，针对不同的要求有不同的数值类型。c、在COBOL变量定义时,可以加入格式字符串字符。d、不同类型变量间赋值。 整数1、 字符串中数值部分可以作为对应长度的DISPLAY型变量给其它各种数值型变量
9、。2、 DISPLAY型变量(包括出力型变量)被赋值时，超出它表示范围的数可以被接受，但截去超出的高位。3、 COMP型变量被赋值时，超出它表示范围的数不能被接受。 小数 1、 DISPLAY型变量(包括出力型变量)被赋值时，超出它表示范围的数可以被接受，但整数部截去超出的高位，小数部截去低位。2、 COMP型变量被赋值时，整数部超出它表示范围的数不能被接受，小数部超出它表示范围的数可以被接受，但小数部截去低位 注: 以上所述赋值变量为任何类型的数值型变量(经过严格测试得出结论)。 e、字符型比较。 字符串比较时，系统自动截去尾部空格（如 “a “ = “a” ）。 数字的数值形式和数字字符形
10、式相等（如 “1234567890” = 1234567890） 综合以上两点, 有 “12 “ = 12二、 基本语法:1、赋值语句MOVE。 a、 将一个变量赋给另个变量 move a to b. b、将一个变量同时赋给另外两个变量。 Move a to b c . c、将一个变量全部赋为某个字符 move all “x” to a. d、对于赋值溢出，截取的方式为. 字符型变量截去左边的溢出部分。 数值型变量截去整数部高位、小数部低位的溢出部分。e、 组和项传送，它们的数据结构 必须相同f、 对于组合项成员的局部引用，应该如下: A-AREA. 05 STR-1 PIC X(10). 0
11、5 STR-2 PIC X(10). B-AREA. 05 STR-1 PIC X(20). 05 STR-2 PIC X(10).MOVE STR-1 OF A-AREA(1:4) TO STR-1 OF B-AREA(1:4).3、 四则运算原则上,四则运算不用助记符语句,但对于简单运算( +,-),可采用助记符语句。a、 加法( ADD 1 TO NUM-1)b、 减法(SUBTRACT 1 FROM NUM-1)c、 其它所有运算均采用COMPUTE 语句COMPUTE NUM-1 = NUM-2 + NUM3 * 10 运算符如下: + 加- 减* 乘/ 除* 指数 在COMPUTE
12、语句中,变量和运算符间至少留有一个空格。4、 重定义语句REDEFINES(数据部中使用) 01 A PIC X(10) VALUE SPACE.01 B REDEFINES A PIC 9(10). 变量A,B使用同一个空间，重定义时，重定义变量必须紧跟着被重定义变量后面，并且在字符串同数值一起重定义时,如果对变量进行初始化，变量会初始化为空格。5、 数组关键词OCCURS OCCURS 整数 TIMES. a.简单数组 01 A OCCURS 10 PIC X(30). b. 组合项数组01 A.05 B OCCURS 10. 10 C PIC X(10). 10 D PIC X(20). 注意：引用数组中某一元素如下 DISPLAY C OF B OF A(1) “”.6、 连结语句STRING STRING A, B, C DELIMITED BY SIZE INTO D . 将字符串A, B, C按它们定义长度连接赋给变量D. STRING A, B, C DELIMITED BY SPACE INTO D . 将字符串A, B, C连接赋给变量D,去掉中间所有的空格. STRING “AAAAAAA” DELIMITED BY SIZE
