S11 1 1 1 1 TP 1
L GU
E OK
E Z0017 DATA SKS2 M2 SI1M3 SI1
WTO SEGMENT SI1 RECEIVED
L GN
E QD
WTO END OF INPUT SEGMENTS
L ISRT IW06OUT
L Z0012 DATA *******M1SO1
E OK
WTO SEGMENT SO1 INSERTTED
L ISRT
L Z0027 DATA ********M1SO2*********M2SO2
E OK
WTO SEGMENT SO2 INSERTTED
L ISRT
L Z0048 DATA **********M1SO3***********M2SO3************M3SO3
E OK
WTO SEGMENT SO3 INSERTTED
WTO CURRENT PROGRAM STLDDLT2 TERMINATED
L GU
Исходящее сообщение, возвращенное этим частным приложением IMS, имеет фиксированный размер 99 байт и представляет собой OUTPUT-MSG - структуру COBOL 01.
Одним из способов разработки этого многосегментного приложения является использование OUTPUT-MSG – определения COBOL – для определения вывода транзакции. Второй способ заключается в том, чтобы создать исходящее сообщение для вывода транзакции. Код, предоставленный в этом учебнике, использует второй метод, поскольку он может быть использованы и для построения приложения, которое обрабатывает исходящее сообщение переменной длины. Для упрощения доступа к данным каждого отдельного сегмента сообщения по-прежнему используются COBOL-определения.
Подключение к серверу IMS