COBOL-数据类型

本文概述

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

众所周知, 数据类型用于定义程序中使用的变量的类型。

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

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

等级编号

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

基本项目

基本项目是不可分割的项目。基本项目包含级别编号, 图片子句, 数据名称和值子句(可选)。

组项目

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

例子：

DATA DIVISION.
           WORKING-STORAGE SECTION.
           01 WS-NAME    PIC X(25).                               ---> ELEMENTARY ITEM 
           01 WS-CLASS   PIC 9(2)  VALUE  '10'.                   ---> ELEMENTARY ITEM

        01 WS-ADDRESS.                                         ---> GROUP ITEM   
           05 WS-HOUSE-NUMBER    PIC 9(3).                     ---> ELEMENTARY ITEM
           05 WS-STREET          PIC X(15).                    ---> ELEMENTARY ITEM
           05 WS-CITY            PIC X(15).                    ---> ELEMENTARY ITEM
           05 WS-COUNTRY         PIC X(15)  VALUE 'INDIA'.     ---> ELEMENTARY ITEM

资料名称

在数据划分部分中, 必须先指定数据名称, 然后才能在过程划分中使用它们。

数据名称必须具有用户指定的名称；保留字不能使用。数据名称是指存储实际数据的存储位置。可以有基本项目或组项目。

例子：

Valid:
   WS-NAME
   TOTAL-STUDENTS
   A100
   100B

Invalid:
   MOVE               (Reserved Words)
   COMPUTE         (Reserved Words)
   100                  (No Alphabet)
   100+B              (+ is not allowed)

图片条款

图片条款定义了以下项目：

数据类型：它可以是数字, 字母数字或字母等任何类型。

符号：对于数字数据, 可以使用。它可以是-或+。

小数点位置：可以使用数字数据。假定的小数点使十进制值可以存储句点或点(。)。

长度：长度用于描述数据项将使用的字节数。

例子：

让我们看一个显示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.

输出如下：

价值条款

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.

输出如下：