cobol基本动词

2023-11-23 01:45
文章标签 基本 动词 cobol

本文主要是介绍cobol基本动词，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

cobol基本动词

基本动词用于过程部中的数据处理。每个语句总是以cobol动词开头。

input（输入）/output（输出）

输入输出动词用于从用户获取数据。并显示cobol程序的输出。

accept

用于从操作系统或者用户获取数据，例如日期、时间等。如果程序从用户获取数据，需要通过jcl传递，从操作系统获取数据from选项如下：

accept yourname.
accept currdate from system-date.

display

用于显示cobol程序的输出。

例：

display yourname.
display '66666'.

initialize（初始化）

用来初始化组或基本项。数据名为rename的子句不能被初始化。
数字数据项由zeroes代替。
字母数据项或字母数字由spaces代替。
如果包含replacing语句，则数据项可被初始化为给定替换的值。

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NAME PIC A(30) VALUE 'ABCDEF'.01 WS-ID PIC 9(5).01 WS-ADDRESS. 05 WS-HOUSE-NUMBER PIC 9(3).05 WS-COUNTRY PIC X(15).05 WS-PINCODE PIC 9(6) VALUE 123456.PROCEDURE DIVISION.A000-FIRST-PARA.INITIALIZE WS-NAME, WS-ADDRESS.INITIALIZE WS-ID REPLACING NUMERIC DATA BY 12345.DISPLAY "My name is   : "WS-NAME.DISPLAY "My ID is     : "WS-ID.DISPLAY "Address      : "WS-ADDRESS.DISPLAY "House Number : "WS-HOUSE-NUMBER.DISPLAY "Country      : "WS-COUNTRY.DISPLAY "Pincode      : "WS-PINCODE.STOP RUN.

move（移动）

移动动词是用来将数据从源数据复制到目标数据的。
它可以用于基本和组数据项。
对于组数据项，使用MOVE CORRESPONDING/CORR。
在尝试其它选项的时候，MOVE CORR不工作；但是在大型机服务器上工作。
对于从字符串移动数据，则使用MOVE(x:l)，其中x是起始位置，l是长度。
如果目标数据项PIC子句少于源数据项PIC子句，则数据将被截断。
如果目标数据项PIC子句多于源数据项PIC子句，则将添加额外的ZEROS或SAPCES字节。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9).01 WS-NUM2 PIC 9(9).01 WS-NUM3 PIC 9(5).01 WS-NUM4 PIC 9(6).01 WS-ADDRESS. 05 WS-HOUSE-NUMBER PIC 9(3).05 WS-COUNTRY PIC X(5).05 WS-PINCODE PIC 9(6).01 WS-ADDRESS1. 05 WS-HOUSE-NUMBER1 PIC 9(3).05 WS-COUNTRY1 PIC X(5).05 WS-PINCODE1 PIC 9(6).PROCEDURE DIVISION.A000-FIRST-PARA.MOVE 123456789 TO WS-NUM1.MOVE WS-NUM1 TO WS-NUM2 WS-NUM3.MOVE WS-NUM1(3:6) TO WS-NUM4.MOVE 123 TO WS-HOUSE-NUMBER.MOVE 'INDIA' TO WS-COUNTRY.MOVE 112233 TO WS-PINCODE.MOVE WS-ADDRESS TO WS-ADDRESS1.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUM3     : " WS-NUM3DISPLAY "WS-NUM4     : " WS-NUM4DISPLAY "WS-ADDRESS  : " WS-ADDRESSDISPLAY "WS-ADDRESS1 : " WS-ADDRESS1STOP RUN.

合法移动

字母字母数字数字
字母可能可能不可能
字母数字可能可能可能
数字不可能可能可能

add（加法）

加法动词用于两个或多个数字相加，并将结果存储在目标运算对象中。

语法
以下为两个或多个数字相加的语法：

ADD A B TO C DADD A B C TO D GIVING EADD CORR WS-GROUP1 TO WS-GROUP2

在语法句1中，A，B，C相加，结果存储在C（C=A+B+C）。A，B，D相加，结果存储在D（D=A+B+D）。
在语法句2中，A，B，C，D相加，结果存储在E（E=A+B+C+D）。
在语法句3中，WS-GROUP1和WS-GROUP2中的子组项相加，结果存储在WS-GROUP2中。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9) VALUE 10 .01 WS-NUM2 PIC 9(9) VALUE 10.01 WS-NUM3 PIC 9(9) VALUE 10.01 WS-NUM4 PIC 9(9) VALUE 10.01 WS-NUMA PIC 9(9) VALUE 10.01 WS-NUMB PIC 9(9) VALUE 10.01 WS-NUMC PIC 9(9) VALUE 10.01 WS-NUMD PIC 9(9) VALUE 10.01 WS-NUME PIC 9(9) VALUE 10.PROCEDURE DIVISION.ADD WS-NUM1 WS-NUM2 TO WS-NUM3 WS-NUM4.ADD WS-NUMA WS-NUMB WS-NUMC TO WS-NUMD GIVING WS-NUME.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUM3     : " WS-NUM3DISPLAY "WS-NUM4     : " WS-NUM4DISPLAY "WS-NUMA     : " WS-NUMADISPLAY "WS-NUMB     : " WS-NUMBDISPLAY "WS-NUMC     : " WS-NUMCDISPLAY "WS-NUMD     : " WS-NUMDDISPLAY "WS-NUME     : " WS-NUMESTOP RUN.

subtract（减法）

用于减法运算

语法

SUBTRACT A B FROM C DSUBTRACT A B C FROM D GIVING ESUBTRACT CORR WS-GROUP1 TO WS-GROUP2

在语法句1中，A和B相加并从C中减去，结果存储在C（C=C-（A+B））。A和B相加并从D中减去，结果存储在D（D=D-（A+B））。
在语法句2中，A，B，C相加并从D中减去，结果存储在E（E=D-（A+B+C））。
在语法句3中，WS-GROUP1和WS-GROUP2中的子组项相减，结果存储在WS-GROUP2中。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9) VALUE 10 .01 WS-NUM2 PIC 9(9) VALUE 10.01 WS-NUM3 PIC 9(9) VALUE 100.01 WS-NUM4 PIC 9(9) VALUE 100.01 WS-NUMA PIC 9(9) VALUE 10.01 WS-NUMB PIC 9(9) VALUE 10.01 WS-NUMC PIC 9(9) VALUE 10.01 WS-NUMD PIC 9(9) VALUE 100.01 WS-NUME PIC 9(9) VALUE 10.PROCEDURE DIVISION.SUBTRACT WS-NUM1 WS-NUM2 FROM WS-NUM3 WS-NUM4.SUBTRACT WS-NUMA WS-NUMB WS-NUMC FROM WS-NUMD GIVING WS-NUME.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUM3     : " WS-NUM3DISPLAY "WS-NUM4     : " WS-NUM4DISPLAY "WS-NUMA     : " WS-NUMADISPLAY "WS-NUMB     : " WS-NUMBDISPLAY "WS-NUMC     : " WS-NUMCDISPLAY "WS-NUMD     : " WS-NUMDDISPLAY "WS-NUME     : " WS-NUMESTOP RUN.

multiply（乘法）

用于乘法运算

语法

MULTIPLY A BY B CMULTIPLY A BY B GIVING E

在语法句1中，A和B相乘，结果存储在B（B=AB）。A和C相乘，结果存储在C（C=AC）。
在语法句2中，A和B相乘，结果存储在E（E=A*B）。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9) VALUE 10 .01 WS-NUM2 PIC 9(9) VALUE 10.01 WS-NUM3 PIC 9(9) VALUE 10.01 WS-NUMA PIC 9(9) VALUE 10.01 WS-NUMB PIC 9(9) VALUE 10.01 WS-NUMC PIC 9(9) VALUE 10.PROCEDURE DIVISION.MULTIPLY WS-NUM1 BY WS-NUM2 WS-NUM3.MULTIPLY WS-NUMA BY WS-NUMB GIVING WS-NUMC.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUM3     : " WS-NUM3DISPLAY "WS-NUMA     : " WS-NUMADISPLAY "WS-NUMB     : " WS-NUMBDISPLAY "WS-NUMC     : " WS-NUMCSTOP RUN.

divide（除法）

用于除法运算

语法

DIVIDE A INTO BDIVIDE A BY B GIVING C REMAINDER R

在语法句1中，B除以A，结果存储在B（B=B/A）。
在语法句2中，A除以B，结果存储在C（C=A/B），余数存储在R。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9) VALUE 5.01 WS-NUM2 PIC 9(9) VALUE 250.01 WS-NUMA PIC 9(9) VALUE 100.01 WS-NUMB PIC 9(9) VALUE 15.01 WS-NUMC PIC 9(9).01 WS-REM PIC 9(9). PROCEDURE DIVISION.DIVIDE WS-NUM1 INTO WS-NUM2.DIVIDE WS-NUMA BY WS-NUMB GIVING WS-NUMC REMAINDER WS-REM.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUMA     : " WS-NUMADISPLAY "WS-NUMB     : " WS-NUMBDISPLAY "WS-NUMC     : " WS-NUMCDISPLAY "WS-REM      : " WS-REMSTOP RUN.

compute（计算）

用于在cobol中写入算术表达式，替代加减乘除。

例：

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 9(9) VALUE 10 .01 WS-NUM2 PIC 9(9) VALUE 10.01 WS-NUM3 PIC 9(9) VALUE 10.01 WS-NUMA PIC 9(9) VALUE 50.01 WS-NUMB PIC 9(9) VALUE 10.01 WS-NUMC PIC 9(9).PROCEDURE DIVISION.COMPUTE WS-NUMC= (WS-NUM1 * WS-NUM2) - (WS-NUMA / WS-NUMB) + WS-NUM3.DISPLAY "WS-NUM1     : " WS-NUM1DISPLAY "WS-NUM2     : " WS-NUM2DISPLAY "WS-NUM3     : " WS-NUM3DISPLAY "WS-NUMA     : " WS-NUMADISPLAY "WS-NUMB     : " WS-NUMBDISPLAY "WS-NUMC     : " WS-NUMCSTOP RUN.

注：本系列文章参考下面网站
参考地址

这篇关于cobol基本动词的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！


http://www.chinasem.cn/article/414439。

相关文章

基本知识点

基本知识点

1、c++的输入加上ios::sync_with_stdio(false);  等价于 c的输入，读取速度会加快（但是在字符串的题里面和容易出现问题） 2、lower_bound()和upper_bound() iterator lower_bound( const key_type &key ): 返回一个迭代器，指向键值>= key的第一个元素。 iterator upper_bou
阅读更多...
【IPV6从入门到起飞】5-1 IPV6+Home Assistant(搭建基本环境)

【IPV6从入门到起飞】5-1 IPV6+Home Assistant(搭建基本环境)

【IPV6从入门到起飞】5-1 IPV6+Home Assistant #搭建基本环境 1 背景2 docker下载 hass3 创建容器4 浏览器访问 hass5 手机APP远程访问hass6 更多玩法 1 背景 既然电脑可以IPV6入站，手机流量可以访问IPV6网络的服务，为什么不在电脑搭建Home Assistant（hass），来控制你的设备呢？@智能家居 @万物互联
阅读更多...
C 语言的基本数据类型

C 语言的基本数据类型

C 语言的基本数据类型 注：本文面向 C 语言初学者，如果你是熟手，那就不用看了。 有人问我，char、short、int、long、float、double 等这些关键字到底是什么意思，如果说他们是数据类型的话，那么为啥有这么多数据类型呢？ 如果写了一句： int a; 那么执行的时候在内存中会有什么变化呢？ 橡皮泥大家都玩过吧，一般你买橡皮泥的时候，店家会赠送一些模板。 上
阅读更多...
FreeRTOS-基本介绍和移植STM32

FreeRTOS-基本介绍和移植STM32

FreeRTOS-基本介绍和STM32移植 一、裸机开发和操作系统开发介绍二、任务调度和任务状态介绍2.1 任务调度2.1.1 抢占式调度2.1.2 时间片调度 2.2 任务状态 三、FreeRTOS源码和移植STM323.1 FreeRTOS源码3.2 FreeRTOS移植STM323.2.1 代码移植3.2.2 时钟中断配置 一、裸机开发和操作系统开发介绍 裸机：前后台系
阅读更多...
Java 多线程的基本方式

Java 多线程的基本方式

Java 多线程的基本方式 基础实现两种方式： 通过实现Callable 接口方式（可得到返回值)：
阅读更多...
Java基础回顾系列-第一天-基本语法

Java基础回顾系列-第一天-基本语法

基本语法 Java基础回顾系列-第一天-基本语法基础常识人机交互方式常用的DOS命令什么是计算机语言(编程语言) Java语言简介Java程序运行机制Java虚拟机（Java Virtual Machine）垃圾收集机制（Garbage Collection） Java语言的特点面向对象健壮性跨平台性 编写第一个Java程序什么是JDK, JRE下载及安装 JDK配置环境变量 pathHe
阅读更多...
Gradle的基本使用

Gradle的基本使用

新建一个项目后，在项目文件夹下创建build.gradle文件,并加入内容：       apply plugin: 'eclipse'。    然后在终端运行gradle eclipse即可构建eclipse IDE的开发环境。    gradle默认值：gradle有些目录是有默认值存在,建议项目的配置，承袭了maven的风格，如：         java的源码目录：src/mai
阅读更多...
QML入门之基本元素

QML入门之基本元素

元素分为可视元素与非可视元素，可能元素例如Rectangle、Button等。非可视元素如Timer（定时器）、MouseArea（鼠标区域）等。非可视元素一般用于操作可视元素。 基础元素 Item Item（基础元素对象）是所有可视元素的基础对象，它们都继承自Item。可是元素存在以下共有属性。 Group（分组）Properties（属性）Geometry（几何属性）x
阅读更多...
2021-8-14 react笔记-2 创建组件 基本用法

2021-8-14 react笔记-2 创建组件 基本用法

1、目录解析 public中的index.html为入口文件 src目录中文件很乱，先整理文件夹。 新建components 放组件 新建assets放资源   ->/images      ->/css 把乱的文件放进去  修改App.js 根组件和index.js入口文件中的引入路径 2、新建组件 在components文件夹中新建[Name].js文件 //组件名首字母大写
阅读更多...
ExpandableListView的基本用法

ExpandableListView的基本用法

QQ上的好友列表在Android怎么实现，有一个最简单的方法，那就是ExpandableListView，下面简单介绍一下ExpandableListview的用法。 先看看效果图，没有找到大小合适的图片，所以凑合着看吧。     一、准备工作（界面，和需要的数据）             <? xml   version = "1.0"   encoding =
阅读更多...

Copyright China编程 23002807@qq.com

沪ICP备2023033072号-2