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
A mensagem de saída retornada por este aplicativo IMS específico tem um tamanho fixo de 99 bytes e é representada pela estrutura COBOL 01 OUTPUT-MSG.
Uma maneira de desenvolver esse aplicativo multissegmentos é usar a definição COBOL OUTPUT-MSG para definir a saída da transação. Uma segunda maneira é criar uma mensagem de saída para a saída da transação. O código fornecido com este tutorial usa o segundo método, já que ele também pode ser usado para construir um aplicativo que processe uma mensagem de saída de comprimento variável. As definições COBOL para segmentos de mensagens individuais continuam sendo usadas para simplificar o acesso aos dados dos segmentos individuais
Conectando ao servidor IMS