COBOL - структура программы


Advertisements

A COBOL структура программы состоит из отделов, как показано на рисунке:

Estructura del programa

Краткое введение этих отделов приводится ниже:

  • Разделы логического подразделения логика программы. Раздел - это коллекция пунктах.

  • пунктах, разделение секции или отдела. Она либо пользователем или заранее заданным именем, а затем период, и состоит из ноль или более приговоры/записей.

  • Приговоры сочетание одно или несколько заявлений. Приговоры появляются только в рамках процедуры отдела. Приговор должен положить конец с периода.

  • Заявления имеют смысл COBOL заявление о том, что выполняет некоторые обработки.

  • Символов являются самыми низкими в иерархии и не может быть разборными.

Вы можете совместно связаны с вышеупомянутым кругом с COBOL программы в следующем примере:

PROCEDURE DIVISION.
A0000-FIRST-PARA SECTION.
FIRST-PARAGRAPH.
ACCEPT WS-ID            - Statement-1  -----|
MOVE '10' TO WS-ID      - Statement-2       |-- Sentence - 1
DISPLAY WS-ID           - Statement-3  -----|
.

Отделы

COBOL программа состоит из четырех отделов.

Отдел по вопросам идентификации

Он является первым и единственным обязательным разделение каждого COBOL программы. Программисту и компилятор используют этот отдел для идентификации программы. В этот отдел, программы-ID - это единственный обязательный пункт. Программы-ID задает имя программы, может состоять из 1-30 символов.

Попробуйте следующий пример с помощью попробуйте вариант через интернет.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
DISPLAY 'Welcome to Tutorialspoint'.
STOP RUN.

Ниже находится в JCL для выполнения выше COBOL программы.

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

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

Welcome to Tutorialspoint

Отдел по окружающей среде

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

  • Конфигурации раздел содержит информацию о системе, в которой программа написана и казнены. Он состоит из двух пунктов:

    Источник: система, используемая для компиляции программы.

    Объект: ЭБУ системы используется для выполнения этой программы.

  • Ввод/вывод раздел содержит информацию о файлы, используемые в программе. Он состоит из двух пунктов:

    Файл управления : предоставляет информацию о внешних данных используется в программе.

    I-O: предоставляет информацию и файлы, используемые в программе.

ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
   SOURCE-COMPUTER. XXX-ZOS.
   OBJECT-COMPUTER. XXX-ZOS.

INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO DDNAME
   ORGANIZATION IS SEQUENTIAL.

Отдел обработки данных

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

  • Раздел Файл используется, чтобы определить структуру записей в файле.

  • Working-Storage раздел используется, чтобы объявить временных переменных и файловой структуры, которые будут использоваться в программе.

  • Local-Storage раздел аналогичен Working-Storage раздел. Единственное отличие заключается в том, что переменные будут выделены и инициализирован каждый раз программы a начинает выполнение кода.

  • Связь раздел используется для описания данных имен, которые были получены из внешней программы.

Программа COBOL

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

ENVIRONMENT DIVISION.

   INPUT-OUTPUT SECTION.
   FILE-CONTROL.
   SELECT FILEN ASSIGN TO INPUT.
          ORGANIZATION IS SEQUENTIAL.
          ACCESS IS SEQUENTIAL.
          
DATA DIVISION.
   FILE SECTION.
   FD FILEN
   01 NAME PIC A(25).
   
   WORKING-STORAGE SECTION.
   01 WS-STUDENT PIC A(30).
   01 WS-ID PIC 9(5).

   LOCAL-STORAGE SECTION.
   01 LS-CLASS PIC 9(3).
   
   LINKAGE SECTION.
   01 LS-ID PIC 9(5).
   
PROCEDURE DIVISION.
   DISPLAY 'Executing COBOL program using JCL'.
STOP RUN.

В JCL для выполнения выше COBOL является следующим:

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C
//STEP1 EXEC PGM=HELLO
//INPUT DD DSN=ABC.EFG.XYZ,DISP=SHR

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

Executing COBOL program using JCL

Отдел по вопросам процедуры

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

Должен быть по крайней мере одно заявление в процедуре. Последнее заявление на прекращение исполнения в этот отдел является либо останов, используемый в вызывающей программы или выйти из программы, которая используется в "программах.

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.

DATA DIVISION.
   WORKING-STORAGE SECTION.
   01 WS-NAME PIC A(30).
   01 WS-ID PIC 9(5) VALUE '12345'.

PROCEDURE DIVISION.
   A000-FIRST-PARA.
   DISPLAY 'Hello World'.
   MOVE 'TutorialsPoint' TO WS-NAME.
   DISPLAY "My name is : "WS-NAME.
   DISPLAY "My ID is : "WS-ID.
STOP RUN.

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

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

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

Hello World
My name is : TutorialsPoint
My ID is : 12345
Advertisements