En esta lección seguirá los pasos detallados para seleccionar el adaptador de recursos y configurarlo para la conexión con el servidor IMS.
Sentencias de control DFSDDLT0
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
El mensaje de salida devuelto por esta aplicación IMS particular tiene un tamaño fijo de 99 bytes y se representa mediante la estructura COBOL 01 OUTPUT-MSG.
Un modo de desarrollar esta aplicación multisegmento consiste en utilizar la definición de COBOL OUTPUT-MSG para definir la salida de la transacción. Un segundo modo consiste en crear un mensaje de salida para la salida de la transacción. El código que proporciona esta guía de aprendizaje utiliza el segundo método, ya que también se puede utilizar para crear una aplicación que procese un mensaje de salida de longitud variable. Se seguirán utilizando las definiciones COBOL de los distintos segmentos de mensaje para simplificar el acceso a los datos de cada uno de los segmentos
Conexión con el servidor IMS