Puede establecer atributos bidireccionales dinámicos en los proyectos de flujo de servicios. Esta característica permite al peticionario de servicios especificar dinámicamente atributos bidireccionales de mensajes de interfaz, como parte de los datos de usuario.
************************************************
* Libro de copia I-F01
************************************************
03 I-F01.
05 IDD PIC X(6) VALUE SPACES.
05 FUNC PIC X(4) VALUE SPACES.
05 INATTR PIC X(25) VALUE SPACES.
05 OUTATTR PIC X(25) VALUE SPACES.
En este ejemplo, INATTR y
OUTATTR no son datos reales suministrados al servicio; son atributos bidireccionales
de mensajes de recepción y respuesta. Puede añadir estos datos a una petición
existente o crear una petición que incluya los atributos.
Pueden utilizarse otros nombres válidos en lugar de INATTR y OUTATTR. Puede utilizar los dos atributos, uno de ellos o ninguno.Especifica los atributos bidireccionales para el mensaje de recepción.
Especifica los atributos bidireccionales para el mensaje de respuesta.
Los valores iniciales de INATTR y OUTATTR se basan en los valores que se especifican en la página Valores bidireccionales de la ventana Preferencias. Puede utilizar el editor de mensajes de flujo para cambiar estos valores.
Los valores de INATTR y OUTATTR se sobregraban dinámicamente, según los valores suministrados por el peticionario del servicio en los campos INATTR y OUTATTR del mensaje de recepción.
************************************************************ * Libro de copia BIDIMSG ************************************************************ 03 BIDIMSG. 05 INATTR PIC X(25) VALUE 'VisualLTR'. 05 OUTATTR PIC X(25) VALUE 'VisualLTR'.
MACGEN IF INATTR OF I-F01 NOT EQUAL SPACES AND LOW-VALUES THEN
MACGEN MOVE INATTR OF I-F01 TO INATTR OF BIDIMSG
MACGEN END-IF .
CALL WS-BIDITRN-CALL USING BY REFERENCE IDD OF V-F01
BY VALUE LENGTH OF IDD OF V-F01
MACGEN BY CONTENT INATTR OF BIDIMSG BY VALUE LENGTH OF INATTR OF BIDIMSG
MACGEN BY CONTENT 'VISUALLTR' BY VALUE 9
MACGEN BY CONTENT '424' BY VALUE 3
BY REFERENCE BIDI-RESPONSE-CODE , BY REFERENCE BIDI-REASON-CODE