Adición de caracteres SO iniciales y SI finales

En el caso de las cadenas con formato PIC G, puede indicar al entorno en tiempo de ejecución del Integrador de transacciones (TI) que agregue un carácter de desplazamiento inicial (SO) y un carácter de desplazamiento final (SI) seleccionando la casilla Agregar SO inicial y SI final en la pestaña Definición de COBOL (página de propiedades) de la cadena en el proyecto de TI.

Si está activada la casilla Agregar SO inicial y SI final, el entorno de ejecución en tiempo real de TI maneja dos bytes adicionales en la estructura de datos del mainframe utilizada para describir el conjunto de caracteres de doble byte (DBCS). Cuando se da formato a un mensaje enviado al mainframe, el entorno de ejecución de TI añade los bytes de SO al inicio y de SI al final. Cuando interpreta un mensaje recibido del mainframe, el entorno de ejecución TI descarta el byte SO inicial y el byte SI final.

El valor de dimensión de la cadena PIC G siempre especifica el número de caracteres DBCS de doble byte en las cadenas, independientemente de la presencia o ausencia de los caracteres SO y SI circundantes.

El uso de este control automático de SO y SI está oculto de la aplicación cliente. Sin embargo, la aplicación del sistema central debe asegurarse de que las declaraciones PIC X adecuadas rodean la declaración de la cadena PIC G.

El proyecto de TI genera las declaraciones adecuadas para los bytes SO y SI circundantes, como se muestra en el código de ejemplo siguiente:

01     A-SOSI-WRAPPED-DBCS.  
       05  LEADING-SO-1                            PIC X.  
       05  MY-DBCS-STRING                          PIC G(80).  
       05  LEADING-SI-1                            PIC X.  
  

El asistente de importación de COBOL en TI Project no establece la opción para agregar bytes de SO iniciales y SI finales. En otras palabras, el Asistente para importar COBOL no le da importancia a la presencia de declaraciones PIC X que rodean una cadena PIC G. Si un programa de transacciones del sistema central (TP) existente usa declaraciones COBOL que contienen declaraciones explícitas para caracteres SO y SI que encapsulan cadenas PIC G, debe modificar manualmente la interfaz creada por el Asistente para importar COBOL.