`
hao_zhou
  • 浏览: 17607 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

COBOL......2

阅读更多
赋初值子句(VALUE 子句)
COBOL 中允许直接对工作单元节中数据赋以初值。

只能对工作单元节中的数据项赋初值。不能对文件节中输入输出文件中的数据项赋初值。
如果在组合项的描述体中使用VALUE 子句,初值只能是表意常量或非数值型常量。如:
01 A     VALUE ‘1234’.
   03 A1 PIC 99.
   03 A2 PIC 99.
当用一个带符号的数值作初值时,相应的PIC 子句中应该有S 描述符。
赋初值时应注意类型的一致性。
VALUE 子句给出的值应适合PIC 子句描述的范围,否则会出现截断或产生错误。

显示语句(DISPLAY 语句)
将少量数据从计算机内存中输出到某一指定的外设上,可用DISPLAY 语句。
DISPLAY 语句的一般格式
DISPLAY 标识符1(或者常量) [标识符2(或者常量) ] [UPON 助忆名]
如果没有UPON 可选项,在计算机系统隐含指定的输出设备上显示数据。每执行一个DISPLAY 语句,总是从一个新行开始显示的。多用于调试程序时使用。

传送语句(MOVE 语句)
MOVE 语句用来实现数据的传送,将一个数据从一个内存域送到另一个内存域中。相当于其它高级语言中的赋值语句。传送规则(各种类型数据的特点通过MOVE 语句体现):
   MOVE  A  TO  B. ( A 称为发送项,B 称为接收项。)
说明:
如果接收项和发送项在数据部中描述的类型和长度相同,则按字节一一对应地传送。
如果接收项与发送项长度不相同,而两者都是数值数据项,则按小数点对齐原则处理。如果是整数,则认为小数点在最后一位数字之后。接收项长度大于发送项,则多余位补零,接收项长度小于发送项,则产生截断。
对字母或字符数据的传送,按左对齐原则处理。如接收项长度大于发送项的长度,则多余位置补空格,如接收项长度小于发送项的长度,则从右端截断。
MOVE 语句可以将一初等项内容传送给另一初等项,也可以将一组合项内容传送给一初等项,也可以将一初等项内容传送给一组合项。
发送项是数值型数据,而接收项是编辑数值型数据,则先将发送项中数据
按接收项的描述要求进行编辑,然后再传送。
MOVE A(2:6) TO B。(将变量A 从第二位开始取出6 位传送给变量B)

停止语句(STOP 语句)
当实现了程序预期的要求后,应使程序停止执行。
格式为:STOP RUN
分享到:
评论

相关推荐

    Apress.COBOL.and.Visual.Basic.on.NET.A.Guide.for.the.Reformed.Mainframe.Programmer

    Apress.COBOL.and.Visual.Basic.on.NET.A.Guide.for.the.Reformed.Mainframe.Programmer

    cobol程序高亮显示 emeditor cobol.esy

    emeditor 中 cobol程序高亮显示 cobol.esy

    Java.For.S.390.and.AS.400.COBOL.Programmers.chm

    Java.For.S.390.and.AS.400.COBOL.Programmers.chm

    cobol.rar_cobol

    这份“cobol.rar_cobol”压缩包显然是为学习和理解COBOL编程而准备的资源。 “COBOL的面试题2.txt”可能包含了关于COBOL编程的经典面试问题和解答,这些问题通常涉及到COBOL的基本语法、数据类型、控制结构、文件...

    COBOL.zip_open

    这个"COBOL.zip_open"文件似乎包含了一个使用CLB(可能指的是Cobol Light or Basic)开发的葡萄牙语(BR)学术系统。CLB可能是一个针对初学者或教育环境简化版的COBOL集成开发环境(IDE),旨在提供一个友好的平台来...

    From.COBOL.to.OOP.

    cobol to opp ..

    COBOL.RAR_cobol

    2. 程序结构:COBOL的PROCEDURE DIVISION使用段(Paragraph)和子程序(Subroutine)来组织代码,便于维护和复用。 3. 文件操作:COBOL支持顺序、索引和随机文件访问,可以进行读写、追加和格式化处理。 4. 输入/...

    COBOL.rar_cobol

    2. **数据类型**:COBOL支持多种数据类型,包括数值型(如 PIC 9, PIC S9, PIC N)、字符型(如 PIC X)、日期型(如 PIC 9(8) VARYING)、以及数组和复合数据类型。 3. **文件处理**:COBOL在处理输入/输出(I/O)...

    COBOL.Software.Modernization.184821760

    Chapter 2: Software Modernization: Technical Environment Chapter 3: Status of COBOL Legacy Applications Chapter 4: Service-Oriented Architecture (SOA) Chapter 5: SOA in Action Chapter 6: Model-Driven ...

    COBOL.zip_COBOL PDG_cobol_cobol programming

    2. **数据定义**:COBOL中的数据类型包括数值(NUMERIC)、字符(CHARACTER)、数组(ARRAYS)、文件(FILES)等。数据定义通常在数据段中进行。 3. **控制流**:COBOL提供了IF-ELSE、PERFORM、THROUGH、CASE等控制...

    Editplus cobol语法高亮文件

    2. **Cobol.ctl**: 这个文件是COBOL的语法文件,定义了COBOL语言的语法结构和高亮规则。它告诉Editplus如何识别和突出显示COBOL的语法元素,如关键字(如`IDENTIFICATION`、`DATA`、`PROCEDURE`等)、数据项、注释等...

    COBOL.rar_AS400_cobol

    COBOL,全称是Common Business Oriented Language,是一种古老但仍然广泛应用的编程语言,尤其在企业级系统和IBM AS400(现在被称为IBM iSeries或iSystem)平台上。AS400是一款由IBM推出的集成计算平台,以其稳定性...

    cobol.rar_cobol_cobol大机_cobol大机操作

    cobol大机操作语言的历程,都是本人在学习过程中写的,有疑问可以联系我qq341661392

    JCL.Cobol.DB2.CICS面试题.pdf

    在IT领域,尤其是在大型机(Mainframe)环境中,JCL(Job Control Language)、COBOL、DB2和CICS是核心的技术组件。这些技术在金融、保险和其他大型企业中广泛使用,因此熟悉它们对于求职者至关重要。下面我们将深入...

    COBOL实验指导书

    - **存储源代码的数据集**:格式为`<用户名>.COBOL.SOURCE`,例如`XUYI.COBOL.SOURCE`。 - **存储JCL文件的数据集**:格式为`<用户名>.COBOL.JCL`,例如`XUYI.COBOL.JCL`。 - **存储编译后的目标文件数据集**:...

    大机COBOL.doc

    老外写的相当不错,从创建数据集,到编辑源代码,到提交JOB,非常清楚

    COBOL程序设计实验.doc

    2. 创建ST***.COBOL.LOAD数据集,用于存储编译后的可执行模块。 3. 编写"Hello World"程序,这是许多编程语言学习的起点,旨在输出简单的"Hello World"字符串。 4. 创建编译JCL(Job Control Language)文件ST***....

Global site tag (gtag.js) - Google Analytics