cobol基本语法.doc

基本語法一、COBOL基本語法一、cobol的书写格式(每行)前6列为序号区(一般不编辑)第7列为标示列,仅可以写如下几个标示符。a.“*”注释符(注释当前行的代码)b“-“字符串连接符3、第8列---11列为A区,包括以下内容。a部、节名。b层号014、第12列---72列为B区,过程部的程序必须写在B区中。5、第72以后部分不能编辑。二、cobol的语法结构(几大部分)标示部(IDENTIFICATIONDIVISION):提供程序的一般性文档说明。环境部(ENVIRONMENTDIVISION):提供程序外部有关的项目。配置节(CONFIGURATIONSECTION)①.指定源计算机(PUTE).②.目标计算机(PUTE).(INPUT-OUTPUTSECTION).文件的物理路径的定义。方法二:(过程部中动态指定文件)SELECTFILE-LOGASSIGNTOSELECT--FILE,在文件FILE-LOG打开前动态指定文件路径。3、数据部(DATADIVISION)。程序中的变量都在数据部中定义,Cobol中没有全局变量和局部之分。()(FILESECTION)给环境部定义的文件指定一个RECORD变量,读写文件用:FDFILE--LOGPICX(2000).。a)COBOL变量定义需要加层号(表示层次关系),·层号从01开始如:01IPICX(10).·组合项如:01WORK--1PIC9(09).05STR-1PICX(10).b)层号依次排列顺序为:01,05,10,15,20,30·······连接节子程序的参数的定义。4、过程部(PROCEDUREDIVISION)程序的主体:程序的逻辑运算在此操作。每个程序分为四大节(模块),·前处理(初始化变量,设定初始值等)·主处理(程序业务处理部分)·后处理(程序正常结束时的出口)·错误处理(程序异常结束时的出口)对于子程序,PROCEDUREDIVISION后应列出LINK节中定义的参数。如:PROCEDUREDIVISIONUSINGLINK-INPUT-DATALINK-OUTPUT-。·主程序STOPRUN.·、变量类型COBOL程序的基本变量类型分为两大类字符串型(X)、数值型(9)。a字符串型01STRING-APICX(100).100个字符长的变量,程序可以局部操作一个变量(STRING-A(start:length)如:MOVEALL“X”TOSTRING-A(2:10)(将变量STRING-A第2位开始10长度的内容全赋为”X”字符)b数值型种类类型说明备注DISPLAY9(m)无符号整数,每位占用一个字节,显示或输出到文件时,为零的数位显示”0”(1<=m<=18)例如:01IPIC9(8).变量I占用8个字节。I=1时,输出显示时为00000001S9(m)带符号整数,每位占用一个字节,符号位不占位,显示时,为零的数位显示”0”,符号显示在最后,输出到文件时,为零的数位显示”0”,符号丢失。(1<=m<=18)例如:01IPIC9(8).变量I占用8个字节。I=1时,显示时为00000001+输出到文件时为00000001DISPLAY9(m)V9(n)无符号小数(小数点不显示,不占位)每位占用一个字节,显示或输出到文件时,为零的数位显示”0”(1<=m+n<=18)例如:01IPIC9(4)V9(2).变量I占用6个字节,整数位4位,小数位2位。I=,输出显示时为000110S9(m)V9(n)带符号小数(小数点不显示,不占位)每位占用一个字节,符号位不占位,显示时,为零的数位显示”0”,符号显示在最后,输出到文件时,为零的数位显示”0”,符号丢失。(1<=m+n<=18)例如:01IPIC9(4)V9(2).变量I占用6个字节,整数位4位,小数位2位。I=,显示时为000110+p-p-39(p-5无符号整数,数据以二进制方式存贮,显示和9(m)一样,不能出力(1<=m<=18)S9(p-5有符号整数,数据以二进制方式存贮,显示和S9(m)类似,只是符号在前面,不能出力,(1<=m<=18)9(m)v9(p-5无符号小数,数据以二进制方式存贮,显示和9(m)v9(n)一样,不能出力(1<=m+n<=18)S9(m)v9(p-5有符号整数,数据以二进制方式存贮,显示和S9(m)v9(n)类似,只是符号在前面,不能出力,(1<=m+n<=18)注:1、对于出力型数值