COBOL 编程规范新手必备.docx

《COBOL 编程规范新手必备.docx》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、COBOL编程规范新手必备2.0２００7年9月２７日编者:银河的鱼－1－1.前言1.1目的本书是主要介绍证券系统设计开发中COBOL语言使用规则1.2适用范围及前提条件(1)适用范围证券系统设计开发(2)前提条件①OpenTP1＋COBOL／Oracle。②MicroFocusCOBOL、Pro*COBOL。1.3対象者主要针对COBOL编程人员,特别是刚入门者或是初学者.2.使用文字2.1引号COBOL程序中使用双引号。SQL文中使用单引号。2.2空格及tabCOBOL程序和拷贝句中禁止使用全角

2、空格和tab。使用编辑器时应将tab转换成半角空格后保存。－2－3.数据名名、节名、段落名的命名和长度的規定3.1数据名名、节名、段落名和长度3.1.1数据名（包括作業場所節）28位以内的英文、数字、连接符“-”，起容易理解的名字。数据名和长度原则上与DB中的对应项目相同。数据名原则上参考下表起名。No.データの種類集団項目名(01名)項目名備考1存储领域SAVE-任意名SV-任意名2引数PARM-プログラム名-任任意名3常量CONS-ｸﾞﾙｰﾌﾟ名CNS-任意名VALUE句4指示器INDICAT

3、OR-AREAIND-任意名5开关SWITCH-AREASW-任意名1:ON、0:OFF6下标INDEX-AREAI,J,K,…COMP-57计数器COUNTER-AREACTR-任意名COMP-58表TBL-任意名任意名9工作变量WK-ｸﾞﾙｰﾌﾟ名WK-任意名10重定义DEF-ｵﾘｼﾞﾅﾙ名任意名11联接节LNK-任意名任意名12信息MSG-AREAMSG-ﾚﾍﾞﾙ-任意3.1.2节名20位以内的英文、数字、连接符“-”，取半角的容易理解的名字。以英文开始，最后四位以”-RTN”结尾。3.1.

4、3段落名20位以内的英文、数字、连接符“-”，取半角的容易理解的名字以英文开始，最后七位以”SECTION”结尾位于节的出口处的段落，段落名为相应节名的”-RTN”改为”-EXT”。－3－4.列位置の規定4.1共通4.1.1列的有效范围COBOL程序、拷贝句中、不能写在73列之后（包括73列）。4.2标识部（IDENTIFICATIONDIVISION）(1)IDENTIFICATION、PROGRAM-ID、AUTHOR、DATE-WRITTEN、DATE-COMPILED从第8列开始书写。(2

5、)DIVISION从31列开始书写。(3)程序名、作者名、作成日从23列开始书写。(4)标识部的例子----+----1----+----2----+----3----+--------4----+----5----+----6----+7--IDENTIFICATIONDIVISION.PROGRAM-ID.ABCD1234.AUTHOR.Nomura.…①DATE-WRITTEN.yy-mm-dd.…②DATE-COMPILED.----+----1----+----2----+----3--

6、--+----4----+----5----+----6----+----7--①AUTHOR处指定为「Nomura」。②DATE-WRITTEN处用YY-MM-DD的格式来指定新规作成的日期（每次的修正无须更新日期）－4－4.3环境部（ENVIRONMENTDIVISION）(1)ENVIRONMENT、CONFIGURATION、SOURCE-COMPUTER、OBJECT-COMPUTER、INPUT-OUTPUT、FILE-CONTROL句从第8列开始书写。(2)DIVISION、SECT

7、ION、设备名从31列开始书写。(3)SELECT句从12列开始书写。(4)内部文件名从20列开始书写。----????(5)ASSIGN从31列开始书写。(6)TO句从39列开始书写。(7)文件定义名从43列开始书写。(eg:ASSIGNTOXTP001)(8)(5)以后的句和句、語和語之间空2列。(9)環境部の例子（一般的文件）----+----1----+----2----+----3----+----4----+----5----+----6----+----7--************

8、*******************************************************環境部******************************************************************ENVIRONMENTDIVISION.INPUT-OUTPUTSECTION.FILE-CONTROL.SELECTXTP001ASSIGNTOXTP001SELECTXTP002ASSIGNTOXTP002----+----1----