cobol基本动词

于 2023-11-22 22:25:07 发布
阅读量370 收藏
点赞数
分类专栏： cobol 文章标签： cobol cobol基本动词
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/javaxiaoanran/article/details/134563704
版权

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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUM3     : " WS-NUM3
   DISPLAY "WS-NUM4     : " WS-NUM4
   DISPLAY "WS-ADDRESS  : " WS-ADDRESS
   DISPLAY "WS-ADDRESS1 : " WS-ADDRESS1

STOP RUN.

合法移动

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

add（加法）

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

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

ADD A B TO C D

ADD A B C TO D GIVING E

ADD 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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUM3     : " WS-NUM3
   DISPLAY "WS-NUM4     : " WS-NUM4
   DISPLAY "WS-NUMA     : " WS-NUMA
   DISPLAY "WS-NUMB     : " WS-NUMB
   DISPLAY "WS-NUMC     : " WS-NUMC
   DISPLAY "WS-NUMD     : " WS-NUMD
   DISPLAY "WS-NUME     : " WS-NUME

STOP RUN.

subtract（减法）

用于减法运算

语法

SUBTRACT A B FROM C D

SUBTRACT A B C FROM D GIVING E

SUBTRACT 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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUM3     : " WS-NUM3
   DISPLAY "WS-NUM4     : " WS-NUM4
   DISPLAY "WS-NUMA     : " WS-NUMA
   DISPLAY "WS-NUMB     : " WS-NUMB
   DISPLAY "WS-NUMC     : " WS-NUMC
   DISPLAY "WS-NUMD     : " WS-NUMD
   DISPLAY "WS-NUME     : " WS-NUME

STOP RUN.

multiply（乘法）

用于乘法运算

语法

MULTIPLY A BY B C

MULTIPLY 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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUM3     : " WS-NUM3
   DISPLAY "WS-NUMA     : " WS-NUMA
   DISPLAY "WS-NUMB     : " WS-NUMB
   DISPLAY "WS-NUMC     : " WS-NUMC
   
STOP RUN.

divide（除法）

用于除法运算

语法

DIVIDE A INTO B

DIVIDE 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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUMA     : " WS-NUMA
   DISPLAY "WS-NUMB     : " WS-NUMB
   DISPLAY "WS-NUMC     : " WS-NUMC
   DISPLAY "WS-REM      : " WS-REM
   
STOP 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-NUM1
   DISPLAY "WS-NUM2     : " WS-NUM2
   DISPLAY "WS-NUM3     : " WS-NUM3
   DISPLAY "WS-NUMA     : " WS-NUMA
   DISPLAY "WS-NUMB     : " WS-NUMB
   DISPLAY "WS-NUMC     : " WS-NUMC

STOP RUN.

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

java小安然
关注
专栏目录
COBOL算术运算语句
c5dfg25的博客
12-20 4096
COBOL算术运算语句 加法语句（ADD语句） 一般格式： （1）ADD A TO B ​ 表示数据项A的值和数据项B 的值相加，结果置于B中，如果A原值为10.B为100，此语句执行前后的数值变化为) （2）ADD A，B GIVING C ​ 表示将A和B相加，结果放到第三个数据项C中 注意： ​ ADD A,B TO C --------此语句中C不参加运算 ​ ADD A,B GIVING C ---------此语句中C参加运算 （
MainFrame小结(20110812)--MOVE ALL与INITIALIZE（cobol)
weixin_30763455的博客
08-13 785
MOVEALL 上次说到MOVE字符类型（alphanumeric)是按左对齐原则的，但如果我想不断重复填充相同的字符呢？那就要用MOVEALL了，比如MOVEALLSPACETOWS-A，那么WS-A空间将会全被填充为空格。 MOVEALL有几个特性： MOVEALL后面的常量只能是一个字符。 MOVEALL后面跟的只能是COBOL定义的常量（如SPACE，ZERO...
cobol学习之六数值的运算
指尖残雪
11-15 5184
首先来一段代码： 000010 IDENTIFICATION DIVISION. 000011 PROGRAM-ID. LESSON01-1. 000020 ENVIRONMENT DIVISION. 000030 DATA DIVISION. 000040 WORKING-STORAGE SECTION. 000050 77 N PIC 99. 000
基本运算
qq395740774的专栏
05-17 647
COBOL的三大基本运算：算数运算，关系运算，逻辑运算。 算数运算包括加减乘除及以上的复合运算。   运算结果溢出：当结果数据长度超过保存结果数据的变量所定义的长度。(on size error) ROUNDED：四舍五入。 ADD：加。  1.使用ADD语句完成。  2.直接通过运算符号'+' SUBTRACT：减。  1.使用SUBTRACT语句完成。  2.直接通过运算符
Cobol学习笔记（整理中80%）
最新发布
m0_65939803的博客
09-17 4848
01 A03 AA注释：外部文件只有数据结构，没有部节等信息。03 YMD.注释：重定义共享内存地址，一个质变了影响另一个值，不能用在文件节01层，可用在数据单元节01层，层号必须相同，长度相同，重定义子句不能赋初值。
C5-COBOL 基本动词
adozoo
09-22 608
COBOL 基本动词 COBOL动词用于过程部中的数据处理。每个语句总是以COBOL动词开头。有几种具有不同动作类型的COBOL动词。 Input（输入）/Output（输出）动词 输入/输出动词用于从用户获取数据，并显示COBOL程序的输出。下面两个动词用于这一过程： Accept动词 Accept 动词用于从操作系统或直接从用户获取诸如日期，时间和天等数据。如果程序从用户接收数据，那么就需要通过JCL传递。在从操作系统获取数据时，FROM选项则如下面例子所示： ACCEPT WS-STUDENT-NAM
cobol语言概述[归类].pdf
10-11
- 句子是COBOL程序的基本逻辑单位，由一个或多个语句组成，以句号加空格结尾。 - 语句通常包括一个动词，如`MOVE`、`READ`、`WRITE`等，有时动词可省略。 - 子句是语句的组成部分，提供特定的功能细节。 4. **源...
COBOL试题答案.pdf
11-18
12. 数学运算：COBOL支持基本的数学运算，如加、减、乘、除等，这些运算通常用于数据处理和计算。 13. 定位和数据转移：文档中提及“MOVE ZERO TO A”和“MOVE SPACE TO A”，这些语句用于数据的初始化或转移。 14...
cobol培训教程 5
05-27
在编写COBOL程序时，理解并熟练运用这些基本的输入输出和算术运算语句是至关重要的。它们构成了COBOL程序的基础，帮助开发者高效地处理和管理数据。通过不断的练习和学习，开发者可以利用COBOL的强大功能构建复杂的...
cobol算术运算
大道至简
05-02 2255
算术运算 算术运算就是常见的四则运算及平方等运算。 四舍五入ROUNDED 使用ROUNDED对运算的第一位小数进行四舍五入运算 DATA DIVISION. WORKING-STORAGE SECTION. 01 NUM1 PIC 99V9. 01 NUM@ PIC 99V9. 01 REAL-RESULT PIC 99.9. 01 RESULT PIC 99. PROCEDURE DIVISION. MOVE 12.3 TO NUM1. MOVE 45.6 TO NUM2. ADD NUM1 TO NU
COBOL基础知识
zenglongx的专栏
05-16 6791
COBOLChapter 1 : cobol概述COBOL 是Common Business Oriented Language 的缩写。它不仅是商业数据处理的理想语， 而且广泛用于数据管理领域，因此COBOL 语言也被称为“用于管理的语言”。一． COBOL 语言的特点         最适于数据处理领域：算数计算量少而逻辑处理量多，输入输出量大，数据间存在着一定的逻辑  关系，
cobol学习之五简单输入成绩的计算
指尖残雪
11-15 2146
代码功能：输入4科成绩，计算平均值，并用小数点形式输出，因为cobol在计算中使用V
cobol_关于COBOL的简短介绍
cuk0051的博客
09-01 973
cobolCOBOL is one of those languages you keep hearing about, one of the remains of the past. COBOL是您不断听到的那些语言之一，也是过去的遗留之一。 Turns out it’s the language that makes the world go around, in particular ...
大型主机（z/OS系统）编译运行第一个COBOL语言hello world(解决编译时返回码为12问题)
qq_39800266的博客
12-06 2625
1、创建一个分区数据集**.COBOL.SOURCE存放COBOL源程序，创建时的参数如下所示： 注意事项：Record format=FB  Record length=80 Data set name type=PDS 2、然后在创建的SOURCE数据集中新建一个member存放COBOL的源代码： 注意事项：COBOL代码的每一行都从第8列开始写，每一行结尾和每个标识符都以英文...
COBOL程序，OPEN FILE报 90
秦艳超的专栏
12-12 4264
问题描述： 1，JCL中调用COBOL程序，该COBOL程序会OUTPUT两个文件， 2，JCL中用DD语句指定了一个PDS的两个MEMBER 供程序使用，DISP=SHR,事先只是建立了PDS，无member 3，提交JCL后报打开文件错误，返回码90 问题原因： 需要程序自动建立文件时候，应该使用PDSE，而非PDS 问题解决过程： 90报错码无详细信息，是一个棘手的报错
MOVE-CORRESPONDING
梦笔生花的专栏
11-11 2584
MOVE-CORRESPONDING用于将一个结构中的数据赋予另一个结构中的对应字段，只能存一行数据。 所以使用时应该是如下形式： LOOP AT A. MOVE-CORRESPONDING A TO B. APPEND B. ENDLOOP A. 其中A\B为两个自定义内表，A中只有字段名相同的才可以被赋予B的表头中。
SAP ABAP编程 MOVE-CORRESPONDING将一个结构中的数据赋予另一个结构中
热门推荐
心丨悦 的专栏
09-25 3万+
MOVE-CORRESPONDING用于将一个结构中的数据赋予另一个结构中的对应字段，只能存一行数据。 所以使用时应该是如下形式： TABLES: spfli. DATA: yp_wa LIKE spfli,       yp_tab LIKE TABLE OF spfli. TYPES: BEGIN OF sp,   sel   TYPE c.         INCLUD
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值