Учебники

CICS — Основы COBOL

Сентябрь 19, 2018

Программы CICS написаны на языке COBOL в мейнфреймах. Мы будем обсуждать, как написать простую программу на языке COBOL-CICS, скомпилировать ее и затем выполнить.

Программа CICS

Мы напишем простую программу на языке COBOL-CICS, которая отображает некоторое сообщение на экране вывода CICS. Эта программа предназначена для демонстрации шагов, выполняемых при выполнении программы COBOL-CICS. Ниже приведены шаги для написания простой программы:

Шаг 1

Войдите в мэйнфреймы и откройте сеанс TSO.

Шаг 2

Создайте новый PDS, в котором мы будем кодировать нашу программу.

Шаг 3

Создайте нового члена внутри PDS и закодируйте следующую программу — 

IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
FILE SECTION.
WORKING-STORAGE SECTION.
01 WS-MESSAGE PIC X(40).
01 WS-LENGTH  PIC S9(4) COMP.
PROCEDURE DIVISION.
A000-MAIN-PARA.
   MOVE 'Hello World' TO WS-MESSAGE
   MOVE '+12' TO WS-LENGTH
   EXEC CICS SEND TEXT 
      FROM (WS-MESSAGE)
      LENGHT(WS-LENGTH)  
   END-EXEC
   EXEC CICS RETURN
   END-EXEC.

Шаг 4

После кодирования программы нам нужно скомпилировать ее. Мы можем скомпилировать программу, используя следующий JCL — 

//SAMPLE JOB(TESTJCL,XXXXXX),CLASS = A,MSGCLASS = C  
//CICSCOB  EXEC CICSCOB,                                                
//COPYLIB = ABC.XYZ.COPYLIB,                            
//LOADLIB = ABC.XYZ.LOADLIB 
//LIB        JCLLIB ORDER = CICSXXX.CICS.XXXPROC                
//CPLSTP     EXEC DFHEITVL                                
//TRN.SYSIN  DD DSN = ABC.XYZ.PDS(HELLO),DISP = SHR     
//LKED.SYSIN DD *                                        
   NAME HELLO(R)                                          
//

Шаг 5

Откройте сеанс CICS.

Шаг 6

Теперь мы установим программу с помощью следующей команды — 

CEMT SET PROG(HELLO) NEW.

Шаг 7

Запустите программу, используя связанный идентификатор транзакции. Transaction-id предоставляется администратором. Это покажет следующий вывод —

Выход CICS

Компиляция программы

Следующая блок-схема показывает шаги, используемые при компиляции программы COBOL-CICS —

Компиляция CICS

Переводчик

Функция транслятора заключается в проверке синтаксических ошибок в командах CICS. Он переводит их в эквивалентные операторы COBOL.

составитель

Функция компилятора заключается в расширении копий книг на языке COBOL. Он компилирует код после проверки исходного кода на наличие синтаксических ошибок.

Редактор связей

Функция редактора связей состоит в том, чтобы связывать различные объектные модули для создания одного модуля загрузки.

48
Share: