一步步Cobol 400 上手自学入门教程02 - 程序结构
2016-08-12 11:07
447 查看
标识部的格式:
标识部(IDENTIFICATION DIVISION)
用来标识程序名称,记录程序的文档记录住处如作者和日期等。
![](https://oscdn.geek-share.com/Uploads/Images/Content/202001/28/06f7b0f7fa44a364b0854b71fd01f425.png)
代码范例:
IDENTIFICATION DIVISION.
PROGRAM-ID. IDSAMPLE.
AUTHOR. PROGRAMMER NAME.
INSTALLATION. COBOL DEVELOPMENT CENTER.
DATE-WRITTEN. 08/27/88.
DATE-COMPILED. 09/01/88 12:57:53.
SECURITY. NON-CONFIDENTIAL.
环境部的格式:
环境部(ENVIRONMENT DIVISION)
用来描述程序运行和编译的计算机环境,内部数据文件与系统设备的对应关系。
![](https://oscdn.geek-share.com/Uploads/Images/Content/202001/28/ece589f0573f31da978f56fb1da444a1.png)
代码范例
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. Cð1 IS TOP-OF-PAGE.
SOURCE-COMPUTER 定义的是需要编译原代码的机器.OBJECT-COMPUTER是目标计算机
SPECIAL-NAMES的范例:
SPECIAL-NAMES. SYSTEM-CONSOLE IS SYSTM
REQUESTOR IS WORK-STATION
C01 IS NEXT-PAGE
LOCAL-DATA IS LOCAL-DATA-AREA
ATTRIBUTE-DATA IS ATTRB-DATA
SYSTEM-SHUTDOWN IS SHUTDOWN-SWITCH
ON STATUS IS SHUTDOWN-PENDING
UPSI-0 IS UPSI-SWITCH-0
ON STATUS IS U0-ON
OFF STATUS IS U0-OFF
UPSI-1 IS UPSI-SWITCH-1
ON STATUS IS U1-ON
OFF STATUS IS U1-OFF
IBM-ASCII IS STANDARD-1
CURRENCY-SIGN IS "Y".
Environment Division—Input-Output
指定外部存储和输入输出设备,文件类型包含四种文件,database files, device files, DDM files, and save files
标识部(IDENTIFICATION DIVISION)
用来标识程序名称,记录程序的文档记录住处如作者和日期等。
![](https://oscdn.geek-share.com/Uploads/Images/Content/202001/28/06f7b0f7fa44a364b0854b71fd01f425.png)
代码范例:
IDENTIFICATION DIVISION.
PROGRAM-ID. IDSAMPLE.
AUTHOR. PROGRAMMER NAME.
INSTALLATION. COBOL DEVELOPMENT CENTER.
DATE-WRITTEN. 08/27/88.
DATE-COMPILED. 09/01/88 12:57:53.
SECURITY. NON-CONFIDENTIAL.
环境部的格式:
环境部(ENVIRONMENT DIVISION)
用来描述程序运行和编译的计算机环境,内部数据文件与系统设备的对应关系。
![](https://oscdn.geek-share.com/Uploads/Images/Content/202001/28/ece589f0573f31da978f56fb1da444a1.png)
代码范例
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. IBM-AS400.
OBJECT-COMPUTER. IBM-AS400.
SPECIAL-NAMES. Cð1 IS TOP-OF-PAGE.
SOURCE-COMPUTER 定义的是需要编译原代码的机器.OBJECT-COMPUTER是目标计算机
SPECIAL-NAMES的范例:
SPECIAL-NAMES. SYSTEM-CONSOLE IS SYSTM
REQUESTOR IS WORK-STATION
C01 IS NEXT-PAGE
LOCAL-DATA IS LOCAL-DATA-AREA
ATTRIBUTE-DATA IS ATTRB-DATA
SYSTEM-SHUTDOWN IS SHUTDOWN-SWITCH
ON STATUS IS SHUTDOWN-PENDING
UPSI-0 IS UPSI-SWITCH-0
ON STATUS IS U0-ON
OFF STATUS IS U0-OFF
UPSI-1 IS UPSI-SWITCH-1
ON STATUS IS U1-ON
OFF STATUS IS U1-OFF
IBM-ASCII IS STANDARD-1
CURRENCY-SIGN IS "Y".
Environment Division—Input-Output
指定外部存储和输入输出设备,文件类型包含四种文件,database files, device files, DDM files, and save files
相关文章推荐
- 一步步Cobol 400 上手自学入门教程02 - 程序结构
- 一步步Cobol 400 上手自学入门教程03 - 数据部
- 一步步Cobol 400上手自学入门教程06 - 子程序调用
- 一步步Cobol 400 上手自学入门教程01 - 基础概念
- 一步步Cobol 400上手自学入门教程06 - 子程序调用
- 一步步Cobol 400 上手自学入门教程03 - 数据部
- 一步步Cobol 400上手自学入门教程04 - 过程部
- 一步步Cobol 400上手自学入门教程04 - 过程部
- 一步步Cobol 400上手自学入门教程05 - 表
- 史上最口语化Arduino入门教程——1.1Arduino的程序结构
- 循环控制结构程序02 - 零基础入门学习C语言17
- 循环控制结构程序02 - 零基础入门学习C语言17
- COBOL 程序的结构
- Win32汇编教程二 Win32汇编程序的结构和语法
- ASP小偷(远程数据获取)程序入门教程
- ASP小偷(远程数据获取)程序入门教程
- ASP小偷(远程数据获取)程序的入门教程
- 一步步Nokia Series60开发入门教程2.0
- Multi-Tier结构程序开发基础教程 (一)
- Div+CSS布局入门教程--写入整体层结构与CSS