惯性聚合 高效追踪和阅读你感兴趣的博客、新闻、科技资讯
阅读原文 在惯性聚合中打开

推荐订阅源

WordPress大学
WordPress大学
V
Visual Studio Blog
P
Privacy International News Feed
月光博客
月光博客
Threat Intelligence Blog | Flashpoint
Threat Intelligence Blog | Flashpoint
L
Lohrmann on Cybersecurity
N
News and Events Feed by Topic
K
KPMG report finds enterprise disconnect between AI and its ROI | CIO
Apple Machine Learning Research
Apple Machine Learning Research
阮一峰的网络日志
阮一峰的网络日志
Webroot Blog
Webroot Blog
T
Threatpost
宝玉的分享
宝玉的分享
The Last Watchdog
The Last Watchdog
小众软件
小众软件
L
LINUX DO - 最新话题
C
Cisco Blogs
T
Troy Hunt's Blog
Schneier on Security
Schneier on Security
酷 壳 – CoolShell
酷 壳 – CoolShell
www.infosecurity-magazine.com
www.infosecurity-magazine.com
雷峰网
雷峰网
G
GRAHAM CLULEY
有赞技术团队
有赞技术团队
Know Your Adversary
Know Your Adversary
博客园 - 叶小钗
罗磊的独立博客
V
V2EX
博客园 - Franky
P
Proofpoint News Feed
SecWiki News
SecWiki News
腾讯CDC
cs.CL updates on arXiv.org
cs.CL updates on arXiv.org
Jina AI
Jina AI
博客园 - 三生石上(FineUI控件)
S
Secure Thoughts
钛媒体:引领未来商业与生活新知
钛媒体:引领未来商业与生活新知
Google DeepMind News
Google DeepMind News
Attack and Defense Labs
Attack and Defense Labs
人人都是产品经理
人人都是产品经理
The Cloudflare Blog
PCI Perspectives
PCI Perspectives
V2EX - 技术
V2EX - 技术
Google DeepMind News
Google DeepMind News
Last Week in AI
Last Week in AI
aimingoo的专栏
aimingoo的专栏
Cisco Talos Blog
Cisco Talos Blog
N
News and Events Feed by Topic
让小产品的独立变现更简单 - ezindie.com
让小产品的独立变现更简单 - ezindie.com
S
SegmentFault 最新的问题

博客园 - 秒针

简单常用日语汇总 IBM:员工职业发展计划 向最佳雇主学什么? - 秒针 - 博客园 专访IBM HR规划经理张榕 探求IBM招聘经 IBM的用人6诀:争、选、育、用、留、舍 贴个有关IBM招聘的地址! 获取影响行数和ID的存储过程 修正过的通用分页存储过程 - 秒针 - 博客园 真险! cobol数组操作 COBOL语言数据类型转换方法 写好软件的75条 cobol语法 3.14@深圳。。。 SUSE10真的很不错! haha,SUSE10 is installed in my PC! 搞了一天的suse还没没装好! 英语面试〔转〕 彻底放弃了一直钟爱的紫光输入法 第一次面试被BS掉了!
COBOL程序格式
秒针 · 2006-03-29 · via 博客园 - 秒针

cobol源程序的格式如下:
     每行开头有6个字符的序号区。可以输入000010,000020等表示行,也可以不输。
     序号区后面是一个字符(第7位)的指示符区,如第一行所示。可以用*和/表示注释,_表示续行,D表示调试。
     指示符区后面是4个字符(8~11位)的A区。可以放入部,节,段标题,段名,层指示符和层号01与77,
            关键字DECLARATIVES和END DECLARATIVES,程序结束标题。
     A区后面(12位以后)是语句体,称为B区。过程部的语句必须从B区开始。B区宽度通常为72或80个字符。
            本例是70个字符。
     空行的每个区都是空格

标识部(2~4行),PROGRAM-ID段包含程序名,是每个程序都必须的。AUTHOR等其他段是可有可无的。
          
环境部(5~15行),提供与程序外部有关的项目,具体地说,就是列出程序所用的文件。如果不需要可以省略。
          环境部有配置节(6~10行)和输入输出节(11~15行)。
          第7行表示编译程序的计算机。如果指定WITH DEBUGGING MODE就编译调试行。
          第8行表示程序运行的计算机。
          第9,10行包含一组指定输出样式。这里是标准输出,可以自定义。
          输入输出节只用于文件。
          第13到15行表示如果程序使用文件,则这个段对每个文件包含一个项目。
                  文件控制项目的格式取决于文  件的描述类型。
          
数据部(16~22行),提供程序变量的存放位置,对不同的数据类型分成不同的节:文件数据(File Section)、
          静态数据(Working-Storage Section)、参数(Linkage Section)、通信(Communication Section)、
          报表(Report Section)。
    文件节(18~21行),每个文件描述中包含文件所含纪录的定义,文件节中的数据或从文件读取,
          或由写文件的程序产生。
    第22行表示工作存储节,这节包含程序所需的临时结果和初始化静态数据的数据。
    参数(Linkage Section)包含调用程序传递的数据(其他语言中称为参数)。
    通信(Communication Section),处理COBOL程序和通信设备之间的消息。
    报表(Report Section),报表节实现COBOL报告编写工具系统所需的数据。
     第20,21行的PIC是PICTURE的缩写,表示定义数据格式。
            X(12)表示12个字符的字符串,9(09)表示9位的整数。
可以将基本项目组成层次结构,称为组数据项或组。
COBOL程序中的数据项的定义从层号开始,01层是最高层,49层是最低层。
          77层项目用于某个组的数据项,如程序中的临时变量。
          66层是为特殊描述符项目保留的,可以更名现有的数据项或组,或以原定义未允许的方式组合。
          88层是对特殊数据项目条件名保留的
          如:
          03 STATE PIC XX.
          88 NEW-ENGLAND VALUES ARE "1","2","3","4","5".
          IF NEW-ENGLAND ... then do something
          
过程部(23~30行),包含构成程序的过程性语句。
          带DECLARATIVES的过程部。有些程序用特殊的USE语句表示遇到特殊条件时要执行的过程,
                 如发生I/O错误时。
                 USE语句组合在一起,放在过程部开头,由关键字DECLARATIVES和END DECLARATIVES限定。
          第24行相当于定义了一个名字叫ACAB030100-PROC()的函数。
          第25,29行定义了标志,可以用GO TO 语句跳转到这个地方,执行下面的语句。
          第26行在屏幕上打印,相当于printf("ACAB030100-START");
          第27行是调用ACAB030100-PROC()函数。
          
cobol程序的要求:必须以英文句号.结束部标题、节标题、段名、项目和语句。
         句号为小数点时,两边都要有数字。