Entornos SYSPLEX-CICSPLEX
Editran, ha sido adaptado en su programación, para ser utilizado en un entorno CICSPLEX-SYSPLEX (afinidades en este tipo de entornos). Hay determinados comandos que se han eliminado de la programación, por ser incompatibles (comandos reqid, cancel, interval, colas td, etc.). En concreto, se deben seguir una serie de normas, para su utilización:
Comandos ENQ-DEQ. editran, sigue utilizando este tipo de comandos, no obstante, se han agrupado:
En editran, utilizan un único patrón (ENQMODEL=ZTB)
Colas TS. editran, sigue utilizando este tipo de comandos, no obstante, se han agrupado en un único patrón (TSMODEL=ZTB)
Comandos inquire-set:
Los programas ZTBPO061-62-63-64, lo que hacen es un INQUIRE (term, file, task) y si en el response del recurso-remotesystem nos dice que se encuentra en otro sistema, hacemos LINK al mismo programa en ese otro sistema. Según el manual de afinidades, las transid que hacen inq-set, deben ser enrutadas estáticamente (a nivel de tct). En el manual de definition guide se dice que además de remotesystem (connection), que sirve para enrutar la petición a otro sistema, también se puede especificar exec link program sysid (nombre de sistema remoto) ó a través de dynamic routing program. Las reglas de salto son, por este orden:
Si se usa link con sysid, se ejecuta en ese sistema determinado.
Si se usa link sin sysid:
Si se ha codificado DYNAMIC=YES (ppt) ó no existe PPT, se llama a la DRP (dynamic routing program), en definitiva, se ejecuta en cualquier sistema.
Si se ha codificado DYNAMIC=NO, se ejecuta en local.
Para aplicar esta opción, el programa ZTBPO061 debe definirse en todos los CICS excepto en el tor con remotesystem (stor), ZTBPO062 debe definirse en todos los CICS excepto en el for con remotesystem (sfor), ZTBPO064 si se quiere tener las connection en un único CICS, debe definirse en todos los CICS excepto en el sitema que queramos con remotesystem (sconection). No se menciona el ZTBPO063 pues ese es el termid 3270 sobre el que se trabaja.
⚠️ Importante: Para el correcto funcionamiento de la PLT de arranque de los listener en un sistema CICSPLEX no solo es necesario que los CICS Editran estén definidos en el CPSM, sino que además se conecten a él (parámetro CPSMCON=LMAS en la SIT). Esto es necesario para que se pueda recuperar la lista de CICS de Editran. Además es necesario para que el sistema determine que se trata de un CICSPLEX que los siguientes campos del entorno local estén rellenos:
CAMPOS CICSPLEX-SYSPLEX............: CICSPLEX SM RELEASE(VERSION):
NOMBRE CICSPLEX (CONTEXTO).: NOMBRE DEL SCOPE........: