COBOL - типы данных

Advertisements

Previous Page
Next Page  

Отдел обработки данных используется для определения переменных, используемых в программе. Для описания данных COBOL, необходимо понять на следующих условиях:

  • Имя данных

  • Номер уровня

  • Предложение изображения

  • Value

01            TOTAL-STUDENTS            PIC9(5)            VALUE '125'.
|                    |                    |                    |
|                    |                    |                    |
|                    |                    |                    | 
Level Number     Data Name           Picture Clause       Value Clause

Имя данных

Данные имена должны быть определены в отдел обработки данных перед их использованием в процедуре. Они должны иметь имя, определенное пользователем; зарезервированных слов не может быть использован. Данные имена дает ссылку на память места, где фактические данные сохраняются. Они могут быть начальной или типа группы.

Пример

В следующем примере показана допустимые и недопустимые данные имена:

Valid:
WS-NAME
TOTAL-STUDENTS
A100
100B

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

Номер уровня

Номер уровня используется для указания уровня данных в записи. Они используются для проведения различий между элементарная пунктов и группы пунктов повестки дня. Начальные элементы могут быть сгруппированы вместе для создания группы пунктов повестки дня.

Номер уровня Описание
01 Описание записи запись
02 49 Группы и начальных пунктов
66 Переименовать положения пунктов
77 Элементов, которые не могут быть разделены на
88 Имя условия вступления

  • Элементарные предметы не могут быть разделены. Номер уровня, имя данных, изображения оговорки, а Value (дополнительно) используются для описания начального пункта.

  • Группа элементов состоят из одного или нескольких элементарных вопросов. Номер уровня, данные имя и Value (дополнительно) используются для описания группы. Группа номер уровня всегда 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

Предложение изображения

Предложение изображения используется для определения следующих пунктов:

  • Тип данных может быть числовое значение, букв, или буквенно-цифровой. числового типа включает в себя только цифры от 0 до 9. букв типа состоит из буквы от A до Z и пробелов. Буквенно-цифровой клавиатуры введите состоит из цифр, букв, и специальных символов.

  • Знак может быть использован с числовых данных. Это может быть либо + или .

  • Десятичная точка может использоваться с числовых данных. Взял на себя позиции - позиции десятичной точки и не включены в данные.

  • Длина определяет число байт для элемента данных.

Символы, используемые в изображении положение:

Условное обозначение Описание
9 Числовое значение
A Букв
X Буквенно-цифровой
V Неявные десятичных
S Подписать
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 'ABCDEF'.
   01 WS-ID PIC X(5) VALUE 'A121$'.

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.

JCL для выполнения выше COBOL программы:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

При компиляции и выполнения этой программы, она производит следующие результаты:

WS-NUM1 : +000.00
WS-NUM2 : .000000
WS-NUM3 : -123.45
WS-NAME : ABCDEF
WS-ID : A121$

Value

Value - это дополнительное положение, которое используется для инициализации элементов данных. Эти значения могут быть числовые константы, буквенно-цифровые буквальное, или изобразительные постоянной. Он может использоваться как с группой, и элементарных вопросов.

Пример

В следующем примере показано, как использовать value:

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NUM1 PIC 99V9 VALUE IS 3.5.
   01 WS-NAME PIC A(6) VALUE 'ABCD'.
   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.

JCL для выполнения выше COBOL программы:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO

При компиляции и выполнения этой программы, она производит следующие результаты:

WS-NUM1 : 03.5
WS-NAME : ABCD
WS-ID   : 00
Advertisements