cobol基本语法总结

《cobol基本语法总结》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、コボル基本語法コボル基本語法一、COBOL基本語法compla項目使用的Cobol是MicroFocus公司生产的Cobol,采用在HP-UNIX上运行。一、cobol的书写格式（每行）1、前6列为序号区(一般不编辑)2、第7列为标示列，仅可以写如下几个标示符。a.“＊”注释符(注释当前行的代码)b“/“注释符(注释当前行的代码,程序编译时，强制程序清单另起一页,不建议使用)c“－“字符串连接符d“D”DEBUG行标示符(程序为DEBUG模式时，标有该标示符的语句行代码执行，否则和注释行效果一样)3、第8列---1

2、1列为A区，包括以下内容。a部、节名。b层号014、第12列---72列为B区，过程部的程序必须写在B区中。5、第72以后部分不能编辑。二、cobol的语法结构(几大部分)1、标示部(IDENTIFICATIONDIVISION):提供程序的一般性文档说明,本项目只保留程序名(PROGRAM-ID)一项。2、环境部(ENVIRONMENTDIVISION):提供程序外部有关的项目。a.配置节(CONFIGURATIONSECTION)①.指定源计算机(SOURCE-COMPUTE).②.目标计算机(OBJECT-C

3、OMPUTE).③.设置debug模式(SOURCE-COMPUTEH9000VWITHDEBUGGINGMODE)④.指定读环境变量设置.SPECIAL-NAMES.ENVIRONMENT-VALUEISCNS-ENV-PARMENVIRONMENT-NAMEISCNS-ENV-NAME.b.输入输出节(INPUT-OUTPUTSECTION).文件的物理路径的定义。方法一：(写死文件路径)SELECTFILE-LOGASSIGN"/usr3/WSI/commonlog/WSI1101.log"ORGANIZAT

4、IONISLINESEQUENTIAL.方法二:(过程部中动态指定文件)SELECTFILE-LOGASSIGNTOSELECT-FILEORGANIZATIONISLINESEQUENTIAL.在数据部定义字符串变量SELECT-FILE,在文件FILE-LOG打开前动态指定文件路径。方法三:(环境变量中动态指定文件)19コボル基本語法SELECTFILE-LOGASSIGNTOEXTERNALEXTFILELOGORGANIZATIONISLINESEQUENTIAL.在该程序运行前，设置环境变量:setenv

5、dd_EXTFILELOG/usr3/WSI/nco035/lsc/tstlog/WSIXXXX.log3、数据部(DATADIVISION)。程序中的变量都在数据部中定义，Cobol中没有全局变量和局部之分。（变量的类型结构参照5.变量类型）a.文件节(FILESECTION)给环境部定义的文件指定一个RECORD变量，读写文件用:FDFILE-LOG.01RECORD-LOGPICX(2000).b.工作存储节定义程序中用到的临时变量。a)COBOL变量定义需要加层号(表示层次关系),·层号从01开始如:01I

6、PICX(10).·组合项如:01WORK-AREA.05NUM-1PIC9(09).05STR-1PICX(10).b)层号依次排列顺序为:01,05,10,15,20,30·······c.连接节子程序的参数的定义。4、过程部(PROCEDUREDIVISION)程序的主体:程序的逻辑运算在此操作。a、每个程序分为四大节(模块),·前处理(初始化变量,设定初始值等)·主处理(程序业务处理部分)·后处理(程序正常结束时的出口)·错误处理(程序异常结束时的出口)b、对于子程序，PROCEDUREDIVISION后应

7、列出LINK节中定义的参数。如:PROCEDUREDIVISIONUSINGLINK-INPUT-DATALINK-OUTPUT-DATA.c、程序结束。·主程序STOPRUN.·子程序GOBACK.5、变量类型COBOL程序的基本变量类型分为两大类字符串型(X)、数值型(9)。a字符串型01STRING-APICX(100).100个字符长的变量，程序可以局部操作一个变量(STRING-A(start:length)如：MOVEALL“X”TOSTRING-A(2:10)19コボル基本語法(将变量STRING-A

8、第2位开始10长度的内容全赋为”X”字符)b数值型种类类型说明备注DISPLAY9(m)无符号整数，每位占用一个字节，显示或输出到文件时，为零的数位显示”0”(1<=m<=18)例如:01IPIC9(8).变量I占用8个字节。I=1时，输出显示时为00000001S9(m)带符号整数，每位占用一个字节，符号位不占位，显示时，为零的数位显示”0”，符号显示在最