Arranque-Caída AUTOM.SOCKETS FOR CICS TCP/IP (A TRAVES DE PLT)

1. Arranque AUTOMATICO (PLTPI) Para arrancar automáticamente, hacer la siguiente entrada en la PLTPI después de la DFHDELIM:

DFHPLT TYPE=ENTRY,PROGRAM=EZACIC20
DFHPLT TYPE=ENTRY,PROGRAM=ZTBPOTCI

1. Caída AUTOMATICA (PLTSD) Hacer la siguiente entrada, antes de la DFHDELIM:

DFHPLT TYPE=ENTRY,PROGRAM=ZTBPOTCF
DFHPLT TYPE=ENTRY,PROGRAM=EZACIC20

En la PLT de inicio, se arrancarán los sockets for CICS y una vez hecho esto, se llamará al programa ZTBPOTCI, que arrancará una transid (ZTBZ). Dicha transid, a partir del EZACONFG, arrancará todos los LISTENER que existan (todos los asociados al monitor de teleproceso donde se ejecute la ZTBZ) y que contengan el parámetro SECEXIT = editran, de modo que no se requiere actuación manual para activar los mismos. Es obligado llamar a la ZTBZ con dicho nombre y no se ha incluido en perfiles editran, puesto que si en la plt de inicio se realizan accesos a ficheros (para sacar el nombre de la transid a arrancar), es muy probable que surjan errores de acceso y lectura a ficheros (probablemente porque el CICS no dispone aún de ellos).

Si desea que la transid ZTBZ tenga otro nombre en su entidad, pase el jcl ZTBPJTCP sobre el programa ZTBPOTCI, indicando el nuevo nombre de dicha transid (deberá estar previamente definida en CICS). A continuación, defina en los perfiles (entorno local), dicha transid (PLTINI TCP:). En el jcl a pasar, se pone el desplazamiento ZTBZ (si falla el jcl consulte con INDRA el mismo), la transid origen (ZTBZ) y la transid destino (en el ejemplo siguiente NXZR):

//* PRIMERO VER  (COMPRUEBA QUE COINCIDA)                               
//* SEGUNDO REP  (CAMBIA)                                               
//*                                                                     
//*        ZTBZ  -> "E9E3C2E9" DESPLAZAMIENTO 01EA-TRANSID ZTBZ         
//*        NXZR  -> "D5E7E9D9"                                          
//*                                                                     
//**********************************************************************
//*   CAMBIO DE NOMBRES DE TRANSACCION DE EDITRAN                      *
//**********************************************************************
//P1   EXEC  PGM=AMASPZAP                                               
//SYSLIB  DD  DSN=PUNTERO.INDRA.LOAD,DISP=SHR                           
//SYSPRINT DD  SYSOUT=*                                                 
//SYSIN  DD  *                                                          
  NAME ZTBPOTCI ZTBPOTCI                                                
  VER  01EA E9E3C2E9                                                    
  REP  01EA D5E7E9D9                                                    
/*