COBOL-数据类型数据类型|COBOL

本文概述

等级编号
资料名称
图片条款
价值条款

众所周知, 数据类型用于定义程序中使用的变量的类型。
在COBOL中, 数据划分定义了程序中使用的变量。让我们看看以下术语。这些术语用于描述COBOL中的数据。

资料名称
等级编号
图片条款
价值条款

文章图片
等级编号级别编号定义了可以在记录中定义数据的位置或级别。

等级编号	描述
01	记录描述输入
02至49	组和基本项目
66	重命名条款项
77	无法细分的项目
88	条件名称输入

基本项目
基本项目是不可分割的项目。基本项目包含级别编号, 图片子句, 数据名称和值子句(可选)。
组项目
它是一个或多个基本项目的集合。组项目包含一个级别号, 数据名称和值子句(可选)。组项目的级别编号始终为01。
例子：

DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NAMEPIC X(25).---> ELEMENTARY ITEM 01 WS-CLASSPIC 9(2)VALUE'10'.---> ELEMENTARY ITEM01 WS-ADDRESS.---> GROUP ITEM05 WS-HOUSE-NUMBERPIC 9(3).---> ELEMENTARY ITEM05 WS-STREETPIC X(15).---> ELEMENTARY ITEM05 WS-CITYPIC X(15).---> ELEMENTARY ITEM05 WS-COUNTRYPIC X(15)VALUE 'INDIA'.---> ELEMENTARY ITEM

资料名称在数据划分部分中, 必须先指定数据名称, 然后才能在过程划分中使用它们。
数据名称必须具有用户指定的名称；保留字不能使用。数据名称是指存储实际数据的存储位置。可以有基本项目或组项目。
例子：

Valid:WS-NAMETOTAL-STUDENTSA100100BInvalid:MOVE(Reserved Words)COMPUTE(Reserved Words)100(No Alphabet)100+B(+ is not allowed)

图片条款图片条款定义了以下项目：
数据类型：它可以是数字, 字母数字或字母等任何类型。

数据类型	描述
数字		0至9
字母顺序		从A到Z / a-z
字母数字		AZ / A-Z / 0-9

符号：对于数字数据, 可以使用。它可以是-或+。
小数点位置：可以使用数字数据。假定的小数点使十进制值可以存储句点或点(。)。
长度：长度用于描述数据项将使用的字节数。

符号	描述
9	数字。数值数据类型的最大长度为18。
一个	按字母顺序。字母数据类型的最大长度为255。
X	字母数字字母数字数据类型的最大长度为255。
小号	标志
P	假定十进制

例子：
让我们看一个显示PIC子句的示例：

IDENTIFICATION DIVISION.PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC S9(3)V9(2).01 WS-NUM2 PIC PPP999.01 WS-NUM3 PIC S9(3)V9(2) VALUE -123.45.01 WS-NAME PIC A(6) VALUE 'Nikita'.01 WS-ID PIC X(5) VALUE 'N001'.PROCEDURE DIVISION.DISPLAY "WS-NUM1 : "WS-NUM1.DISPLAY "WS-NUM2 : "WS-NUM2.DISPLAY "WS-NUM3 : "WS-NUM3.DISPLAY "WS-NAME : "WS-NAME.DISPLAY "WS-ID : "WS-ID.STOP RUN.

【COBOL-数据类型】输出如下：

文章图片
价值条款 value子句是用于初始化数据对象的可选子句。这些值可以是数字文字, 图形常量或字母数字文字。 value子句可以与基本项目以及组项目一起使用。
例子：
让我们看一下VALUE子句的示例：

IDENTIFICATION DIVISION.PROGRAM-ID. HELLO.DATA DIVISION.WORKING-STORAGE SECTION.01 WS-NUM1 PIC 99V9 VALUE IS 2.4.01 WS-NAME PIC A(6) VALUE 'JTP'.01 WS-ID PIC 99 VALUE ZERO.PROCEDURE DIVISION.DISPLAY "WS-NUM1 : "WS-NUM1.DISPLAY "WS-NAME : "WS-NAME.DISPLAY "WS-ID: "WS-ID.STOP RUN.

输出如下：